(bind-func set_dl_envs
(lambda (inst:i8* part decay decay_dur pitch_decay pitch_decay_amt)
(let ((note (cref (cast inst [void]*) note_kernel [void]*))
(configs (cref note KIT_CONFIGS |12,DLOGUE_PART|*))
(config (aref-ptr configs (clamp part 0 11))))
(dl_amp_decay config decay)
(dl_amp_decay_dur config decay_dur)
;; pitch envelope decay & amt
(dl_pitch_decay config pitch_decay)
(dl_pitch_amt config pitch_decay_amt)
void)))