; tut_12a.csd ; filtros de frecuencia de primer orden ; pasa-bajos y pasa-altos (operadores tone y atone) ; conversor de amplitud ampdbfs ; ============================================== sr = 44100 kr = 44100 ksmps = 1 instr 1 iamp = ampdbfs(p4) ifc1 = p5 ; frecuencia de corte inicial ifc2 = p6 ; frecuencia de corte final ifreq = sr/2 asig randi iamp, ifreq, .5, 1 ; ruido limitado a sr/2 kfc expon ifc1, p3, ifc2 afilt tone asig, kfc kamp linen 1, .02, p3, .03 out afilt*kamp endin instr 2 iamp = ampdbfs(p4) ifc1 = p5 ; frecuencia de corte inicial ifc2 = p6 ; frecuencia de corte final ifreq = sr/2 asig randi iamp, ifreq, .5, 1 ; ruido limitado a sr/2 kfc expon ifc1, p3, ifc2 afilt atone asig, kfc kamp linen 1, .02, p3, .03 out afilt*kamp endin ; ============================================== i1 0 4 -5 15000 1 i1 4.3 .2 -3 1 20000 i2 5 4 -6 22000 1 ; última actualización: 2005-06-17 01:11