1<CsoundSynthesizer>
2
3; Id: C03_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 -oC03_REV03.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 234.3 REVERBERATION
22;=============================================
23	instr 1
24
25iampr	= ampdb(p4)
26
27ifile	= p5
28
29a1	diskin2 ifile, 1
30
31ar	nreverb a1, 5, .3
32
33aout	=  a1*.35 +(ar*iampr)
34
35	out aout
36	endin
37;=============================================
38
39</CsInstruments>
40<CsScore>
41t0	4572		; 76.2 cm/sec. tape speed (durations in cm)
42
43;			p4	p5
44;			iampr	ifile
45i1	0	457	-25	"C01.wav"
46
47;durrev= 5*76.2 = 381
48; dur = 76 + durrev
49
50e
51
52</CsScore>
53</CsoundSynthesizer>