(bind-func dl_amp_decay_dur (lambda (x:DLOGUE_PART* v:float) (tset! x 22 v))) ;; pitch envelope decay & amt