; Select audio/midi flags here according to platform -odac ;;;realtime audio out ;-iadc ;;;uncomment -iadc if realtime audio input is needed too ; For Non-realtime ouput leave only the line below: ; -o lfo.wav -W ;;; for file output any platform sr = 44100 ksmps = 32 nchnls = 2 0dbfs = 1 gasig init 0 gidel = 1 instr 1 kcps = p5 itype = p4 klfo line p6, p3, p7 al lfo klfo, kcps, itype asig poscil .5, 90+al, 1 outs asig, asig endin instr 2 kbeta betarand 100, 1, 1 printk .5, kbeta aout oscili 0.4, 500+kbeta, 1 outs aout, aout endin instr 3 iatt = p5 idec = p6 islev = p7 irel = p8 kenv adsr iatt, idec, islev, irel kcps = cpspch(p4) asig vco2 kenv * 0.8, kcps outs asig, asig endin instr 4 ain pluck .7, 20, 1000, 0, 1 outs ain, ain vincr gasig, ain endin instr 5 ifeedback = p4 abuf2 delayr gidel adelL deltap .4 adelM deltap 1 delayw gasig + (adelL * ifeedback) abuf3 delayr gidel kdel line 1, p3, .01 adelR deltap .65 * kdel delayw gasig + (adelR * ifeedback) outs adelL + adelM, adelR + adelM clear gasig endin f 1 0 32768 10 1 i 1 0 10 0 4 0 200 i 1 + 5 4 15 100 20 i 1 + 15 5 80 200 0 f 2 0 32768 10 1 i 2 2 13 1 0.3 f 3 0 32320 10 1 i 3 0 3 7 10 0.1 1 .01 i 3 15 1 7.02 1 .8 .01 .001 i 3 15 2 7 .0001 1 .1 .7 f 4 0 30101 10 1 i 4 0 1 i 4 2 1 i 4 4 3 0 i 4 6 8 .8 i 4 8 8 .8 Widgets 100 100 320 240 true 255 255 255