(bind-func set_dl_core
(lambda (inst:i8* part amp noise frq frqscale)
(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_part_amp config (clamp amp 0.0 4.0))
(dl_noise_amp config (clamp noise 0.0 2.0))
(dl_base_frq config (clamp frq 0.0 12000.0))
(dl_base_frq_scale config frqscale)
void)))