(bind-func xtm_draw_arc_fill (lambda (path x1:float y1:float x2:float y2:float x3:float y3:float rad:float color:NVGcolor*) (nvgBeginPath path) (xtm_add_arc path x1 y1 x2 y2 x3 y3 rad) (xtm_fill path color)))