(bind-func xtm_update_lights
(lambda (shader:ShaderProgram*)
(let ((lights (xtm_get_lights)))
(shader_update_lights shader (tref lights 9)
(tref lights 0) (tref lights 1)
(tref lights 7) (tref lights 6)
(tref lights 3) (tref lights 4)
(tref lights 5)))))