# scale_1
# written by John Dannenhoffer

# make a colored cylinder
CYLINDER  0  0  0  2  0  0  1/2

SELECT    FACE   @nbody 1      # left end
ATTRIBUTE _color $cyan

SELECT    FACE   @nbody 2      # right end
ATTRIBUTE _color $magenta

SELECT    FACE   @nbody 3      # bottom
ATTRIBUTE _color $lgreen

SELECT    FACE   @nbody 4      # top
ATTRIBUTE _color $lblue

STORE     body

# make half size about (x=1, y=1, z=0)
RESTORE   body
SCALE     1/2  1  1

# show fixed point
POINT     1   1   0

# show outline of original body
RESTORE   body
SELECT    FACE
ATTRIBUTE _trn $on

END
