1<CsoundSynthesizer>
2
3; Id: A04_FILT01.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 -oA04_FILT01.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 213.1 FILTERINGS
22;=============================================
23	instr 1
24if1	= p4
25if2	= p5
26ibw	= p5-p4
27ifc	= if1+(ibw*.333)
28
29ifile	= p6
30
31a1	diskin2 ifile, 1
32
33afilt	atonex a1, if1
34afilt	tonex afilt*9, if2
35
36	out afilt
37	endin
38;=============================================
39
40</CsInstruments>
41<CsScore>
42t0	4572		; 76.2 cm/sec. tape speed (durations in cm)
43
44;			p4	p5	p6
45;			if1	if2	ifile
46i1	0	96.2	400	800	"A03_TR01.wav"
47
48e
49
50</CsScore>
51</CsoundSynthesizer>