1<CsoundSynthesizer> 2 3; Id: C03_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 -oC03_REV03.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 234.3 REVERBERATION 22;============================================= 23 instr 1 24 25iampr = ampdb(p4) 26 27ifile = p5 28 29a1 diskin2 ifile, 1 30 31ar nreverb a1, 5, .3 32 33aout = a1*.35 +(ar*iampr) 34 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 44; iampr ifile 45i1 0 457 -25 "C01.wav" 46 47;durrev= 5*76.2 = 381 48; dur = 76 + durrev 49 50e 51 52</CsScore> 53</CsoundSynthesizer>