1<CsoundSynthesizer> 2 3; Id: A05_REV01.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 -oA05_REV01.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 214.1 REVERBERATION 22;============================================= 23 instr 1 24iampr = ampdb(p4) ; duration of reverberated file 25ifile = p5 26 27a1 diskin2 ifile, 1 28 29ar nreverb a1, 5, 0.5 30 31aenvr expseg .5 , .7 , .5 , .562 , 1, p3-1.262, 1 32aenvr = aenvr * iampr 33aenv expseg 1, .9 , 1 , .362 , .85 , p3-1.262 , .85 34 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 47; iampr ifile 48; [dB] 49i1 0 477.2 -15 "A04_FILT01.wav" ; 50 51; durrev = 5 * 76,2 = 381 52; dur = 96.2 + durrev 53e 54 55</CsScore> 56</CsoundSynthesizer>