1<CsoundSynthesizer> 2 3; Id: A03_TR07.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 -oA03_TR07.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; 212.7 TRANSPOSITION (RESAMPLING) 22;============================================= 23 instr 1 24itrasp = p4 25ifile = p5 26 27a1 diskin2 ifile, itrasp 28 29ifrq = (sr*.5)*p4 ; anti-aliasing filter 30a1 tonex a1 , ifrq , 10 31a1 tonex a1 , ifrq , 10 32 33 out a1*1 34 endin 35;============================================= 36 37</CsInstruments> 38<CsScore> 39t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 40 41; p4 p5 42; itrasp ifile 43i1 0 769.5 .5 "A02_RM07.wav" ; 25/50 44 45e 46 47</CsScore> 48</CsoundSynthesizer>