1<CsoundSynthesizer> 2 3; Id: G07_REV-22.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 -oG07_REV-22.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 274. REVERBERATION 22; see 372.VII 23;============================================= 24 instr 1 25ifile = p4 26 27a1 diskin2 ifile , 1, 5.6 28ga1 = a1 29 30 endin 31 32 instr 2 33 34iampr = ampdb(p4) 35 36a1 =ga1 37 38ar nreverb a1, 5, .3 39 40aout = (a1*.15) + (ar*iampr) 41 42 out aout 43 endin 44;============================================= 45 46</CsInstruments> 47<CsScore> 48f1 0 4096 10 1 49t0 4572 50;durerev= 5.6*76.2 = 426.72 51 52; p4 53; ifile 54i1 0 13056 "G07_REV-21.wav" 55; iampr 56i2 0 13437 -19 57 58;durrev= 5*76.2 = 381 59; dur = 13056 + durrev 60 61e 62 63</CsScore> 64</CsoundSynthesizer>