/* ANDRES.csd version 0.1 (cc) Daniel Prieto, Agosto de 2007 Requiere el archivo "andresmono.aif" en la misma carpeta de este archivo */ sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 instr 1 insnd = 10 ibasfrq = 44100 / ftlen(insnd) ; usar frecuencia central relativa (1 = original) iatk = p14 ;ataque del flujo de granos idek = p16 ;decaida del flujo de granos kamp linseg p13, iatk, p15, p3 - (iatk + idek), p15, idek, 0 ;envolvente kpitch line ibasfrq * p4, p3, ibasfrq * p5 ; altura central kdens line p6, p3, p7 ; densidad de granos kaoff line p8, p3, p9 ; desplazamiento de amplitud kpoff line ibasfrq * p10, p3, p11 ; desplazamiento de frecuencia central kgdur = p12 ; duracion del flujo imaxgdur = 1 ; duraciOn mAxima del grano kvar oscil 1, .5, 1 ; Oscilador de baja frecuencia para la densidad ari grain kamp, kpitch, kdens + (kvar * 1.1), kaoff, kpoff, kgdur, insnd, 5, imaxgdur, 0.0 ; generador de granos ard grain kamp, kpitch, kdens + kvar, kaoff, kpoff, kgdur, insnd, 5, imaxgdur, 0.0 ; generador de granos outs ari, ard ; salidas endin f1 0 512 10 1 ; Sinusoide para el lfo f5 0 512 20 2 ; Ventana de Hanning f10 0 262144 01 "andresmono.aif" 0 0 0 ; funcion con el archivo de sonido ;1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ;in st dur kpt1 kpt2 kdn1 kdn2 kao1 kao2 kpo1 kpo2 kgd ka0 atk a1 dek i1 0 39.3 .1 .6 1 200 0 0 .01 0 .5 0 19 8000 15 i1 13 19 5 6 50 4000 0 0 .1 1.5 .01 0 18.9 10000 .1 i1 14 39.1 5.5 2 50 1000 0 400 1.5 .1 .01 0 20 6000 15 i1 26 43.9 2 .5 20 100 0 0 1.5 1.5 .25 0 20 5000 15 i1 39 38.91 6 7 1 .2 0 0 0 0 .4 8000 .1 4000 5 i1 55 38.92 1 1 5 10 0 0 .1 1.5 1 0 .1 8000 15 i1 76 38.8 .2 .2 30 30 0 0 .01 .01 .7 0 10 12000 10 i1 88 39 .8 1.2 1 200 0 0 .01 1 .5 0 11.9 12000 .01 i1 100 42.6 6 8 .8 .8 100 100 .1 .1 .2 1000 .1 4000 15 i1 111 38.5 7 9 200 200 1 1 1 1 .2 0 10 8000 15 i1 125 38.5 8 1 200 5000 1 1 .01 0 .1 0 5 6000 10 i1 138 39.2 .6 .1 200 1 1 0 0 .1 .5 0 15 8000 0.1