1<CsoundSynthesizer>
2
3; Id: B05_ENV01.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 -oB05_ENV01.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 225.1 INTENSITY CURVES
22;=============================================
23	instr 1
24iamp1	= ampdb(p4)
25iamp2	= ampdb(p5)
26
27ifile	= p6
28
29a1	diskin2  ifile, 1
30
31aenv	expseg iamp1,p3,iamp2
32
33aout	=  a1*aenv
34
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
44;			iamp1	iamp2	ifile
45;			[dB]	[dB]
46i1	0	388.6	-40	-15	"B03_TR01.wav"
47
48e
49
50</CsScore>
51</CsoundSynthesizer>