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>