/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* Fixloop.aml
/* Date: 3/22/2002
/* Author: B.L. Brock
/* Div. of Biology, Kansas State University

/* Description: Fixes eyeball loops in National Hydrology Database covers by deleting
/* a user selected arc creating an erroneous loop.

/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

drawe all off
mape def
symbolitem arc 5
symbolitem poly 6
drawe poly
draw
ef poly
&type Select the polygon to fix ....
sel
mape select
draw
drawe arc node
draw
ef arc
/* may need to replace &type with &response to provide choice to delete or split arcs
&type Select the arc to delete from the loop
sel
delete
clean
mape def
drawe all off
drawe poly
draw