; reverb1.csd ; variables globales ; operador nreverb (reverb2) ; ============================================== sr = 44100 ksmps = 1 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 andx line iinit, p3, iend a1 tab andx, 1 kamp linen 1, .1, p3, .1 ; envolvente de declick aout = a1*kamp out aout irevsend = p6 ; porcentaje de envío al reverb gasend = gasend + (aout*irevsend) ; variable global para envío al reverb endin instr 99 itime = p4 ihdif = p5 irevamp = p6 aseco = gasend arev nreverb aseco, itime, ihdif out arev*irevamp gasend = 0 ; limpia la variable global 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 ; p6 = envío al reverb ;p1 p2 p3 p4 p5 p6 i1 0 2.8 0 2.757 .1 ; p4 = tiempo de reverb ; p5 = difusión de agudos ; p6 = multiplicación de amplitud del reverb i99 0 8 2.5 .2 1 ; última actualización: 2009-07-20 13:10:40