1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
<info>
Stereo Reverb
Independant direct - reverb mix
early reflection control
stereo only
Jean Piche, 1996
</info>
<tk_interface>
cfilein source -label "Source"
cgraph revlevel -label "Reverb\nLevel" -min 0.001 -max .99 -init .35
csepar
cgraph dist -label Distance\n -min .001 -max 2 -init 1.6
cslider lenh -label "Reverb duration" -unit sec. -res .001 -min .1 -max 20 -init 3.5 -co lightpink
cslider hiatt -label "Hi-FreqAttenuation" -res .01 -min 0 -max .99 -init .53 -co lightpink
cslider reflectl -label "Early Reflections right" -uni sec. -res .001 -min .001 -max .5 -init .027 -co forestgreen
cslider reflectr -label "Early Reflections left" -uni sec. -res .001 -min .001 -max .5 -init .02 -co forestgreen
cslider feedback -label "Reflections Sustain" -res .01 -min 0 -max .99 -init .5 -co forestgreen
cslider chor -label "Chorus Depth" -res .01 -min 0 -max 1 -init .05 -co lightcyan
cslider rate -label "Chorus Rate" -res .01 -min 0 -max 16 -init 1 -co lightcyan
cslider total_time -unit sec. -min 1 -res .01 -max 300 -init 30
</tk_interface>
<mono>
instr 1
krev = 0
itype init [sinfo source chn]
ifac init (itype = 2?1:0.5) * [sinfo source sr] / sr
asig diskin "[source]", ifac, [offsource]
kroc oscil gkchor*.1, gkrate, 1
khif = gkhiatt
kmix = abs(1-gkdist *0.5)
ktim1 = gkreflectl
ktim2 = gkreflectr
adr init 0
adr vdelay asig+(adr*gkfeedback), ktim1*1000, 1000
adr alpass adr, gklenh, .0029678
adr2 vdelay adr, 55*(1+kroc), 150
ard reverb2 (adr2+adr)*.5, gklenh, khif
out (asig*kmix)+(ard*gkrevlevel*.4)
endin
</mono>
<stereo>
instr 1
krev = 0
itype init [sinfo source chn]
ifac init (itype = 2?1:0.5) * [sinfo source sr] / sr
asig, asid diskin "[source]", ifac, [offsource]
asid = (itype = 2?asid:asig)
kroc oscil gkchor*.1, gkrate, 1
khif = gkhiatt
kmix = abs(1-gkdist *0.5)
ktim1 = gkreflectl
ktim2 = gkreflectr
adr7 init 0
adg8 init 0
;
adr multitap asig, .0073472, .52, .01276, .33, .0186346, .21, .0218359, .11
adg multitap asid, .0063472, .55, .010276, .31, .01786346, .21, .019218359, .11
adr7 vdelay (adg + adg8*gkfeedback), ktim1*1000, 1000
adg8 vdelay (adr + adr7*gkfeedback), ktim2 *1000, 1000
adr3 alpass adr7, gklenh, .0029678
adg4 alpass adg8, gklenh, .0017654
adr2 vdelay adr3, 55*(1+kroc), 150
adg2 vdelay adg4, 51*(1+kroc) , 150
ard reverb2 (adg2+adr)*.65, gklenh, khif
arg reverb2 (adr2+adg)*.65, gklenh, khif
outs (asig*kmix)+(ard*gkrevlevel*.4), (asid*kmix)+(arg*gkrevlevel*.4)
endin
</stereo>
<quad>
</quad>
<score>
f1 0 8192 10 1
i1 0 [total_time]
</score>
|
