(bind-func dsp_load
(lambda ()
(printf "DSP load 1:[%2.0f%% n:%d] 2:[%2.0f%% n:%d] 3:[%2.0f%% n:%d] 4:[%2.0f%% n:%d] 5:[%2.0f%% n/a]"
(* 100.0 (dsp1.load:double)) (active_notes (cast syn1 i8*))
(* 100.0 (dsp2.load:double)) (active_notes (cast syn2 i8*))
(* 100.0 (dsp3.load:double)) (active_notes (cast syn3 i8*))
(* 100.0 (dsp4.load:double)) (active_notes (cast kit i8*))
(* 100.0 (dsp5.load:double)))
void))