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