1<CsoundSynthesizer>
2
3; Id: H06_ENV02.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 -oH06_ENV02.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 19200
17ksmps  = 10
18nchnls = 1
19
20;=============================================
21; 285.2 INTENSITY CURVES
22;=============================================
23	instr 1
24iamp	= ampdb(90+p4)/ 29834
25ifile	= p5
26
27a1	diskin2 ifile , 1, 5.6
28
29att	linen iamp , .01 , p3 , .01
30
31aout	=  a1* att
32
33	out aout
34	endin
35;=============================================
36
37</CsInstruments>
38<CsScore>
39t0	4572		; 76.2 cm/sec. tape speed (durations in cm)
40
41;			p4	p5
42;			iamp1	ifile
43;			[dB]
44i1	0	465.78	-15	"H05_REV02.wav"
45
46e
47
48</CsScore>
49</CsoundSynthesizer>