1 <CsoundSynthesizer> 2 3; Id: A04_FILT06.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 -oA04_FILT06.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 213.6 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*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 1539 400 800 "A03_TR06.wav" 47 48e 49 50</CsScore> 51</CsoundSynthesizer>