(bind-func xtm_light_up
(let ((lights:xtm_lights* null))
(lambda (light:i32 x y z)
(set! lights (xtm_get_lights))
(set! light (- light 1))
(if (or (< light 0) (> light 9))
(begin (printf "No such light!\n") void)
(let ((a:float* (pref-ptr (tref lights 2) (* light 4))))
(pfill! a x y z 0.0)
void)))))