1<CsoundSynthesizer>
2
3; Id: E04_d_REV03.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 -oE04_d_REV03.wav
11</CsOptions>
12
13<CsInstruments>
14
15sr     = 192000
16kr     = 192000
17ksmps  = 1
18nchnls = 1
19
20;=============================================
21; 254.d.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*.3 +(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	397	-17	"E03_d_TR03.wav"
46;durrev= 5*76.2 = 381
47; dur = 16 + durrev
48e
49
50</CsScore>
51</CsoundSynthesizer>