<<>>
<<3dTest2.anim>>
    <<Based on AtStripeE.anim by Heckbert, August 13, 1988 5:09:33 pm PDT>>
    <<Bloomenthal, February 15, 1989 10:03:18 pm PST>>

t: G3dTool.ImageTool _ G3dInterpret.GetInterpretTool[].imageTool;
nframes: NAT ~ 12;
swid: NAT _ 640;
shei: NAT _ 480;
wid: NAT _ 160;
hei: NAT _ wid;
shape: ROPE _ "3dTest.shape";
model: G3dModel.Model _ G3dModel.ModelFromFile[fileName: shape, polygons: FALSE, faceNormals: FALSE, pts: FALSE, faceCenters: 
FALSE, edges: FALSE, curves: FALSE, normal: FALSE, center: FALSE, lines: FALSE, accs: FALSE, area: FALSE];
color: Imager.Color _ ImagerColor.ColorFromGray[0.1];

Command["Install ColorTrix"];
G3dInterpret.Op["AntiAliasing: false"];
G3dInterpret.Op["Background: (0.2, 0.2, 0.2)"];
G3dInterpret.Op["LookAt: (.05, 0, .09)"];
G3dInterpret.Op["FieldOfView: 22"];
Command["Ct Clear"];

FOR f: NAT IN [0..1) DO
nx: NAT _ swid/wid;
x0: NAT _ wid*(f MOD nx);
y0: NAT _ hei*(f/nx);
MessageToLog[IO.PutFR["\tRendering frame %g\n", [integer[f]]]];
G3dInterpret.OpInts["DisplayRegion", LIST[x0, y0, wid-1, hei-1]];
G3dTool.AddModel[t, model];
G3dInterpret.Op[Rope.Cat["ShapeName",  model.name]];
G3dInterpret.Op["ShapePosition: ([0, -1, 0)"];
G3dInterpret.Op["ShapeBackFaces: False"];
G3dInterpret.OpInts["ShapeShininess", LIST[LAST[NAT]/2]];    -- shiny, smooth for jaggy tex
G3dInterpret.Op["ShapeRenderStyle smooth"];
G3dInterpret.Op["Render"];
CtMisc.PrintRope[IO.PutFR["%g", [integer[f]]], [x0+wid/2, y0+20], color];    -- label
ENDLOOP;