(bind-func xtm_draw_rounded_rect_fill (lambda (path x:float y:float w:float h:float r:float color:NVGcolor*) (nvgBeginPath path) (xtm_add_rounded_rect path x y w h r) (xtm_fill path color)))