
MakeFrame: PROC [n: INTEGER] ~ {
G3dInterpret.ParseInts["DisplayRegion", LIST[n*160, 0, 159, 159]];
G3dInterpret.ParseReals["Translate xyz", LIST[0.0, -2*n, 0.0]];
G3dInterpret.Parse["Draw"];
G3dInterpret.Parse["Render"];
};

G3dInterpret.Parse["DisplayMode: gray"];
G3dInterpret.Parse["AntiAliasing: False"];
G3dInterpret.Parse["ReadShape: 3dTest.shape"];
G3dInterpret.Parse["BackFacesVisible: True"];
G3dInterpret.Parse["RenderStyle: Faceted"];
G3dInterpret.Parse["BackgroundColor: 0.3, 0.3, 0.3"];

FOR n: INT IN [0..4) DO
MessageToLog[IO.PutFR["\nStarting frame %g", [integer[n]]]];
MakeFrame[n];
ENDLOOP;


   x  
This is a test animation file, to be interpreted with 3dInterpret
Bloomenthal, September 19, 1989 6:35:16 pm PDT
Ê Ö  •NewlineDelimiter
–"cedar" style™ JšœA™AJšœ.™.J˜ šÏn	œÏkœžœ˜ Jšœ(žœ˜BJšœ)žœ˜?Jšœ˜Jšœ˜J˜J˜ —J˜(Jšœ*˜*J˜.Jšœ-˜-J˜+˜5J˜ —šžœžœžœž˜J˜<J˜Jšžœ˜J˜ J˜ —J˜ — …—    f  ´  