(bind-func xtm_set_color32
(lambda (c32_data:i8* r g b a)
(pset! c32_data 0 (dtoui8 (* (if (< r 0.0) 0.0 (if (> r 1.0) 1.0 r)) 256.0)))
(pset! c32_data 1 (dtoui8 (* (if (< g 0.0) 0.0 (if (> g 1.0) 1.0 g)) 256.0)))
(pset! c32_data 2 (dtoui8 (* (if (< b 0.0) 0.0 (if (> b 1.0) 1.0 b)) 256.0)))
(pset! c32_data 3 (dtoui8 (* (if (< a 0.0) 0.0 (if (> a 1.0) 1.0 a)) 256.0)))))