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>