(bind-func xtm_set_color32_red
(lambda (c32_data:i8* red)
(pset! c32_data 0 (dtoui8 (* (if (< red 0.0)
0.0
(if (> red 1.0)
1.0
red))
256.0)))))