1<CsoundSynthesizer>
2
3; Id: A05_REV01.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 -oA05_REV01.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 214.1 REVERBERATION
22;=============================================
23	instr 1
24iampr	= ampdb(p4)				; duration of reverberated file
25ifile 	= p5
26
27a1	diskin2 ifile, 1
28
29ar	nreverb a1, 5, 0.5
30
31aenvr	expseg .5 , .7 , .5  , .562 , 1, p3-1.262, 1
32aenvr	= aenvr * iampr
33aenv	expseg 1,  .9 , 1  , .362 , .85 , p3-1.262 , .85
34
35
36aout	= a1*aenv + (ar*aenvr)
37
38	out aout
39	endin
40;=============================================
41
42</CsInstruments>
43<CsScore>
44t0	4572		; 76.2 cm/sec. tape speed (durations in cm)
45
46;			p4
47;			iampr	ifile
48;			[dB]
49i1	0	477.2	-15	"A04_FILT01.wav" ;
50
51; durrev = 5 * 76,2 = 381
52; dur = 96.2 + durrev
53e
54
55</CsScore>
56</CsoundSynthesizer>