sr = 44100kr = 4410ksmps = 10nchnls = 2garvbsig init 0 instr 10iattack = .01irelease = .2iwhite = 22050idur = p3iamp = p4iswpstart = p5isweepend = p6ibndwidth = p7ibalance = p8 ; 1 = слева, .5 = центр, 0 = справаirvbgain = p9kamp linen iamp, iattack, idur, ireleaseksweep line iswpstart, idur, isweependasig rand iwhiteafilt reson asig, ksweep, ibndwidtharampsig = kamp * afilt outs arampsig * ibalance, arampsig * (1 - ibalance)garvbsig = garvbsig + arampsig * p9 endin instr 100irvbtime = p4asig reverb garvbsig, irvbtime outs asig, asiggarvbsig = 0 endin |