1<CsoundSynthesizer> 2 3; Id: E02_d_RM01.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 -oE02_d_RM01.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;==================================== 21; 251.d.1 RING MODULATION 22;==================================== 23 instr 1 24ifreq = p4 25ibw = ifreq * .05 26 27if1 = ifreq-(ibw/3) 28if2 = ifreq+((2*ibw)/3) 29 30ifile = p5 31 32a1 diskin2 ifile, 1 33 34kfrq randi .2 , 20 , .99 , 1 ; random filtered impulses (I) 35kfrq = 20 * (1 + kfrq) 36a2 mpulse 1, 1/kfrq 37 38afilt atonex a2 , if1 , 2 39afilt tonex afilt*270 , if2 , 2 40afilt butterbp afilt*900 , ifreq , ibw*.01 41 42arm = afilt * a1 43 44aout = (arm )+(a1*.7) 45 46 out aout*.65 47 endin 48;==================================== 49 50</CsInstruments> 51<CsScore> 52f1 0 4096 10 1 53 54t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 55 56i1 0 128.1 100 "E01_d.wav" 57 58e 59 60</CsScore> 61</CsoundSynthesizer>