1<CsoundSynthesizer> 2 3; Id: D03_FILT02.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 -oD03_FILT02.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 243.2 FILTERINGS 22;============================================= 23 instr 1 24if1 = p4 25if2 = p5 26ibw = p5-p4 27ifc = if1+(ibw*.333) 28 29ifile = p6 30 31a1 diskin2 ifile, 1 32 33af1 atonex a1, if1 34af2 tonex af1, if2 35 36 out af2 * 8 37 endin 38;============================================= 39 40</CsInstruments> 41<CsScore> 42t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 43 44; p4 p5 p6 45; if1 if2 ifile 46i1 0 865.7 1128 2256 "D02_RM02.wav" 47 48e 49 50</CsScore> 51</CsoundSynthesizer> 52