1<CsoundSynthesizer> 2 3; Id: H05_REV04.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 -oH05_REV04.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 284.4 REVERBERATION 22;============================================= 23 24; backwards reverberation 25 26 instr 1 27ifile = p4 28 29a1 diskin2 ifile , -1, 0,1 30ga1 = a1 31 endin 32 33 instr 2 34iampr = ampdb(90+p4) 35 36idel = 5.6 ; 5.6 s * 76.2 37 38a1 = ga1 39 40ar convolve a1/ 2051189 , "IR5s.cv", 1 41 42a1 delay a1 , idel 43 44aenv expseg .8, idel, .8, 2, 0.01, p3-idel-2, 0.01 45aenvr expseg .25, idel, .25, 2, 1, p3-idel-2, 1 46 47aout = (a1*aenv) +(ar*aenvr*iampr) 48 49 out aout 50ga1 = 0 51 endin 52;============================================= 53 54</CsInstruments> 55<CsScore> 56t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 57 58;durerev= 5.6*76.2 + 3*76.2 = 426.72+228.6=655.32 59 60; p4 61; ifile 62i1 0 171 "H01.wav" 63; p4 64; iampr 65i2 0 1024.42 0 66 67; dur 171 68 69e 70 71</CsScore> 72</CsoundSynthesizer>