<<>> <> <> 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;