1<CsoundSynthesizer> 2 3; Id: G07_REV-21.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-21.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, 0,1 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*.2) + (ar*iampr) 41aout atonex aout, 10 42 43 out aout 44 endin 45;============================================= 46 47</CsInstruments> 48<CsScore> 49t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 50 51;durerev= 5.6*76.2 = 426.72 cm 52; p4 53; ifile 54i1 0 12675 "G06_ABSCHNITT-2.wav" 55; iampr 56i2 0 13056 -19 57 58;durrev= 5*76.2 = 381 59; dur = 12675 + durrev 60 61e 62 63</CsScore> 64</CsoundSynthesizer>