1<CsoundSynthesizer> 2 3; Id: D02_RM06.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 -oD02_RM06.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20 21;==================================== 22; 241.6 RING MODULATION 23;==================================== 24 instr 1 25ifreq = p4 26ibw = ifreq * .05 27 28ifile = p5 29 30a1 diskin2 ifile, 1 31 32a2 rand 1, .5 , 1 ; filtered noise 33afilt butterbp a2 , ifreq , ibw 34afilt butterbp afilt*22 , ifreq , ibw 35 36aout = a1 * afilt 37 38 out aout 39 endin 40;==================================== 41 42</CsInstruments> 43<CsScore> 44f1 0 4096 10 1 45 46t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 47 48; p4 p5 49; ifreq ifile 50; [Hz] 51i1 0 865.7 1600 "D01.wav" 52 53e 54 55</CsScore> 56</CsoundSynthesizer>