"Figure3D Testing expressions"

editor := GenesisDemo open.
editor
    openFile: Disk drivePathName,'\levels\4Actores.bsp';
    startTracking;
    yourself.

-------------------------------------------------
| fig pen center |
7 timesRepeat: [ 1 to: 27 do: [:i|
fig := GenesisSpheroid toBeDrawn.
fig
    diameter: 70 horizontalStrips: 7 verticalStrips: 1;
    rotateBy: Float pi / i negated;
    intensity: 255;
    yourself.
fig displayIn: editor world.
editor update.
]].
fig inspect.
-------------------------------------------------
| fig pen center |
fig := GenesisCone toBeDrawn.
fig
    diameter: 35@107 height: 70 strips: 17;
    rotateBy: Float pi / 17 "negated";
    yourself.
fig displayIn: editor world.
editor update.

pen := Display pen. pen home;down.
center := pen location.
fig base vertices do: [:each|
    pen
        goto: (each x @ each z) truncated + center
        ; circle: 5
].
-------------------------------------------------
7 timesRepeat: [ 1 to: 27 do: [:i|
    GenesisBox toBeDrawn
        rotateBy: Float pi / i negated;
        scaleBy: 30;  translateBy: #(-10 -20 30);
        displayIn: editor world.
editor update.
]]
-------------------------------------------------
| fig pen center |
3 timesRepeat: [ 0 to: Float pi by: 0.2 do: [:i|
fig := GenesisSpheroid toBeDrawn.
fig
    diameter: 370 horizontalStrips: 5 verticalStrips: 2;
    rotateBy: i ;
    scaleBy: i * 1.5;
    "intensity: 255;"
    yourself.
fig displayIn: editor world.
editor update.
]].
fig
    diameter: 370 horizontalStrips: 5 verticalStrips: 2;
    intensity: 255;
    displayIn: editor world.
editor update.
-------------------------------------------------
