
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;


   ˆ  
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
 Ê€  •NewlineDelimiter
–"cedar" style™ ™Icode™CK™.—˜ J˜AJšœ	Ïkœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜JšœJœœœœ	œ
œ
œ
œ	œœœ˜èJšœ5˜5J˜ J˜Jšœ'˜'J˜/J˜)J˜#J˜J˜ šœœœ˜Jšœœ˜Jšœœ
œ˜Jšœœ˜Jšœœ0˜?Jšœ%œ˜AJ˜J˜4J˜.J˜)Jšœ&œœœÏc˜XJ˜+J˜Jšœœ7ž˜RJšœ˜J˜ ——J˜ — …—    6  >  