(bind-func xtm_get_camera
(let ((camera:xtm_camera* (zalloc))
(p:float* (zalloc 4))
(t:float* (zalloc 4))
(u:float* (zalloc 4)))
(pfill! p 0.0 0.0 10.0 1.0)
(pfill! t 0.0 0.0 0.0 1.0)
(pfill! u 0.0 1.0 0.0 0.0)
(tfill! camera p t u)
(lambda ()
camera)))