<info>
pichej
Thu Mar 28 09:42:57 PST 1996
Shows use of graphical input for score control.
Generates grains at a pace determined by the rhythm function and 
the dur graph controls each grains's duration.
Other pitch and amplitude parameters are also controled by grpahs
</info>
<tk_interface>
cgraph rythm  -uni s -rel log -min 0.001 -max 1 -init .05 
cgraph dur -uni s   -min 0.001 -max 1 -init .05 
cgraph pitchhi -uni note  -min 4.0 -max 12.0 -init 8.0 
cgraph pitchlo -uni note  -min 4.0 -max 12.0 -init 6.0 
cgraph amp -uni db   -min 40 -max 80 -init 75.0 
cslider duree_totale -uni sec. -res .1 -min 10 -max 300 init  30
</tk_interface>
<mono>

</mono>
<stereo>
instr 1
krang	=  (gkpitchhi-gkpitchlo)	
kpit	rand	krang, .987
gkpit 	=  kpit +gkpitchlo
endin

  instr 2

ipit 	=	i(gkpit)

ar	oscil		ampdb(p4-10), cpsoct(ipit), 14  
ad	oscil		ampdb(p4-10), cpsoct(ipit)*1.01, 14

ad	linen	ad, .001, p3, p3*.9
ar	linen	ar, .001, p3, p3*.9
outs	ar, ad
    endin
</stereo>
<quad>

</quad>
<score>
#cyb

f14 0 8192 10 1 0 0 0 1 1 0 0 1 .1 1 0 0 0 0 1

instr 1
p 2  {sq [duree_totale] [duree_totale]s}  ;
p 3  {sq [duree_totale]  [duree_totale]s} ;
e

instr 2
p 2  {gr rythm [duree_totale]s}  ;
p 3  {gr dur [duree_totale]s} ;
p 4  {gr amp [duree_totale]s} ;
e
</score>
