(bind-func xtm_light_ambient
(let ((lights:xtm_lights* null))
(lambda (light:i32 r g b a)
(set! lights (xtm_get_lights))
(set! light (- light 1))
(if (or (< light 0) (> light 9))
(begin (printf "No such light!\n") void)
(let ((arr:float* (pref-ptr (tref lights 3) (* light 4))))
(pfill! arr r g b a)
void)))))