1<CsoundSynthesizer> 2 3; Id: D03_FILT04.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_FILT04.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 243.4 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 33afilt atonex a1, if1 34afilt tonex afilt*6.5, if2 35 36 out afilt 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 2256 4512 "D02_RM04.wav" 47 48e 49 50</CsScore> 51</CsoundSynthesizer>