-odac ; activates real time sound output
;Example by Iain McCurdy
sr = 44100
ksmps = 32
nchnls = 1
0dbfs = 1
giSine ftgen 0, 0, 2^12, 10, 1 ; a sine wave
giLFOShape ftgen 0, 0, 2^12, 19, 0.5, 1, 180, 1 ; u-shaped parabola
instr 1
aSig pinkish 0.1 ; pink noise
aMod poscil 0.005, 0.05, giLFOShape ; delay time LFO
iOffset = ksmps/sr ; minimum delay time
kFdback linseg 0.8,(p3/2)-0.5,0.95,1,-0.95 ; feedback
; -- create a delay buffer --
aBufOut delayr 0.5 ; read audio from end buffer
aTap deltap3 aMod + iOffset ; tap audio from within buffer
delayw aSig + (aTap*kFdback) ; write audio into buffer
; send audio to the output (mix the input signal with the delayed signal)
out aSig + aTap
endin
i 1 0 25
e