# box_1
# written by John Dannenhoffer

# cuboid (SolidBody)
BOX       0  0  0  3  2  1
ASSERT    @itype   3

SELECT    FACE   @nbody 1     # iford=1 in red
ATTRIBUTE _color $red
SELECT    FACE   @nbody 2     # iford=2 in green
ATTRIBUTE _color $green
SELECT    FACE   @nbody 3     # iford=3 in blue
ATTRIBUTE _color $blue
SELECT    FACE   @nbody 4     # iford=4 in cyan
ATTRIBUTE _color $cyan
SELECT    FACE   @nbody 5     # iford=5 in magenta
ATTRIBUTE _color $magenta
SELECT    FACE   @nbody 6     # iford=6 in yellow
ATTRIBUTE _color $yellow

# plate (SheetBody)
BOX       4  0  0  0  2  1
ASSERT    @itype   2

# line (WireBody)
BOX       0  3  0  3  0  0
ASSERT    @itype   1

# point (NodeBody)
BOX       4  3  0  0  0  0
ASSERT    $itype   0

END