;; for lights and cameras
(bind-func prerender:XTMRENDERCB
(lambda (frame shader m v p data)
(xtm_light_pos 1 0.0 30.0 50.0)
(xtm_light_tgt 1 0.0 5.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_ambient 1 1.0 0.9 0.7 1.0)
(xtm_light_specular 1 1.0 0.9 0.7 1.0)
(xtm_light_power 1 (+ 100.0 (* 40.0 (cos (+ 1.0 (* .1 (i64tof frame)))))))
(xtm_light_angle 1 300.0)