; tut_13d.csd
; procesamiento de la partitura:
; evento r (repetición de secciones)
; ==============================================
sr = 44100
kr = 44100
ksmps = 1
0dbfs = 1
instr 1
iamp = ampdbfs(p4)
ifrec = cpspch(p5)
inarm = int(18000/ifrec)
kmult line 1, p3, .3
kamp transeg 0, .01, 3, 1, p3, -6, 0 ; envolvente de caída exponencial
asig gbuzz iamp, ifrec, inarm, 1, kmult, 1
out asig*kamp
endin
; ==============================================
; tabla con un coseno para gbuzz
f1 0 16384 11 1
s
r3 ; repite 3 veces
t0 60 .75 53
;instr init dur amp pch
i1 0 .15 -6 7.06
i. + . . 7.08
i. + . . 8.0
i. + . . 7.11
i. + . . 8.03
s ;final de la primera sección
r4 ; repite 4 veces
t0 60 1 53
;instr init dur amp pch
i1 0 .15 -6 7.06
i. + . . 7.08
i. + . . 8.0
i. + . . 7.11
i. + . . 8.03
i. + . . 8.02
i. + . . 7.07
s ;final de la segunda sección
i1 0 .3 -6 7.06
e ; final de la partitura
; última actualización: 2005-06-24 08:17