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>