-odac -B2048 -b1024 -d -+rtaudio=alsa sr=44100 ksmps=100 nchnls=1 gas init 0 instr 1 Svol sprintf "main_volume%d", p4 Spit sprintf "pitch%d", p4 Smut sprintf "mute%d", p4 S1 chnget "soundfile" i1 strcmp S1,"0" if i1 != 0 goto continue puts "no filename selected !!", 1 turnoff goto end continue: ich filenchnls S1 k2 chnget Svol kp chnget Spit km chnget Smut kv tonek k2*(1-km)/10, 10 if ich == 1 then am diskin2 S1,kp,0,1 else a1,a2 diskin2 S1,kp,0,1 am = (a1+a2)/2 endif as = am*kv out as gas = as + gas end: endin instr 9 S1 chnget "output_file" i1 strcmp S1,"0" if i1 != 0 goto continue puts "no output filename selected !!", 1 turnoff goto end continue: fout S1,2, gas end: endin instr 10 gas = 0 endin i10 0 3600000