(bind-func xtm_draw_rounded_rect_varying_fill
(lambda (path x:float y:float w:float h:float rad_top_left:float rad_top_right:float rad_bottom_left:float rad_bottom_right:float color:NVGcolor*)
(nvgBeginPath path)
(xtm_add_rounded_rect_varying path x y w h rad_top_left rad_top_right rad_bottom_left rad_bottom_right)
(xtm_fill path color)))