1<CsoundSynthesizer>
2
3; Id: G01.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 -oG01.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20
21;=============================================
22; SINUS TONES (S)
23;=============================================
24	instr 1
25iamp	= ampdb(90+p4)
26ifreq	= p5
27
28a1	oscili iamp , ifreq , 1
29aenv	expseg .001 , .005, 1 , p3-.01 ,1, .005,.001
30
31aout	= a1 * aenv
32
33	out aout
34	endin
35;=============================================
36
37;=============================================
38; FILTERED NOISE (N)
39;=============================================
40	instr 2
41iamp	= ampdb(90+p4)
42ifreq	= p5
43ibw	= ifreq * .05		; filtered noise's bandwidth 5% of central frequency
44
45a1	rnd31 iamp , 1
46k1	rms a1
47
48afilt	butterbp a1 , ifreq , ibw
49afilt	butterbp afilt , ifreq , ibw
50
51aenv	expseg .001 , .005, .8 , p3-.01 ,.8 ,.005,.001
52
53aout	gain afilt , k1
54aout	= aout * aenv
55
56	out aout
57	endin
58;=============================================
59
60;=============================================
61; FILTERED IMPULSES (I)
62;=============================================
63	instr 3
64iamp	= ampdb(86+p4)
65ifreq	= p5
66ibw	= ifreq * .01		; filtered pulse's bandwidth 1% of central frequency
67
68if1	= ifreq-(ibw/3)
69if2	= ifreq+((2*ibw)/3)
70
71
72a1	mpulse iamp , 0
73
74afilt	atonex a1 , if1 , 2
75afilt	tonex afilt*800 , if2 , 2
76afilt	butterbp afilt*340 , ifreq , ibw*.05
77
78
79aenv	linseg 1 , p3-.01, 1 , .01 , 0
80
81aout	= afilt * aenv
82
83	out aout*(sr/192000)
84	endin
85;=============================================
86</CsInstruments>
87<CsScore>
88;functions--------------------------------------------------
89f1	0	8192	10	1	; sinusoid
90;/functions--------------------------------------------------
91
92t0	4572	; 76.2 cm/sec. tape speed (durations in cm)
93
94;test--------------------------------------------------
95;mute-------------------------------------------------
96q 1 0 1
97q 2 0 1
98q 3 0 1
99;/mute-------------------------------------------------
100;/test-------------------------------------------------
101
102;==================================================
103; 170. MATERIAL G
104; 171. total length: 1298.5 cm, 10 sections
105;
106; length     sequence
107; 38.7    cm (4)
108; 440.5   cm (10)
109; 58      cm (5)
110; 11.4    cm (1)
111; 17.2    cm (2)
112; 130.5   cm (7)
113; 87      cm (6)
114; 25.8    cm (3)
115; 293.6   cm (9)
116; 195.8   cm (8)
117;==================================================
118
119;==================================171.1
120; 38.7 cm 9/8
121;---------------------------------------
122;			p4	p5
123;			iamp	ifreq
124;			[dB]	[Hz]
125i1	0	5.6	0	3200	; S
126i1	+	4.9	0	2691	; S
127i1	+	3.5	0	2263	; S
128i1	+	7	-.5	3064	; S
129i1	+	6.3	-.2	2577	; S
130i1	+	3.9	0	1903	; S
131i1	+	3.1	0	2167	; S
132i1	+	4.4	0	1600	; S
133s
134t0	4572
135;==================================171.2
136; 440.5 cm 3/2
137;---------------------------------------
138i1	0	152.8	-6	2934	; S
139i1	+	101.9	-6	1822    ; S
140i1	+	30.2	-5	2467    ; S
141i1	+	13.4	0	1345    ; S
142i1	+	8.9	0	1532    ; S
143i1	+	45.3	-1	2075    ; S
144i1	+	20.1	-.7	1745    ; S
145i3	372.6	67.9	-2	1131    ; I
146s
147t0	4572
148;==================================171.3
149; 58 cm 8/7
150;---------------------------------------
151i1	0	9.6	-.3	1288	; S
152i1	+	8.4	-1	2810    ; S
153i1	+	5.7	0	1467    ; S
154i1	+	4.3	0	2363    ; S
155i1	+	11.1	-.5	1083    ; S
156i1	+	6.5	0	1987    ; S
157i1	+	5	0	951     ; S
158i1	+	7.4	-.7	1233    ; S
159s
160t0	4572
161;==================================171.4
162; 11.4 cm 12/11
163;---------------------------------------
164i1	0	1.3	0	1671	; S
165i3	1.3	1.2	.5	911     ; I
166i3	+	1.9	-.5	1037    ; I
167i3	+	1.6	-3	1405    ; I
168i1	6	1.5	0	800     ; S
169i1	+	1	0	1181    ; S
170i1	+	1.8	0	872     ; S
171i1	+	1.1	0	766     ; S
172s
173t0	4572
174;==================================171.5
175; 17.2 cm 11/10
176;---------------------------------------
177i1	0	1.7	0	993	; S
178i1	+	1.5	0	734     ; S
179i1	+	2.4	0	835     ; S
180i3	5.6	2	3	673     ; I
181i3	+	1.8	3.5	644     ; I
182i3	+	2.7	3	702     ; I
183i3	+	2.2	4	617     ; I
184i3	+	2.9	4	591     ; I
185s
186t0	4572
187;==================================171.6
188; 130.5 cm 6/5
189;---------------------------------------
190i1	0	7.9	0	566	; S
191i1	+	28.3	0	542     ; S
192i1	+	16.4	0	519     ; S
193i1	+	11.4	0	497     ; S
194i1	+	9.5	0	418     ; S
195i3	73.5	19.7	7	436     ; I
196i3	+	13.7	6	456     ; I
197i3	+	23.6	8.5	351     ; I
198s
199t0	4572
200;==================================171.7
201; 87 cm 7/6
202;---------------------------------------
203i3	0	11.1	6	476	; I
204i3	+	9.5	8	367     ; I
205i3	+	6	10 	295     ; I
206i3	+	15	8	383     ; I
207i1	41.6	12.9	0	248     ; S
208i1	+	6.9	0	308     ; S
209i1	+	17.5	0	400     ; S
210i3	78.9	8.1	13	209     ; I
211s
212t0	4572
213;==================================171.8
214; 25.8 cm 10/9
215;---------------------------------------
216i3	0	2.7	9.5	322	; I
217i3	+	2.4	11	259     ; I
218i3	+	4.1	14.5	176     ; I
219i3	+	3.3	16	148     ; I
220i3	+	3	9	336     ; I
221i3	+	4.5	12.5	218     ; I
222i3	+	3.7	11	271     ; I
223i3	+	2.1	17.5	124     ; I
224s
225t0	4572
226;==================================171.9
227; 293.6 cm 4/3
228;---------------------------------------
229i1	0	45.9	0	183	; S
230i3	45.9	34.4	19	104     ; I
231i3	+	14.5	10.5	283     ; I
232i3	+	81.5	12.5	228     ; I
233i3	+	61.2	15.5	154     ; I
234i3	+	19.4	13.5	192     ; I
235i3	+	10.9	17	130     ; I
236i3	+	25.8	12	238     ; I
237s
238t0	4572
239;==================================171.10
240; 195.8 cm 5/4
241;---------------------------------------
242i3	0	47.1	18.5	109	; I
243i3	+	37.6	15.5	161     ; I
244i3	+	19.3	13.5	200     ; I
245i3	+	12.3	17	135     ; I
246i3	+	9.9	15	168     ; I
247i3	+	24.1	18.5	114     ; I
248i3	+	15.4	16.5	141     ; I
249i3	+	30.1	18	119     ; I
250
251; total length: 1298.5 cm
252e
253</CsScore>
254</CsoundSynthesizer>