1<CsoundSynthesizer>
2
3; Id: G07_REV-21.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-21.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, 0,1
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*.2) + (ar*iampr)
41aout	atonex aout, 10
42
43	out aout
44	endin
45;=============================================
46
47</CsInstruments>
48<CsScore>
49t0	4572		; 76.2 cm/sec. tape speed (durations in cm)
50
51;durerev= 5.6*76.2 = 426.72 cm
52;				p4
53;				ifile
54i1	0	12675		"G06_ABSCHNITT-2.wav"
55;				iampr
56i2	0	13056		-19
57
58;durrev= 5*76.2 = 381
59; dur = 12675 + durrev
60
61e
62
63</CsScore>
64</CsoundSynthesizer>