(bind-func set_dl_filter
(lambda (inst:i8* part filter_num type frq res scale)
(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))))
(if (= filter_num 2)
(begin
(dl_filter2_type config (clamp type -1 5))
(dl_filter2_frq config (clamp frq 0.0 18000.0))
(dl_filter2_frq_scale config scale)
(dl_filter2_res config (clamp res 0.0 1.0)))
(begin
(dl_filter1_type config (clamp type -1 5))
(dl_filter1_frq config (clamp frq 0.0 18000.0))
(dl_filter1_frq_scale config scale)
(dl_filter1_res config (clamp res 0.0 1.0))))
void)))