(bind-func translate_matrix
(lambda (mat:float* x y z)
(let ((mat2:float* (salloc 32))
(mat3 (pref-ptr mat2 16)))
(pfill! mat2
1.0 0.0 0.0 0.0
0.0 1.0 0.0 0.0
0.0 0.0 1.0 0.0
x y z 1.0)
(mmmul mat mat2 mat3)
(memcpy (cast mat i8*) (cast mat3 i8*) (* 16 4))
void)))