(bind-func analogue_set_mod_matrix
(lambda (inst:i8* src:enum dst:enum value:float)
(let ((krl (cref (cast inst [void]*) effect_kernel [void]*))
(mod_matrix (krl.mod_matrix:|4,|32,SAMPLE||*)))
(if (< dst 32)
(aset! (aref-ptr mod_matrix src) dst value))
value)))