; reverb2.csd ; operador freeverb ; ============================================== sr = 44100 ksmps = 1 nchnls = 2 gasend init 0 ; inicialización de la variable global instr 1 iinit = p4*ftsr(1) ; tiempo de inicio en samples iend = p5*ftsr(1) ; tiempo final en samples irevsend = p6 andx line iinit, p3, iend a1 tab andx, 1 kamp linen 1, .1, p3, .1 ; envolvente de declick aout = a1*kamp outs aout, aout gasend = gasend + (aout*irevsend) endin instr 99 itime = p4 ihdif = p5 irevamp = p6 aseco = gasend arevL, arevR freeverb aseco, aseco, itime, ihdif outs arevL*irevamp, arevR*irevamp gasend = 0 endin ; ============================================== ; tamaño de la tabla diferido al tamaño del sample f1 0 0 -1 "fox.wav" 0 0 0 ; p4 = tiempo de inicio en segundos ; p5 = tiempo final en segundos ;p1 p2 p3 p4 p5 p6 i1 0 2.8 0 2.757 .5 i99 0 8 .7 .2 1 ; última actualización: 2009-07-20 13:25:03