(bind-func xtm_draw_arc_fill (lambda (path cx:float cy:float r:float deg1:float deg2:float dir:i32 color:NVGcolor*) (nvgBeginPath path) (xtm_add_arc path cx cy r deg1 deg2 dir) (xtm_fill path color)))