#  This macro thins verticies & snaps to straight frame, adjacent maps.
#  (like snapn_thin-r, but for line maps instead of poly maps)
#  The "-t" indicates that it DOES NOT snap to TEMPLATES

# clear graphics & display entire map
graphics 
view zoom 0 0

# create set 18, nodes with only one branch
crit_type  4
crit_exec  18  nodes with one branch  

# clear graphics
graphics
view zoom 0 0

# thin verticies using a radius of 1.1  pixels
vertex_thin  0  0  1.100000  0

# snap set 18 to straight line map frame (level 33).
level_snap  18  33  33  2.500000  0  1

#  snap all single branch nodes to the adjacent maps.
level_snap  18  88  91  3.000000  0  4

# thin verticies to eliminate verticies on straight lines
vertex_thin  0  2  0.05  0

#  now, display the map vectors in 'normal' & adjacent maps in 'highlight'
view map 0 0
graphics 
graphics +n0 +h88 +h89 +h90 +h91 
veiw map

#  finally, inform the user of the deprivations to which s/he has be subjected
wait Map data has been thinned, snapped to the FRAME, ADJ. MAPS (NOT to TEMPLATES)
wait Manually CHECK FOR MISMATCHES, CORRECT the RASTER & RE-ASSEMBLE IF NECESSARY.
