; tut_13a.csd ; evento "s" ; evento "e" ; evento "t" ; evento "x" ; función cero -- f0 ; ============================================== sr = 44100 kr = 44100 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