;@ map LVLlev LVLpos

;@ outs k
opcode ConstSwM, 0, kkkk
kLev, kOn, kPolSw, kout xin

if kPolSw != 0 kgoto Uni
  kLev table kLev, giLVLlev
  kgoto Over
Uni:
  kLev table kLev, giLVLpos
Over:
  zkw kOn * kLev/64, kout
endop

; Updated 10.04.20
; in case of Csound it is equal to #188 ConstSwM
