<info>
i is ex4-4
ECMC Csound Tutorial example ex4-4
</info>
<tk_interface>
</tk_interface>
<mono>
;  #############################################################
;  soundfile ex4-4 : gbuzz : sub-audio fundamental & glissando
;  #############################################################
instr 1
amp expseg 1,.2*p3,8000,.7*p3,3000,.3*p3,1    ; amplitude envelope

; glissando :
   ipitch1 = (p4 > 0 ? cpspch(p4) : abs(p4)) ; negative values = cps
   ipitch2 = (p5 > 0 ? cpspch(p5) : abs(p5)) ; negative values = cps
kgliss expseg ipitch1,.2*p3,ipitch1,.6*p3,ipitch2,.2*p3,ipitch2

krenv expseg p8,.5*p3,p9, .5*p3,p8 ; kr envelope

a1 gbuzz amp,kgliss,p7,p6,krenv,1 
a1 tone a1,1500            ; filter out spurious high freuqncies
out a1
endin

</mono>
<stereo>
</stereo>
<score>

                  SCORE-11, Version 1.4
Copyright (C) 1982, 1990, 1992, 1995 by Alexander R. Brinkman
     Eastman School of Music, University of Rochester

f1 0 2048 9 1 1 90
  i1 0.000 4.500 -16 -14.500 3 40 0.500 0.900
  i1 5.000 4.500 -8.500 -9 42 10 0.800 1.400
  i1 10.000 4.500 -53 -49 13 40 0.300 0.900
e
</score>
