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