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
|
<info>
Specify envelopes for amp and modulation index
Study Cybil score...
Jean Piche, 1997
</info>
<tk_interface>
cgraph envelope -uni s -min 0 -max 1 -init .5 -gen 18
cgraph indenvelope -uni s -min 0 -max 1 -init .5 -gen 19
cgraph volume -unit db -min 10 -max 80 -init 60.0
cslider total_time -un s -res 1 -min 5 -max 240 -init 30
</tk_interface>
<mono>
>
pichej
Sun Mar 31 22:34:20 PST 1996
Cybil demo
Load any sound and adjust index points in score
</info>
<tk_interface>
cec_graph amp db li 10 80 60.0 3
cec_graph envelope s li 0 1 .5 18
cec_graph indenvelope s li 0 1 .5 19
cec_slider total_time i s h 1 5 240 30
</tk_interface>
</mono>
<stereo>
instr 1, 2, 3
aenv oscil 1, 1/p3, 18
kenv oscil 1, 1/p3, 19
ar foscili ampdb(gkvolume)*aenv, cpspch(p4), p5, p6, p7*kenv, 1
outs ar, ar
endin
</stereo>
<quad>
</quad>
<score>
#cyb
;header
f1 0 8192 10 1
instr 1 2 3
p2 {sq {sq {ran f 0.1 0.15} 40} 1 [total_time]s};
p3 {sq {lo .5 2 40} 1 [total_time]s} ;
p4 {sq {ma f [ran i 4 5] {ran i 4 6} 10 10 40} [total_time]s};
p5 {ma f 0.3 1 3 .2 [total_time]s};
p6 {ma f 1 2 4 6 [total_time]s};
p7 {sq {ran f 1 4} [total_time]s};
e
</score>
|
