#  This macro snaps all nodes of the map border polygon to the adjacent maps.
#  It assumes that the adjacent maps (and nothing else) are in levels 88 - 95.

  #  first, clear all vector display (for speed during macro).
graphics

  #  next put the map border polygon in set 22
crit_clear
crit_type  16
crit_exec  22  map border polygon

  #  next, put the nodes which are part of the map border polygon in set 20.
crit_type  0
crit_subel  22
crit_exec  20  nodes which are part of the map border polygon

  #  now snap all of those nodes to levels 88-95, only to nodes.
level_snap  20  88  95  3.000000  0  4

  #  now, display the map vectors in 'normal' & adjacent maps in 'highlight'
view map 0 0
graphics 
graphics -r +n0 +h88 +h89 +h90 +h91 +h92 +h93 +h94 +h95 

  #  finally, inform the user of the deprivations to which s/he has be subjected
wait Automatic snap done.  Check/Correct for mismatches along edges.
