# elevate_1
# written by John Dannenhoffer

# box (SheetBody)
BOX       0  0  0  1  1  0
ASSERT    @itype 2

# make a translated copy
RESTORE   .
TRANSLATE 2  0  0

# extract the Edges into a WireBody
EXTRACT   0
ASSERT    @itype 1

# make a translated copy
RESTORE   .
TRANSLATE 2  0  0

# elevate to a SheetBody
ELEVATE
ASSERT    @itype 2

END

