;; for lights and cameras
(bind-func prerender:XTMRENDERCB
(lambda (frame shader m v p data)
(xtm_light_pos 1 0.0 5.0 25.0)
(xtm_light_tgt 1 0.0 0.0 0.0) ;; was 2
(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 0.0 0.0 0.0 1.0)
(xtm_light_specular 1 1.0 1.0 1.0 1.0)
(xtm_light_power 1 30.0)
(xtm_light_angle 1 60.0)