(bind-func xtm_camera_view (let ((camera:xtm_camera* null)) (lambda (view:float*) (set! camera (xtm_get_camera)) (fill_view_matrix view (tref camera 0) (tref camera 1) (tref camera 2)) void)))