; reverb3.csd ; operadores locsend/locsig ; ============================================== sr = 44100 ksmps = 1 nchnls = 2 ; variables globales para cada canal gasend1 init 0 gasend2 init 0 instr 1 iinit = p4*ftsr(1) ; tiempo de inicio en samples iend = p5*ftsr(1) ; tiempo final en samples irevsend = p6 ; porcentaje de envío al reverb andx line iinit, p3, iend at tab andx, 1 kamp linen 1, .1, p3, .1 ; envolvente de declick asig = at*kamp kdegree line 0, p3, 90 kdistance line 1.5, p3, 8 a1, a2 locsig asig, kdegree, kdistance, irevsend outs a1, a2 asend1, asend2 locsend gasend1 = gasend1 + asend1 gasend2 = gasend2 + asend2 endin instr 99 itime = p4 ihdif = p5 irevamp = p6 aseco1 = gasend1 aseco2 = gasend2 arevL, arevR freeverb aseco1, aseco2, itime, ihdif outs arevL*irevamp, arevR*irevamp gasend = 0 endin ; ============================================== ; tamaño de la tabla la potencia de 2 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 .25 i99 0 6 .6 .05 1 ; última actualización: TIMESTAMP