-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 instr 1 ; -- create an input signal: short 'blip' sounds -- kEnv loopseg 0.5,0,0,0,0.0005,1,0.1,0,1.9,0,0 ; repeating envelope kCps randomh 400, 600, 0.5 ; 'held' random values aEnv interp kEnv ; a-rate envelope aSig poscil aEnv, kCps, giSine ; generate audio ; -- create a delay buffer -- iFdback = 0.7 ; feedback ratio aBufOut delayr 0.3 ; read audio from end of buffer ; write audio into buffer (mix in feedback signal) delayw aSig+(aBufOut*iFdback) ; send audio to output (mix the input signal with the delayed signal) out aSig + (aBufOut*0.4) endin i 1 0 25 e