<info>
i is ex5-5
ECMC Csound Tutorial example ex5-5
</info>
<tk_interface>
</tk_interface>
<mono>
;  #############################################################
;  soundfile ex5-5   : center freq. & bandwidth vary during each note
;  #############################################################
; p4 = center frequency  ; p5 = bandwidth

instr 1
  k1 expseg 1,p6,8000,p3-(p6+p7),5000,p7,1
  a1 rand k1
; bandpass filter values:
  k1 expseg p8,p6,p9,p3-(p6+p7),p10,p7,p11        ; bandwidth envelope
  p4 = (p4<15? cpspch(p4) : p4)
  p5 = (p5<15? cpspch(p5) : p5)
  k2 expon p4,p3,p5                               ; center frequency

  a1 reson a1,k2,k1*k2,2
  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

  i1 0.000 2.000 7.09 8.09 0.250 0.250 5.000 2.000 0.500 0.100
  i1 2.000 2.000 11.02 7.03 0.250 0.250 0.200 1.000 3.000 8.000
  i1 4.000 2.000 6.00 6.06 0.250 0.250 8.000 1.000 4.000 0.500
e
</score>
