;@ map MIXPAN

;@ ins k k k
;@ outs k
opcode Fade2, 0, kkkkkk
  kMix,kmod,kin1,kin2,kmodin,kout xin
  kIn1 zkr kin1
  kIn2 zkr kin2
  kMod zkr kmodin

  kM = kmod * kMod ;* 1/64

    kPL table kMix + kM, giMIXPAN
    kPR table 127 - kMix - kM, giMIXPAN

  kO = kPL * kIn1 + kPR * kIn2

  zkw kO, kout
endop

;@ ins a a a
;@ outs a
opcode Fade2, 0, kkkkkk
  kMix,kmod,kin1,kin2,kmodin,kout xin
  aIn1 zar kin1
  aIn2 zar kin2
  aMod zar kmodin

  aM = kmod * aMod ;* 1/64

  aPL table kMix + aM, giMIXPAN
  aPR table 127 - kMix - aM, giMIXPAN

  aO = aPL * aIn1 + aPR * aIn2

  zaw aO, kout
endop
