1<CsoundSynthesizer> 2 3; Id: A06_ENV02.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 -oA06_ENV02.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 215.2 INTENSITY CURVES 22;============================================= 23 instr 1 24iamp1 = ampdb(p4) 25iamp2 = ampdb(p5) 26iamp3 = ampdb(p6) 27 28ifile = p7 29 30a1 diskin2 ifile, 1 31 32aenv expseg iamp1,.9,iamp1,(p3-.9)/2,iamp2,(p3-.9)/2,iamp3 33 34aout = a1*aenv 35 out aout 36 endin 37;============================================= 38 39</CsInstruments> 40<CsScore> 41t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 42 43; p4 p5 p6 p7 44; iamp1 iamp2 iamp3 ifile 45; [dB] [dB] [dB] 46i1 0 384.7 0 -40 -0 "A04_FILT02.wav" 47 48e 49 50</CsScore> 51</CsoundSynthesizer>