(bind-func xtm_draw_rounded_rect_varying_stroke
  (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* width:float)
    (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_stroke path paint width)))