#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#
#  This is a model command file called bevel2.  It is used to construct
#  a raised bevel on a two dimensional outline in the default group.
#  It then copies this bevel thingy and places it one unit in the
#  negative Z direction and reverses it and stuff.
#
#  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.
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#
#  Copy the "default" group and place it -0 unit in the Z direction.
#
g default
g -r Fface
#rep -t 0 0 -1
rep -t 0 0 0
rg 1
g repeat
g -r Bface
revel -g
#
#  Put a border inside the "Fface" group.
#
g Fface
border -0.03
g border
g -r fface
#
#  Put a border inside the "Bface" group.
#
g Bface
border 0.03
g border
g -r bface
#
#  Link the "Big" groups to the "small" groups.
#
linkg -f Fface fface
g link
g -r fbevel
g link1
delall
linkg -f Bface bface
g link
g -r bbevel
g link2
delall
#
#  We no longer need the "Big" faces.
#
g Fface
del -g
g Bface
del -g
#
#  These new elements need to be reversed...
#
g fbevel
revel -g
g bbevel
revel -g
#
#  Make the "small" groups stand out a bit.
#
g fface
tran -t 0 0 0.03
g bface
tran -t 0 0 -0.03
#
#  Triangulate the "small" faces then delete the outlines.
#
g fface
convex
g fface
del -g
gm -r convex fface
g -d convex
g bface
convex
g bface
del -g
gm -r convex bface
