1<CsoundSynthesizer> 2 3; Id: H07_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 -oH07_REV01.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 284.1 REVERBERATION 22;============================================= 23 instr 1 24iampr = ampdb(p4) 25ifile = p5 26 27a1 diskin2 ifile , 1 28 29ar nreverb a1, 5, .3 30 31; decreasing and increasing reverberation 32aenvr expseg 1, 2.2, ampdb(-30) , 2.2, 1 , p3-4.4, 1 33aenv expseg .1, 2.2, 1, 2.2, .25, p3-4.4, 0.0001 34 35aout = (a1*aenv) +(ar*aenvr*iampr) 36aout atonex aout, 10 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 48i1 0 723 -12 "H06_TR01.wav" 49 50;durrev= 5*76.2 = 381 51; dur = 342 + durrev 52e 53 54</CsScore> 55</CsoundSynthesizer>