(bind-func set_dl_osc
(lambda (inst:i8* part:i64 oscnum pitch amp phase pw)
(let ((note (cref (cast inst [void]*) note_kernel [void]*))
(configs (cref note KIT_CONFIGS |12,DLOGUE_PART|*))
(config:DLOGUE_PART* (aref-ptr configs (clamp part 0 11))))
(if (= oscnum 1)
(begin
(dl_osc1_pitch config (clamp pitch 0.0 8.0))
(dl_osc1_amp config (clamp amp 0.0 3.0))
(dl_osc1_phase config phase)
(dl_osc1_pw config (clamp pw 0.0 1.0)))
(begin
(dl_osc2_pitch config (clamp pitch 0.0 8.0))
(dl_osc2_amp config (clamp amp 0.0 3.0))
(dl_osc2_phase config phase)
(dl_osc2_pw config (clamp pw 0.0 1.0))))
void)))