;; add a light and a camera
(bind-func prerender:XTMRENDERCB
(lambda (frame shader m v p data)
;; (xtm_light_pos 1 10.0 10.0 15.0)
;; (xtm_light_tgt 1 1.0 3.0 0.0)
;; (xtm_light_up 1 0.0 1.0 0.0)
;; (xtm_light_diffuse 1 1.0 0.9 0.7 1.0)
;; (xtm_light_power 1 30.0)
;; (xtm_light_angle 1 60.0)
(xtm_camera_pos (+ 0.0 (* 10.0 (sin (* .005 (i64tof frame)))))
0.0
(+ 0.0 (* 10.0 (cos (* .005 (i64tof frame))))))
(xtm_camera_tgt 0.0 0.0 0.0)
(xtm_camera_up 0.0 1.0 0.0)
void))