(bind-func xtm_leaprgba
(lambda (c1:NVGcolor* c2:NVGcolor* u:float)
(let ((cint:NVGcolor* (alloc))
(oneminu:float 0.)
(i:i64 0))
(set! u (xtm_clampf u 0. 1.))
(set! oneminu (- 1. u))
(tset! cint 0 (+ (* (tref c1 0) oneminu) (* (tref c2 0) u)))
(tset! cint 1 (+ (* (tref c1 1) oneminu) (* (tref c2 1) u)))
(tset! cint 2 (+ (* (tref c1 2) oneminu) (* (tref c2 2) u)))
(tset! cint 3 (+ (* (tref c1 3) oneminu) (* (tref c2 3) u)))
cint)))