(bind-func xtm_add_arcd
(lambda (path x y w h start_angle angle_extent arc_type)
(vguArc path
(dtof x)
(dtof y)
(dtof w)
(dtof h)
(dtof start_angle)
(dtof angle_extent)
arc_type)))