1<CsoundSynthesizer>
2
3; Id: G07_REV-22.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 -oG07_REV-22.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 274. REVERBERATION
22; see 372.VII
23;=============================================
24	instr 1
25ifile	= p4
26
27a1	diskin2 ifile , 1, 5.6
28ga1	= a1
29
30	endin
31
32	instr 2
33
34iampr	= ampdb(p4)
35
36a1	=ga1
37
38ar	nreverb a1, 5, .3
39
40aout	= (a1*.15) + (ar*iampr)
41
42	out aout
43	endin
44;=============================================
45
46</CsInstruments>
47<CsScore>
48f1 0 4096 10 1
49t0	4572
50;durerev= 5.6*76.2 = 426.72
51
52;				p4
53;				ifile
54i1	0	13056		"G07_REV-21.wav"
55;				iampr
56i2	0	13437		-19
57
58;durrev= 5*76.2 = 381
59; dur = 13056 + durrev
60
61e
62
63</CsScore>
64</CsoundSynthesizer>