(bind-func xtm_add_arc (lambda (path x1:float y1:float x2:float y2:float x3:float y3:float rad:float) (nvgMoveTo path x1 y1) (nvgArcTo path x2 y2 x3 y3 rad)))