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