instr 1 Sfile = "./local/soundfile" ichn filenchnls Sfile if ichn == 1 then a1 diskin2 Sfile,1,0,1 a2 = a1 elseif ichn == 2 then a1,a2 diskin2 Sfile,1,0,1 endif kdry chnget "dry" krev chnget "rev" kfl chnget "flan" krev = krev/100 kdry = kdry/100 kfl = kfl/100 adel1 oscili 0.002,1.3 adel2 oscili 0.003,0.9 ar1, ar2 freeverb a1,a2,0.7,0.8 af1 flanger a1, adel1+0.003,0.6 af2 flanger a2, adel2+0.004,0.6 amix1 = ar1*krev + a1*kdry + af1*kfl amix2 = ar2*krev + a2*kdry + af2*kfl outs amix1*0.3, amix2*0.3 endin
Play
reverb flanger dry signal
Csound: not loaded