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