1<CsoundSynthesizer>
2
3; Id: H00_a.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 -oH00_a.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	expseg .001 , .005, 1 , p3-.01 ,1, .005,.001
29
30aout	= a1 * aenv
31
32	out aout
33	endin
34;=============================================
35
36;=============================================
37; FILTERED NOISE (N)
38;=============================================
39	instr 2
40iamp	= ampdb(89+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	expseg .001 , .005, .8 , p3-.01 ,.8 ,.005,.001
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*400 , if2 , 2
75afilt	butterbp afilt*380 , ifreq , ibw*.05
76
77
78aenv	linseg 1 , p3-.01, 1 , .01 , 0
79
80aout	= afilt * aenv
81
82	out aout*(sr/192000)
83	endin
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; 180. MATERIAL H
103; 181. total length: 171 cm, 5 sections
104;
105; sequence a
106;
107; length    sequence
108; 29.2   cm (3)
109; 65.6   cm (5)
110; 43.8   cm (4)
111; 13     cm (1)
112; 19.5   cm (2)
113;==================================================
114
115;==================================181.11
116; 29.2 cm 10/9
117;----------------------------------------
118;			p4	p5
119;			iamp	ifreq	timbre
120;			[dB]	[Hz]
121i3	0	3	-2.5	1467	; I
122i3	+	2.7	-2.5	1436    ; I
123i3	+	4.6	-1.5	1345    ; I
124i3	+	3.7	-2.5	1532    ; I
125i2	14	3.4	-4	1499	; R
126i3	17.4	5.1	-1.5	1375    ; I
127i3	+	4.2	-2.8	1566    ; I
128i3	+	2.5	-2	1405    ; I
129s
130t0	4572
131;==================================181.12
132; 65.6 cm 8/7
133;----------------------------------------
134; x
135i2	0	5.6	-9	1037	; R
136i2	+	4.9	-10	972     ; R
137i3	10.5	9.6	-8	1345    ; I
138i3	+	7.3	-9	1532    ; I
139i2	27.4	6.4	-10	1499    ; R
140i2	+	10.9	-10	1375    ; R
141i2	+	8.4	-10	1566    ; R
142i3	53.1	12.5	-8.5	1499    ; I
143
144; y
145i2	0	5.6	-10	2691	; R
146i2	+	4.9	-10	2263    ; R
147i3	10.5	9.6	-10.5	1903    ; I
148i3	+	7.3	-9	1600    ; I
149i2	27.4	6.4	-10	1467    ; R
150i2	+	10.9	-10	1745    ; R
151i2	+	8.4	-10	2075    ; R
152i3	53.1	12.5	-12.5	2468    ; I
153s
154t0	4572
155;==================================181.13
156; 43.8 cm 9/8
157;----------------------------------------
158i2	0	7.1	-4 	1131	; R
159i2	+	6.3	-4 	1288    ; R
160i2	+	4.4	-4 	1467    ; R
161i2	+	3.5	-4  	1671    ; R
162i2	+	8	-6	1903    ; R
163i2	+	5	-4 	2167    ; R
164i2	+	3.9	-4 	2467    ; R
165i2	+	5.6	-4 	2810    ; R
166s
167t0	4572
168;==================================181.14
169; 13 cm 12/11
170;----------------------------------------
171; x
172i1	0	1.7	-6	1745	; S
173i2	1.7	1.5	-10	1708    ; R
174i2	+	1.2	-10	1600    ; R
175i2	+	2	-10	1822    ; R
176i1	6.4	1.8	-6	1783    ; S
177i1	+	1.3	-6	1635    ; S
178i2	9.5	2.1	-10	1862    ; R
179i2	+	1.4	-10	1671    ; R
180; y
181i1	0	1.7	-6	1566	; S
182i2	1.7	1.5	-10	1499    ; R
183i2	+	1.2	-10	1436    ; R
184i2	+	2	-10	1375    ; R
185i1	6.4	1.8	-6	1345    ; S
186i1	+	1.3	-6	1405    ; S
187i2	9.5	2.1	-10	1467    ; R
188i2	+	1.4	-10	1532    ; R
189s
190t0	4572
191;==================================181.15
192; 19.4 cm 11/10
193;----------------------------------------
194; x
195i1	0	2.3	-8	800	; S
196i1	+	2	-8	951     ; S
197i1	+	3.3	-8	1131    ; S
198i2	7.6	2.7	-10	1345    ; R
199i1	10.3	2.5	-8	1600    ; S
200i1	+	1.7	-8	1903    ; S
201i1	+	3	-8	2263    ; S
202i1	+	1.9	-8	2691    ; S
203; y
204i1	0	2.3	-8	3200	; S
205i1	+	2	-8	2691    ; S
206i1	+	3.3	-8	2263    ; S
207i2	7.6	2.7	-9	1903    ; R
208i1	10.3	2.5	-8	1600    ; S
209i1	+	1.7	-8	1345    ; S
210i1	+	3	-8	1131    ; S
211i1	+	1.9	-8	951     ; S
212
213; total length: 171 cm
214e
215</CsScore>
216</CsoundSynthesizer>