# elevate_2 # written by John Dannenhoffer # box (SolidBody) BOX 0 0 0 1 1 1 ASSERT @itype 3 # make a translated copy RESTORE . TRANSLATE 2 0 0 # extract the Faces into a SheetBody EXTRACT 0 ASSERT @itype 2 # make a translated copy RESTORE . TRANSLATE 2 0 0 # elevate to a SolidBody ELEVATE ASSERT @itype 3 END