This is a test animation file, to be interpreted with 3dInterpret
Bloomenthal, September 19, 1989 6:35:16 pm PDT
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;