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