; tut_13a.csd
; evento "s"
; evento "e"
; evento "t"
; evento "x"
; función cero -- f0
; ==============================================
sr = 48000
ksmps = 1
0dbfs = 1
instr 1
iamp = ampdbfs(p4)
ifrec = cpspch(p5)/10
kamp transeg 0, .01, 3, 1, 6, -9, 0 ; envolvente de caída exponencial fija
kdec linen 1, 0, p3, .4 ; envolvente de "release"
asig oscil iamp, ifrec, 1
out asig*kamp*kdec
endin
; ==============================================
; tabla con una serie inarmónica
f1 0 16384 9 10 .9 0 17 .7 0 28 .6 0 46 .5 0
;p1 p2 p3 p4 p5
;instr init dur iamp ifrec
i1 0 1.75 -8 8.00
i1 1 1.75 -8 8.02
i1 1.5 2.75 -8 8.01
i1 3 1.75 -8 8.03
f0 6
s ;final de la primera sección
; tempo = 90 bpm
t 0 90
i1 0 1.25 -8 7.075
i1 1 1.25 -8 7.035
i1 2 1.25 -8 7.063
i1 3 1.25 -8 7.023
i1 4 1.25 -8 7.035
x ; ignorar el resto de la sección
i1 5 1.25 -8 7.063
i1 6 1.25 -8 7.075
i1 7 1.25 -8 7.023
s ;final de la segunda sección
; accelerando de 60 bpm a 90 bpm en los primeros 4 tiempos
; 40 bpm del tiempo 4 al final
t 0 60 5 120 5 40
i1 0 1.25 -8 7.075
i1 1 1.25 -8 7.035
i1 2 1.25 -8 7.063
i1 3 1.25 -8 7.023
i1 4 1.25 -8 7.035
i1 5 1.25 -8 7.063
i1 6 1.25 -8 7.075
i1 7 1.25 -8 7.023
e ;fin de la partitura
; última actualización: 2005-06-23 19:17