1<CsoundSynthesizer>
2
3; Id: H07_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 -oH07_REV01.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 284.1 REVERBERATION
22;=============================================
23	instr 1
24iampr	= ampdb(p4)
25ifile	= p5
26
27a1	diskin2 ifile , 1
28
29ar	nreverb a1, 5, .3
30
31; decreasing and increasing reverberation
32aenvr	expseg  1, 2.2, ampdb(-30) , 2.2, 1 , p3-4.4, 1
33aenv	expseg .1, 2.2, 1, 2.2, .25,  p3-4.4, 0.0001
34
35aout	=  (a1*aenv) +(ar*aenvr*iampr)
36aout	atonex aout, 10
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
48i1	0	723	-12	"H06_TR01.wav"
49
50;durrev= 5*76.2 = 381
51; dur = 342 + durrev
52e
53
54</CsScore>
55</CsoundSynthesizer>