sampler_fx   xtlang

(bind-func sampler_fx
  (lambda ()
    (let ((notekernel:NOTE_KERNEL_SAMPLER null)
          (reverb (reverb_st_c))
          (reverb_mix 0.15)
          (reverb_predelay 40.0) ;; in ms
          (reverb_size 0.3)
          (reverb_absorb 0.45)
          (pan (pan_c (i32toi64 CHANNELS)))
          (pan_pos 0.5)
          (pan_width 1.0)
          (gain 2.0)
          (out 0.0))
      (lambda (in:SAMPLE time:i64 chan:i64 dat:SAMPLE*)
        (set! out (pan chan in pan_width pan_pos))
        (if (> reverb_mix 0.001)
            (set! out (reverb chan out
                              reverb_size
                              reverb_predelay
                              reverb_absorb
                              reverb_mix)))
        (* gain out)))))