prerender:XTMRENDERCB   xtlang

;; for lights and cameras
(bind-func prerender:XTMRENDERCB
  (lambda (frame shader m v p data)
    (xtm_light_pos 1 -5.0 5.0 15.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 1.0 1.0 1.0 1.0)
    (xtm_light_specular 1 0.1 0.05 0.05 1.0)
    (xtm_light_power 1 10.0)
    (xtm_light_angle 1 60.0)