1<CsoundSynthesizer> 2 3; Id: F02_REV.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 -oF02_REV.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 264.1-4 REVERBERATION 22;============================================= 23 instr 1 24iampr = ampdb(p4) 25 26ifile = p5 27 28a1 diskin2 ifile, 1 29 30ar nreverb a1, 5, .3 31 32aout = (ar*iampr) 33 34 out aout 35 endin 36;============================================= 37 38</CsInstruments> 39<CsScore> 40t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 41 42; p4 p5 43; iampr ifile 44i1 0 495 -14 "F01.wav" 45;durrev= 5*76.2 = 381 46; dur = 114 + durrev 47e 48 49</CsScore> 50</CsoundSynthesizer>