#  This macro snaps all single branch nodes 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, create a set of single branch nodes (to be snapped).
crit_clear
crit_type  4
crit_exec  20  nodes with exactly one branch

  #  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.
