nchnls=2 0dbfs=1 ; ---------- tables d'onde ----------------------------------- gibase ftgen 1, 0, 16384, 10,1,1,0,0,0.5 gibase2 ftgen 2, 0, 16384, 10,1,0,0,1,0,0.5 gisaw ftgen 3, 0, 16384, 10, 0, .2, 0, .4, 0, .6, 0, .8, 0, 1, 0, .8, 0, .6, 0, .4, 0,.2 gigrain ftgen 4, 0, 2048, 7, 0, 256, 1, 768, 0.35, 1024, 0 ; table d'onde d'enveloppe du grain (instr2) gifm1 ftgen 5, 0, 16384, 10, 1, 0.1, 1 gifm2 ftgen 6, 0, 16384, 10, 1, 0.5, 1, 0.5 ;------------------------------------------------------------- ;----------------- instruments ------------------------------- ;------------------------------------------------------------- ;-------- n°1 -------- instr 1 ; percussion-résonance kenv expseg 0.20,p3*.4,0.1,p3*.6,0.0001 a1 oscili kenv,p4,gibase a2 oscili kenv,p5,gibase2 arev,arev2 freeverb a1,a2, p6, 0 outs (a1*.35)+arev,(a2*.35)+arev2 endin ;-------- n°2 -------- instr 2 ; grains iamp = 0dbfs*.25 ; amplitude ifreqdev = p7 igrainfreq = rnd(p8) + 110; fréquence du grain igraindur = p6 kdense expseg p4,p3,p5 ; parcours de la densité du grain ;----------------------------------------------------------------- ; argument 1 amplitude ; argument 2 fréquence du grain ( hauteur interne du grain sonore) ; argument 3 densité du grain = nb de grain par secondes ; argument 4 déviation d'amplitude ; argument 5 déviation de fréquence ; argument 6 durée du grain - variable dans le temps ; argument 7 table d'onde du grain ; argument 8 enveloppe du grain définie par une table d'onde ; argument 9 durée maximale du grain - invariable dans le temps ;----------------------------------------------------------------- a1 grain iamp, igrainfreq ,kdense,0.35,ifreqdev,igraindur,gisaw,gigrain,0.75 ; fonction de granulation adel delay a1, 0.1 ; délai outs a1*0.5,adel*0.5 endin ;-------- n°3 (bruit) -------- instr 3 kamp expseg 0.01, p3*.2, 0dbfs,p3*.3,0dbfs,p3*.5,0.001 kgliss expseg p4,p3/2,p5, p3/2,p6 ; trajectoire de la valeur centrale du filtre abruit noise kamp , 0 ; générateur de bruit blanc afiltre butterbp abruit,kgliss, 15 ; filtre résonant avec une largeur de bande de 15 Hz arev nreverb afiltre, 3,0 ; reverb outs arev * p7,arev * p7 ; écoute du bruit filtré + amplitude générale endin ;-------- n°4 (fm) -------- instr 4 kenv expseg 0.001,p3*0.1,0dbfs/8,p3*0.6,0dbfs/8,p3*0.3,0.001 ifond = p7 kmod = p4 ;fréquence de la modulation kndx expseg p6,p3*.1,p5,p3*.6,p5,p3*.3,p6 ;intensité de la modulation afm foscil kenv, ifond, 1, kmod, kndx, gifm1 afm2 foscil kenv, ifond, 1.25, kmod, kndx,gifm2 adel1 reverb afm, 0.100 ; délai adel2 reverb afm2, 0.200 ; délai outs adel1,adel2 endin