1<CsoundSynthesizer> 2 3; Id: D08_ENV08.CSD mg (2006, rev.2009) 4; author: marco gasperini (marcogsp at yahoo dot it) 5 6; G.M. Koenig 7; ESSAY (1957) 8 9<CsOptions> 10-W -f -oD08_ENV08.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 245.8 INTENSITY CURVES 22;============================================= 23 instr 1 24iamp1 = ampdb(90+p4)/ 21420 25iamp2 = ampdb(90+p5)/ 29211 26 27idur = p3 28ifile = p6 29 30a1 diskin2 ifile, 1 31 32att linen .9 , .01 , p3 , .01 33aenv expseg iamp1,1.3,iamp1,.7,iamp2,idur-2,iamp2 34 35aout = a1*aenv * att 36 37 out aout 38 endin 39;============================================= 40 41</CsInstruments> 42<CsScore> 43t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 44 45; p4 p5 46; iamp1 iamp2 ifile 47; [dB] [dB] 48i1 0 356.4 -10 0 "D07_TR08.wav" ; koenig 49 50e 51 52</CsScore> 53</CsoundSynthesizer>