1<CsoundSynthesizer>
2
3; Id: G04_REV19-2.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 -oG04_REV19-2.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 274.19 REVERBERATION
22;=============================================
23	instr 1
24
25iampr	= ampdb(p4)
26
27ifile	= p5
28
29a1	diskin2 ifile, 1
30
31ar	nreverb a1, 5, .3
32
33aenvr	expseg iampr, p3*.4 ,iampr, p3*.4 , .001 , p3*.2 , .001
34aenv	expseg .05, p3*.4 , .25  ,p3*.4 , 1 , p3*.2 , 1
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	p5
47;			iampr	ifile
48;			[dB]
49i1	0	2328	-23.5 	"G03_TR19-2.wav"
50
51
52
53e
54
55</CsScore>
56</CsoundSynthesizer>