<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>
