(bind-func xtm_set_color32_alpha
(lambda (c32_data:i8* alpha)
(pset! c32_data 3 (dtoui8 (* (if (< alpha 0.0)
0.0
(if (> alpha 1.0)
1.0
alpha))
256.0)))))