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