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
|
<info>
Interpolation between two FFT analysis files
Jean Piche, 1997
</info>
<tk_interface>
cfilein name -label "FFT Analysis File 1"
cfilein name2 -label "FFT Analysis File 2"
cgraph index -label "Index into\nAnalysis File 1" -min 0 -max 1 -init .5 -func "0 1 1 0"
cgraph index2 -label "Index into\nAnalysis File 2" -min 0 -max 1 -init .5 -func "0 0 1 1"
csepar
cgraph freqsca1 -label "Frequency Scale\nFile 1" -min 0 -max 2 -init 1.0
cgraph freqsca2 -label "Frequency Scale\nFile 2" -min 0 -max 2 -init 1.0
csepar
cgraph ampsca1 -label "Amplitude Scale\nFile 1" -min 0 -max 1 -init 0.5
cgraph ampsca2 -label "Amplitude Scale\nFile 2" -min 0 -max 1 -init 0.5
csepar
cgraph freqinterp -label "Frequency\n Interpolation" -min 0 -max 1 -init 0.1 -func "0 0.1 1 .91"
cgraph ampinterp -label "Amplitude\n Interpolation" -min 0 -max 1 -init 0.9 -func "0 .90 1 .1"
cslider total_time -label "Total Duration" -un sec. -ra i -res 1 -min 5 -max 240 -init 30
cslider analdur1 -label "Duration of Analysis File 1" -un sec. -ra i -res .1 -min 1 -max 120 -init 30
cslider analdur2 -label "Duration of Analysis File 2" -un sec. -ra i -res .1 -min 1 -max 120 -init 30
cslider amp -label "Gain" -res .1 -min .1 -max 4 -init 1
</tk_interface>
<mono>
instr 1
pvbufread gkindex*[analdur1], "[name]"
ar pvinterp gkindex2*[analdur2], 1, "[name2]", gkfreqsca1, gkfreqsca2, gkampsca1, gkampsca2, gkfreqinterp, gkampinterp
out ar*gkamp
endin
</mono>
<stereo>
instr 1
kpind port gkindex, .02
pvbufread gkindex*[analdur1], "[name]"
ar pvinterp gkindex2*[analdur2], 1, "[name2]", gkfreqsca1, gkfreqsca2, gkampsca1, gkampsca2, gkfreqinterp, gkampinterp
ag delay ar, .05
outs ar*gkamp, ag*gkamp
endin
</stereo>
<quad>
</quad>
<score>
f1 0 8192 10 1
i1 0 [total_time]
e
</score>
|
