(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 paint:NVGpaint*)
    (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 paint)))