-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