1<CsoundSynthesizer> 2 3; Id: G04_REV19-1.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 -oG04_REV19-1.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 274.19 REVERBERATION 22;============================================= 23 instr 1 24 25iampr = ampdb(p4) 26 27ifile = p5 28 29a1 diskin2 ifile, 1 30 31ar nreverb a1, 5, .3 32 33aenvr expseg iampr, p3*.4 ,iampr, p3*.4 , .001 , p3*.2 , .001 34aenv expseg .05, p3*.4 , .25 ,p3*.4 , 1 , p3*.2 , 1 35 36aout = (a1*aenv) +(ar*aenvr) 37 38 out aout 39 endin 40;============================================= 41 42</CsInstruments> 43<CsScore> 44t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 45 46; p4 p5 47; iampr ifile 48; [dB] 49i1 0 2328 -15 "G03_TR19-1.wav" 50 51e 52 53</CsScore> 54</CsoundSynthesizer>