#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#
#  This is a model command file called bevel.  It is used to construct
#  a raised bevel on a two dimensional outline in the default group.
#
#  Author:     Wesley C. Barris
#              AHPCRC
#              Minnesota Supercomputer Center, Inc.
#  Date:       Sept. 10, 1990
#
#  Copyright @ 1990, Minnesota Supercomputer Center, Inc.
#
#  RESTRICTED RIGHTS LEGEND
#
#  Use, duplication, or disclosure of this software and its documentation
#  by the Government is subject to restrictions as set forth in subdivision
#  { (b) (3) (ii) } of the Rights in Technical Data and Computer Software
#  clause at 52.227-7013.
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#
#  Put a border inside the "default" group.
#
g default
border -0.03
#
#  Link the "default" group to the "border" group.
#
linkg -f default border
#
#  These new elements need to be reversed...
#
g link
revel -g
#
#  Raize the "border" group a bit.
#
g border
tran -t 0 0 0.03
#
#  Rename the link group to bevel.
#  Delete the face outline in the default group (no longer needed).
#
g link
g -r bevel
g default
del -g
#
#  Triangulate the raised face.
#  Delete the old raised face outline.
#  Rename this new convexulated stuff fface.
#
g border
convex
g border
del -g
g convex
g -r fface
