;; same as camera view but with position at origin
(bind-func xtm_camera_view_centred
(let ((camera:xtm_camera* null)
(centre:float* (alloc 3)))
(pfill! centre 0.0 0.0 0.0)
(lambda (view:float*)
(set! camera (xtm_get_camera))
(fill_view_matrix view centre (tref camera 1) (tref camera 2))
void)))