;@ map s 2 LVLamp LVLamp
;@ map d BUT002

;@ args kk,k,k
opcode LevAmp, 0,kkkk
  kLev, kScale, kzIn, kzOut xin
  ;@ todo dB scale
  aIn zkr kzIn
  zkw aIn * kLev, kzOut
endop

;@ args kk,a,a
opcode LevAmp, 0,kkkk
  kLev, kScale, kzIn, kzOut xin
  ;@ todo dB scale
  aIn zar kzIn
  zaw aIn * kLev, kzOut
endop
