(bind-func xtm_draw_arc
(lambda (x y w h start_angle angle_extent arc_type)
(let ((path (xtm_create_path))
(vgu_err (vguArc path x y w h start_angle angle_extent arc_type)))
(if (= vgu_err VGU_NO_ERROR)
(xtm_draw_path path))
void)))