1<CsoundSynthesizer>
2
3; Id: A06_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 -f -oA06_ENV02.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 215.2 INTENSITY CURVES
22;=============================================
23	instr 1
24iamp1	= ampdb(p4)
25iamp2	= ampdb(p5)
26iamp3	= ampdb(p6)
27
28ifile 	= p7
29
30a1	diskin2 ifile, 1
31
32aenv	expseg iamp1,.9,iamp1,(p3-.9)/2,iamp2,(p3-.9)/2,iamp3
33
34aout	=  a1*aenv
35	out aout
36	endin
37;=============================================
38
39</CsInstruments>
40<CsScore>
41t0	4572		; 76.2 cm/sec. tape speed (durations in cm)
42
43;			p4	p5	p6	p7
44;			iamp1	iamp2	iamp3	ifile
45;			[dB]	[dB]	[dB]
46i1	0	384.7	0	-40	-0	"A04_FILT02.wav"
47
48e
49
50</CsScore>
51</CsoundSynthesizer>