; tut_12a.csd
; filtros de frecuencia de primer orden
; pasa-bajos y pasa-altos (operadores tone y atone)
; conversor de amplitud ampdbfs
; ==============================================
sr = 48000
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