#  This macro snaps edge verticies to a straigt sided map frame.

  # first, change the display to raster only.
graphics
view map

  # next, create a set of just the map border polygon
crit_clear
crit_type  16
crit_exec  22  map border polygon

  # next, create a set of the segments which make up the map border polygon.
crit_type  1
crit_subel  22
crit_exec  21  segments which are part of the map border polygon

  # now, snap the last set to the straight map frame & the registered corners.
level_snap  21  33  33  2.500000  0  3

  # finally, display the map vectors & show the user what they have by
  # displaying the raster, the vectors, and highlighting the corners.
graphics +n0 +h34
