;@ map kFreq d FLTfrq
;@ map kModLev d CLA000
;@ map kKBT d BUT002
;@ map kRes d FLTres
;@ map iRoll d BUT003
;@ map kOn d BUT002

;TODO: KBT, Pitch modulation..

;@ ins a:In k:kModIn
;@ outs a:Out
;;@ args kkkkik,ak,a
opcode FltClassic, 0, kkkkikkkk
  asig[] init 4
  kFreq,kModLev,kKBT,kRes,iRoll,kOn, kIn,kModIn, kOut xin
  ain zar kIn
  kmod zkr kModIn
  ;kPitch zkr 
  if kOn==1 then
    asig[0],asig[1],asig[2],asig[3] mvclpf4 ain,kFreq + kModLev*kModIn ,kRes
    afout = asig[iRoll+1]
    aout balance afout, ain
  else
    aout = ain
  endif
  zaw aout, kOut
endop
