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