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