1<CsoundSynthesizer>
2
3; Id: H05_REV04.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 -oH05_REV04.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 284.4 REVERBERATION
22;=============================================
23
24; backwards reverberation
25
26	instr 1
27ifile	= p4
28
29a1	diskin2 ifile , -1, 0,1
30ga1	= a1
31	endin
32
33	instr 2
34iampr	= ampdb(90+p4)
35
36idel	= 5.6 ; 5.6 s * 76.2
37
38a1	= ga1
39
40ar	convolve a1/ 2051189 , "IR5s.cv", 1
41
42a1	delay a1 , idel
43
44aenv	expseg .8,   idel, .8,   2, 0.01, p3-idel-2, 0.01
45aenvr	expseg .25,  idel, .25,  2, 1,     p3-idel-2, 1
46
47aout	=  (a1*aenv) +(ar*aenvr*iampr)
48
49	out aout
50ga1	= 0
51	endin
52;=============================================
53
54</CsInstruments>
55<CsScore>
56t0	4572		; 76.2 cm/sec. tape speed (durations in cm)
57
58;durerev= 5.6*76.2 + 3*76.2 = 426.72+228.6=655.32
59
60;			p4
61;			ifile
62i1	0	171	"H01.wav"
63;			p4
64;			iampr
65i2	0	1024.42	0
66
67; dur 171
68
69e
70
71</CsScore>
72</CsoundSynthesizer>