1<CsoundSynthesizer>
2
3; Id: B00_b.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 -oB00_b.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; SINUS TONES (S)
22;=============================================
23	instr 1
24iamp	= ampdb(90+p4)
25ifreq	= p5
26
27a1	oscili iamp , ifreq , 1
28aenv	linen 1 , .01 , p3 , .005
29
30aout	= a1 * aenv
31
32	out aout
33	endin
34;=============================================
35
36;=============================================
37; FILTERED NOISE (N)
38;=============================================
39	instr 2
40iamp	= ampdb(87+p4)
41ifreq	= p5
42ibw	= ifreq * .05		; filtered noise's bandwidth 5% of central frequency
43
44a1	rnd31 iamp , 1
45k1	rms a1
46
47afilt	butterbp a1 , ifreq , ibw
48afilt	butterbp afilt , ifreq , ibw
49
50aenv	linen .8,  .01 , p3 , .005
51
52aout	gain afilt , k1
53aout	= aout * aenv
54
55	out aout
56	endin
57;=============================================
58
59;=============================================
60; FILTERED IMPULSES (I)
61;=============================================
62	instr 3
63iamp	= ampdb(90+p4)
64ifreq	= p5
65ibw	= ifreq * .01		; filtered pulse's bandwidth 1% of central frequency
66
67if1	= ifreq-(ibw/3)
68if2	= ifreq+((2*ibw)/3)
69
70
71a1	mpulse iamp , 0
72
73afilt	atonex a1 , if1 , 2
74afilt	tonex afilt*90 , if2 , 2
75afilt	butterbp afilt*500, ifreq , ibw *.05
76
77aenv	linseg 1 , p3-.005, 1 , .005 , 0
78
79aout	= afilt * aenv
80
81	out aout*(sr/192000)
82	endin
83;=============================================
84
85</CsInstruments>
86<CsScore>
87;functions--------------------------------------------------
88f1	0	8192	10	1	; sinusoid
89;/functions--------------------------------------------------
90
91t0	4572	; 76.2 cm/sec. tape speed (durations in cm)
92
93;test--------------------------------------------------
94;mute-------------------------------------------------
95q 1 0 1
96q 2 0 1
97q 3 0 1
98;/mute-------------------------------------------------
99;/test-------------------------------------------------
100
101;==================================================
102; 120. MATERIAL B
103; 121. total length: 256.5 cm, 6 sections
104;
105; sequence b1
106;
107; length   sequence
108; 62.5  cm (5)
109; 18.5  cm (2)
110; 12.3  cm (1)
111;
112; sequence b2
113;
114; length   sequence
115; 41.7  cm (4)
116; 93.7  cm (6)
117; 27.8  cm (3)
118
119;==================================================
120
121;************************************************** b1
122;==================================121.21
123; 62.5 cm ratio 8/7
124;----------------------------------------
125;			p4	p5
126;			iamp	ifreq	timbre
127;			[dB]	[Hz]
128i2	0	10.4	-5	6400	; R
129i2	+	7	-5	4032    ; R
130i2	+	9.1	-5	5702    ; R
131i2	+	5.3	-5	2540    ; R
132i2	+	6.1	-5	3592    ; R
133i2	+	8	-5	1600    ; R
134i1	45.9	11.9	-3	5080    ; S
135i2	57.8	4.7	-5	2263    ; R
136s
137t0	4572
138;==================================121.22
139; 18.5 cm ratio 11/10
140;----------------------------------------
141i2	0	1.9	-4	1008	; R
142i2	+	3.2	-4	3200    ; R
143i1	5.1	1.8	-2	1426    ; S
144i1	+	2.6	-2	4526    ; S
145i2	9.5	2.9	-4	635     ; R
146i2	+	1.6	-4	2016    ; R
147i1	14	2.1	0	898     ; S
148i1	+	2.4	0	2851    ; S
149s
150t0	4572
151;==================================121.23
152; 12.3 cm ratio 12/11
153;----------------------------------------
154i1	0	1.4	0	1270	; S
155i2	1.4	1.1	-3	566     ; R
156i1	2.5	1.3	0	1796    ; S
157i1	+	1.9	0	800     ; S
158i1	+	2.1	0	1131    ; S
159i1	+	1.2	0	504     ; S
160i1	+	1.6	0	713     ; S
161i1	+	1.6	0	449     ; S
162s
163;************************************************** b2
164;==================================121.24
165; 41.7 cm ratio 9/8
166;----------------------------------------
167t0	4572
168i2	0	6	-3	400	; R
169i2	+	4.2	-3	635	; R
170i2	+	5.3	-3	449     ; R
171i1	15.5	3.3	-3	1008    ; S
172i2	18.8	3.8	-3	713     ; R
173i2	+	4.7	-3	1600    ; R
174i1	27.3	6.8	-3	504     ; S
175i1	+	7.6	-3	1131    ; S
176s
177t0	4572
178;==================================121.25
179; 93.7 cm ratio 7/6
180;----------------------------------------
181i2	0	6.4	-3	2540	; R
182i1	6.4	13.9	-3	800     ; S
183i1	+	18.9	-3	1796    ; S
184i1	+	10.2	-3	566     ; S
185i1	+	11.9	-3	4032    ; S
186i1	+	16.2	-3	1270    ; S
187i1	+	7.5	-3	2851    ; S
188i3	85	8.7	11.5	898     ; I
189s
190t0	4572
191;==================================121.26
192; 27.8 cm ratio 10/9
193;----------------------------------------
194i1	0	2.6	-3	2016	; S
195i1	+	4.4	-3	4526    ; S
196i3	7	2.3	7.5	1426    ; I
197i3	+	3.6	1	3200    ; I
198i1	12.9	3.9	-3	2263    ; S
199i3	16.8	4.9	-2.5	5080    ; I
200i3	+	2.9	0	3592    ; I
201i3	+	3.2	-3	5702    ; I
202
203; total length: 256.5 cm
204e
205
206</CsScore>
207</CsoundSynthesizer>