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