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