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
|
<info>
pichej, Tue Dec 23 14:29:26 EST 1997
New Module
</info>
<tk_interface>
cfilein name -label "FFT analysis file:"
cgraph fil1 -label "Filter Shape 1" -min 0 -max 1 -size 1024 -gen 12 -func "0 0 .002 0 .00201 1 .004 1 .00401 0 1 0"
cgraph fil2 -label "Filter Shape 2" -min 0 -max 1 -size 1024 -gen 13 -func "0 0 .005 0 .00501 1 .007 1 .00701 0 1 0"
cgraph fil3 -label "Filter Shape 3" -min 0 -max 1 -size 1024 -gen 14 -func "0 0 .007 0 .00701 1 .009 1 .00901 0 1 0"
cgraph fil4 -label "Filter Shape 4" -min 0 -max 1 -size 1024 -gen 15 -func "0 0 .01 0 .0101 1 .03 1 .0301 0 1 0"
cgraph fil5 -label "Filter Shape 5" -min 0 -max 1 -size 1024 -gen 16 -func "0 0 .04 0 .0401 1 .07 1 .0701 0 1 0"
csepar
cgraph index -label "Index" -min 0 -max 1 -func "0 0 1 1"
cslider total_time -unit s -ori h -min 1 -res .01 -max 300 -init 60
cslider analdur -label "Duration of analysis file" -rat i -unit s -ori h -min 1 -res .01 -max 300 -init 30
cslider gain -label "Output Gain" -rat k -unit x -min .1 -res .1 -max 6 -init 3
cgraph env -label "Filter movement" -unit # -rel raw -min 1 -max 5.5 -gen 18 -func "0 1 .5 5.5 1 1"
</tk_interface>
<mono>
; mono template
instr 1
inex = 1
it11 table 0, 18, 0
reset:
it22 table inex, 18, 0
it33 table inex+1, 18, 0
it1 = int(it11)+11
itim = it22/ftlen(18)*[total_time]
it3 = int(it33)+11
inex = inex+2
it11 = it33
tableseg it1, itim, it3,
timout 0, itim, go
reinit reset
go:
ar vpvoc gkindex*gianaldur, 1, "[name]"
out ar
endin
</mono>
<stereo>
; stereo template
instr 1
inex = 1
it11 table 0, 18, 0
reset:
it22 table inex, 18, 0
it33 table inex+1, 18, 0
it1 = int(it11)+11
itim = it22/ftlen(18)*[total_time]
it3 = int(it33)+11
inex = inex+2
it11 = it33
tableseg it1, itim, it3,
print it3, it33
timout 0, itim, go
reinit reset
go:
ar vpvoc gkindex*gianaldur, 1, "[name]"
ag delay ar, .1
outs ar*gkgain, ag*gkgain
endin
</stereo>
<quad>
; quad template
instr 1
outq a1, a2, a3, a4
endin
</quad>
<score>
f1 0 8192 10 1
i1 0 [total_time]
e
</score>
|
