;@ map s 5 CLA000 CLAEXP MIXdbl
;@ map d BUT002
;@ map s 5 CLA000 CLAEXP MIXdbl
;@ map d BUT002
;@ map d BUT003

;@ ins k k k
;@ outs k
opcode Mix21A, 0, iiiiiiiii
    ; TODO: lin/log scale, chain input
    iLev1, iSw1, iLev2, iSw2, iScale, izIn1, izIn2, izInChain, izOut xin
  k1 zkr izIn1
  k2 zkr izIn2
  k3 zkr izInChain
  kout = k1 + k2*iLev1*iSW1 + k3*iLev2*iSW2
  zkw kout, izOut
endop

;@ ins a a a
;@ outs a
opcode Mix21A, 0, iiiiiiiii
    ; TODO: lin/log scale, chain input
    iLev1, iSw1, iLev2, iSw2, iScale, izIn1, izIn2, izInChain, izOut xin
  a1 zar izIn1
  a2 zar izIn2
  a3 zar izInChain
  aout = a1 + a2*iLev1*iSW1 + a3*iLev2*iSW2
  zaw aout, izOut
endop
