<<>> <> <> &sgf[ThreeDDemoImpl] ViewerLocksImpl.debugging _ TRUE -- allows breakpoints in paint procs <> <

> <> <> Reset[] context3d _ G3dRender.CreateUndisplayedContext[oldContext: context3d, keepLog: TRUE] G3dRender.SetView[ context3d, [6.0, -3.2, 3.0], [0.0, -0.35, -0.25] ] G3dRender.AddShapeFromFile[ context3d, "ChampagneGlass", "/Indigo/3dGraphics/Shapes/ChampagneGlass.shape", [1.0, 0.0, 0.0] ] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "ChampagneGlass"], $PolygonToBezier ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "ChampagneGlass"], [1.0, .0, 1.0] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "ChampagneGlass"], smooth ] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "ChampagneGlass"], 50.0 ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "ChampagneGlass"], 0.9 ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "ChampagneGlass"], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: 45.0 ] -- about vertical G3dMappedAndSolidTexture.AddSolidTexture[context3d, "ChampagneGlass", $TwistedStripes ] G3dRender.AddShapeFromFile[ context3d, "UtahEgg", "/Indigo/3dGraphics/Shapes/UtahEgg.shape" ] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "UtahEgg"], $PolygonWithNormals] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "UtahEgg"], translate: [-3.0, -0.5, .0], axis: [[.0,.0,.0],[-1.0,1.0,0.0]], rotation: -90.0 ] -- flop over, at angle G3dRender.SetColor[ G3dRender.FindShape[context3d, "UtahEgg"], [1.0, .8, .5] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "UtahEgg"], smooth ] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "UtahEgg"], 50.0 ] G3dMappedAndSolidTexture.RemoveAllTexture[context3d, "UtahEgg" ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "UtahEgg", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/CedarChest7.0/ThreeDWorld/Texture.ais", $Intensity] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "UtahEgg" ] G3dMappedAndSolidTexture.MakeTxtrCoordsFromNormals[ context3d, "UtahEgg", [0.0, 0.0], [2.0, 3.0], [5.0, 3.0], [3.0, 0.0] ] G3dRender.AddShapeFromFile[ context3d, "Banana", "/Indigo/3dGraphics/Shapes/Banana.shape"] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "Banana"], $PolygonWithNormals ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Banana"], translate: [-1.0, -1.0, -0.5], scale: 1.5 ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "Banana"], [1.0, .9, .1] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Banana"], smooth ] G3dRender.AddShapeFromFile[ context3d, "Doughnut", "/Indigo/3dGraphics/Shapes/Doughnut.shape" ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Doughnut"], translate: [-0.5, 2.0, -0.75], axis: [[.0,.0,.0],[1.0,.0,.0]], rotation: 90.0, scale: 1.5 ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "Doughnut"], [0.7, .4, .2] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Doughnut"], smooth ] G3dRender.AddShapeFromFile[ context3d, "Teaspoon", "/Indigo/3dGraphics/Shapes/Teaspoon.shape" ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Teaspoon"], translate: [2.0, -1.8, .0], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: 180.0 ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "Teaspoon"], [0.8, 0.8, 0.8] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Teaspoon"], smooth ] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "Teaspoon"], 50.0 ] G3dRender.AddShapeFromFile[context3d, "CheckerBoard", "/Indigo/3dGraphics/Shapes/CheckerBoard.shape", [-12.0, -6.0, -3.0]] G3dRender.SetColor[ G3dRender.FindShape[context3d, "CheckerBoard"], [.8, .4, .2] ] G3dRender.AddShapeFromFile[ context3d, "CheckerBoard2", "/Indigo/3dGraphics/Shapes/CheckerBoard.shape" ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "CheckerBoard2"], translate: [-12.0, -6.0, -3.0], axis: [[8.0, 8.0, 0.0], [.0, .0, 1.0]], rotation: 90.0 ] -- rotate to fill other half of board G3dRender.SetColor[ G3dRender.FindShape[context3d, "CheckerBoard2"], [.1, .1, .1] ] G3dRenderWithPixels.AntiAliasing[context3d] G3dRender.StartLog[context3d] G3dSortAndDisplayImpl.progressReportsPerFrame _ 20; -- make progress reports G3dColorDisplaySupport.MakeHiResFrame[ context3d, 400, 300, "FiveObjects400x300.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1350, 1011, "FiveObjects1350x1011.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 2000, 1500, "FiveObjects2000x1500.ais" ] MakeFrame[] G3dRender.PutAIS[ StoreImage, "TestScene2.ais" ] <

> <> InitNoDisplay[] -- for computing remotely or otherwise blind Reset[] G3dRender.NameBackgroundColor[ context3d, "Dark Lightish Cyanish Blue" ] G3dRender.SetView[ context3d, [-0.1, -27.0, 5.2], [0.0, -17.0, 3.0] ] G3dRender.AddLight[context3d, "Light0", [-300.0, -200.0, 450.0] ] G3dRender.AddShapeFromFile[ context3d, "ChampagneGlass", "[indigo]<3dGraphics>shapes>ChampagneGlass.shape" ] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "ChampagneGlass"], $PolygonToBezier ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "ChampagneGlass"], [1.0, .0, 1.0] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "ChampagneGlass"], smooth ] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "ChampagneGlass"], 50.0 ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "ChampagneGlass"], 0.9 ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "ChampagneGlass"], translate: [0.0, -21.7, 4.0], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -45.0 ] -- about vertical G3dRender.AddShapeFromFile[context3d, "ChampagneGlassShadow", "[ivy]shapes>ChampagneGlassShadow.shape" ] G3dShade.LoadShadingClass[ G3dRender.FindShape[context3d, "ChampagneGlassShadow"], $NoShading ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "ChampagneGlassShadow"], translate: [0.05, -20.5, 3.83], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -45.0, scale: 1.33 ] -- rotate about vertical, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "ChampagneGlassShadow"], [0.0, 0.0, 0.0] ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "ChampagneGlassShadow"], 1.0 ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "ChampagneGlassShadow"], smooth] G3dRender.AddShapeFromFile[ context3d, "Tree", "[ivy]shapes>TreeSquare.shape" ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Tree"], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: 180.0 ] -- flip to get texture right side up G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Tree"], translate: [0.5, -15.0, 4.25], axis: [[.0,.0,.0],[1.0,.0,.0]], rotation: 90.0, scale: 1.5, concat: TRUE ] -- tip up, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "Tree"], [1.0, 1.0, 1.0] ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "Tree"], 1.0 ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Tree"], smooth ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Tree", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/pixel/crow/texture/tree1Out.ais", $ColorAndTransmittance] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "Tree" ] G3dRender.AddShapeFromFile[ context3d, "Tree2", "[ivy]shapes>TreeSquare.shape" ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Tree2"], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -90.0 ] -- flip to get texture right side up G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Tree2"], translate: [12.0, 10.0, 3.5], axis: [[.0,.0,.0],[1.0,.0,.0]], rotation: 90.0, scale: 3.0, concat: TRUE ] -- tip up, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "Tree2"], [1.0, 1.0, 1.0] ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "Tree2"], 1.0 ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Tree2"], smooth ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Tree2", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/pixel/crow/texture/tree52AM.ais", $ColorAndTransmittance] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "Tree2" ] G3dRender.AddShapeFromFile[ context3d, "Tree3", "[ivy]shapes>TreeSquare.shape" ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Tree3"], axis: [[.0,.0,.0],[1.0,.0,.0]], rotation: 180.0 ] -- flip to get texture right side up and reversed G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Tree3"], translate: [-10.0, 10.0, 2.5], axis: [[.0,.0,.0],[1.0,.0,.0]], rotation: 90.0, scale: 3.0, concat: TRUE ] -- tip up, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "Tree3"], [1.0, 1.0, 1.0] ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "Tree3"], 1.0 ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Tree3"], smooth ] G3dRender.FindShape[context3d, "Tree3"].renderData.shadingClass _ G3dRender.FindShape[context3d, "Tree"].renderData.shadingClass G3dRender.AddShapeFromFile[ context3d, "UtahEgg", "[indigo]<3DGraphics>Shapes>UtahEgg.shape" ] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "UtahEgg"], $PolygonWithNormals ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "UtahEgg"], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -135.0 ] -- rotate about vertical G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "UtahEgg"], translate: [1.5, -19.0, 3.66], axis: [[.0,.0,.0],[1.0,1.0,0.0]], rotation: -90.0, concat: TRUE ] -- flop over, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "UtahEgg"], [1.0, .8, .5] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "UtahEgg"], smooth ] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "UtahEgg"], 50.0 ] G3dMappedAndSolidTexture.RemoveAllTexture[context3d, "UtahEgg" ] G3dMappedAndSolidTexture.AddSolidTexture[context3d, "UtahEgg", $Checks ] G3dMappedAndSolidTexture.AddSolidTexture[context3d, "UtahEgg", $PartialBurl ] -- on top G3dRender.AddShapeFromFile[context3d, "UtahEggShadow", "/Ivy/Crow/Shapes/UtahEggShadow.shape"] G3dShade.LoadShadingClass[ G3dRender.FindShape[context3d, "UtahEggShadow"], $NoShading ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "UtahEggShadow"], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: 45.0 ] -- rotate G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "UtahEggShadow"], translate: [1.8, -18.0, 2.8], axis: [[.0,.0,.0],[1.0,1.0,0.0]], rotation: -90.0 ] -- flop over, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "UtahEggShadow"], [0.0, 0.0, 0.0] ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "UtahEggShadow"], 1.0 ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "UtahEggShadow"], smooth ] G3dRender.AddShapeFromFile[ context3d, "Banana", "[indigo]<3DGraphics>Shapes>Banana.shape" ] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "Banana"], $PolygonWithNormals ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Banana"], translate: [-1.2, -20.5, 3.8], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -30.0, scale: 1.5 ] -- flop over, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "Banana"], [1.0, 1.0, 1.0] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Banana"], smooth ] G3dRender.AddShapeFromFile[context3d, "BananaShadow", "/Ivy/Crow/Shapes/BananaShadow.shape"] G3dShade.LoadShadingClass[ G3dRender.FindShape[context3d, "BananaShadow"], $NoShading ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "BananaShadow"], translate: [-1.3, -18.5, 3.1], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -30.0, scale: 2.3 ] -- rotate, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "BananaShadow"], [0.0, 0.0, 0.0] ] G3dRender.SetTransmittance[G3dRender.FindShape[context3d, "BananaShadow"], 1.0 ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "BananaShadow"] , smooth] G3dRender.AddShapeFromFile[ context3d, "Sphere", "[indigo]<3DGraphics>shapes>PolySphere.shape" ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Sphere"], axis: [[.0,.0,.0],[.0,1.0,.0]], rotation: 180.0 ] -- rotate upside down G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Sphere"], translate: [-2.8, -12.0, 4.25], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: 60.0, scale: 1.3, concat: TRUE ] -- rotate, scale up G3dRender.SetColor[ G3dRender.FindShape[context3d, "Sphere"], [1.0, 1.0, 1.0] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Sphere"], smooth ] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "Sphere"], 100.0 ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Sphere", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/Pixel/Lamming/Mugs/MikT.ais", $Color] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "Sphere" ] G3dMappedAndSolidTexture.MakeTxtrCoordsFromNormals[ context3d, "Sphere", [0.0, 0.0], [0.0, 1.0], [1.0, 1.0], [1.0, 0.0], [-180.0, -80.0], [-180.0, 80.0], [0.0, 80.0], [0.0, -80.0] ] G3dScene.ReadParameters[context3d, "/ivy/Crow/Shapes/HexTiles.scene" ] G3dRender.AddShapeFromFile[ context3d, "BackDrop", "[ivy]shapes>BackDrop.shape", [0.0, 50.0, -1.0] ] G3dShade.LoadShadingClass[ G3dRender.FindShape[context3d, "BackDrop"], $NoShading ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "BackDrop"], [1.0, 1.0, 1.0] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "BackDrop"], smooth] G3dColorDisplaySupportImpl.timeResolution _ 20 G3dRenderWithPixels.AntiAliasing[context3d] MakeFrame[] G3dColorDisplaySupport.PutAIS[ context3d, "Lamming7Scene.ais" ] G3dRender.StartLog[context3d] G3dSortAndDisplayImpl.progressReportsPerFrame _ 20; -- make progress reports G3dColorDisplaySupport.MakeHiResFrame[ context3d, 400, 300, "Lamming7Scene400x300.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1350, 1011, "Lamming7Scene1350x1011.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1536, 1152, "Lamming7Scene1536x1152.ais" ] InterPressToPD Lamming7Scene2000x1500.Interpress Color400 ColorCorrection 0.45 scale G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1024, 768, "Lamming7Scene1024x768.ais" ] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"ChampagneGlass"]] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"ChampagneGlassShadow"]] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"Tree"]] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"UtahEgg"]] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"UtahEggShadow"]] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"Banana"]] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"BananaShadow"]] G3dRender.SetInvisible[ G3dRender.FindShape[context3d,"Sphere"]] G3dRender.SetVisible[ G3dRender.FindShape[context3d,"ChampagneGlass"]] G3dRender.SetVisible[ G3dRender.FindShape[context3d,"ChampagneGlassShadow"]] G3dRender.SetVisible[ G3dRender.FindShape[context3d,"Tree"]] G3dRender.SetVisible[ G3dRender.FindShape[context3d,"UtahEgg"]] G3dRender.SetVisible[ G3dRender.FindShape[context3d,"UtahEggShadow"]] G3dRender.SetVisible[ G3dRender.FindShape[context3d,"Banana"]] G3dRender.SetVisible[ G3dRender.FindShape[context3d,"BananaShadow"]] G3dMappedAndSolidTexture.RemoveAllTexture[context3d, "Tree2" ] G3dMappedAndSolidTexture.RemoveAllTexture[context3d, "Tree3" ] <

> <> InitNoViewer[] -- watch pixel updates G3dRender.LoadDisplayClass[context3d, $Gray] Reset[] G3dRender.AddLight[context: context3d, name: "Light0", position: [75.0, -200.0, 150.0], color: [1.0, 1.0, 0.3] ] G3dRender.AddLight[context: context3d, name: "Light1", position: [250.0, -200.0, 150.0], color: [1.0, 0.5, 0.5] ] G3dRender.NameAmbientLight[context3d, "weakish darkish blue"] G3dRender.AddShapeFromFile[ context3d, "Egg", "/Indigo/3dGraphics/Shapes/UtahEgg.shape", [0.0, 0.0, 0.0]] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "Egg"], $PolygonWithNormals ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Egg"], axis: [[.0,.0,.0],[.0,1.0,.0]], rotation: 90.0 ] -- about depth axis G3dRender.SetColor[ G3dRender.FindShape[context3d, "Egg"], [1.0, 1.0, 1.0] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Egg"], smooth] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "Egg"], 150.0 ] G3dRender.SetView[context3d, [-1.0, -4.0, 0.0], [0.0, 0.0, 0.0] ] G3dMappedAndSolidTexture.RemoveAllTexture[ context3d, "Egg" ] G3dMappedAndSolidTexture.MakeTxtrCoordsFromNormals[ context3d, "Egg", [0.0, 0.0], [2.0, 3.0], [5.0, 3.0], [3.0, 0.0] ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Egg", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/CedarChest7.0/ThreeDWorld/Texture.ais", $Intensity] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "Egg" ] G3dMappedAndSolidTexture.AddSolidTexture[context3d, "Egg", $GreenSpots ] G3dMappedAndSolidTexture.AddSolidTexture[context3d, "Egg", $PartialBurl ] G3dRenderWithPixels.AntiAliasing[context3d] G3dRender.StartLog[context3d] G3dSortAndDisplayImpl.progressReportsPerFrame _ 20; -- make progress reports G3dColorDisplaySupport.MakeHiResFrame[ context3d, 400, 300, "MultiTxtrdEgg400x300.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1350, 1011, "MultiTxtrdEgg1350x1011.ais" ] MakeFrame[] G3dColorDisplaySupport.PutAIS[context3d, "MultiTxtrdEgg.ais" ] context3d.class.displayType _ $FullColor <

> <> InitNoDisplay[] -- for computing remotely or otherwise blind G3dRender.LoadDisplayClass[context3d, $GrayInVM] Reset[] G3dRender.SetView[context3d, [0.0, -6.0, 0.0], [0.0, 0.0, 0.0] ] G3dRender.AddLight[context3d, "Light0", [-50.0, -400.0, 50.0], [1.0, 1.0, 1.0] ] G3dRender.NameAmbientLight[context3d, "weakish darkish blue"] G3dRender.AddShapeFromFile[ context3d, "Egg1", "/Indigo/3dGraphics/Shapes/UtahEgg.shape"] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "Egg1"], $PolygonWithNormals ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Egg1"], translate: [1.0, 0.0, 0.0], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -20.0 ] -- about vertical G3dRender.SetColor[ G3dRender.FindShape[context3d, "Egg1"], [1.0, 0.8, 0.5] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Egg1"], smooth] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "Egg1"], 150.0 ] G3dMappedAndSolidTexture.MakeTxtrCoordsFromNormals[ context3d, "Egg1", [0.0, 0.0], [2.0, 3.0], [5.0, 3.0], [3.0, 0.0] ] G3dRender.AddShapeFromFile[ context3d, "Egg2", "/Indigo/3dGraphics/Shapes/UtahEgg.shape"] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "Egg2"], $PolygonWithNormals ] G3dShape.TransformShape[ shape: G3dRender.FindShape[context3d, "Egg2"], translate: [-1.0, 0.0, 0.0], axis: [[.0,.0,.0],[.0,.0,1.0]], rotation: -20.0 ] -- about vertical G3dRender.SetColor[ G3dRender.FindShape[context3d, "Egg2"], [1.0, 0.8, 0.5] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Egg2"], smooth] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "Egg2"], 150.0 ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Egg1", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "Texture.ais", $Intensity] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "Egg1" ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Egg2", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "Texture.ais", $Bump] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "Egg2" ] G3dRenderWithPixelsImpl.minHilite _ 0.000001 G3dRender.StartLog[context3d] G3dSortAndDisplayImpl.progressReportsPerFrame _ 20; -- make progress reports G3dColorDisplaySupport.MakeHiResFrame[ context3d, 400, 300, "TwoTexturedEggs400x300.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1350, 1011, "TwoTexturedEggs1350x1011.ais" ] G3dRenderWithPixels.AntiAliasing[context3d] MakeFrame[] G3dColorDisplaySupport.PutAIS[context3d, "MultiTxtrdEgg.ais" ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Egg2", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/CedarChest7.0/ThreeDWorld/Texture.ais", $Bump] ] <

> Wurlitzer Egg Reset[] G3dRender.SetView[context3d, [0.0, -6.0, 0.0], [0.0, 0.0, 0.0] ] G3dRender.AddLight[context3d, "Light0", [-50.0, -400.0, 50.0], [1.0, 1.0, 1.0] ] G3dRender.NameAmbientLight[context3d, "weakish darkish blue"] G3dRender.AddShapeFromFile[ context3d, "Egg", "/Indigo/3dGraphics/Shapes/UtahEgg.shape"] G3dRender.LoadShapeClass[ G3dRender.FindShape[context3d, "Egg"], $PolygonWithNormals ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "Egg"], [1.0, 1.0, 1.0] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Egg"], smooth] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "Egg"], 150.0 ] G3dMappedAndSolidTexture.AddSolidTexture[context3d, "Egg", $Wurlitzer ] G3dRenderWithPixels.AntiAliasing[context3d] G3dRender.StartLog[context3d] G3dSortAndDisplayImpl.progressReportsPerFrame _ 20; -- make progress reports context3d.class.displayType _ $FullColor G3dColorDisplaySupport.MakeHiResFrame[ context3d, 400, 300, "WurlitzerEgg400x300.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1350, 1011, "WurlitzerEgg1350x1011.ais" ] MakeFrame[] G3dColorDisplaySupport.PutAIS[context3d, "WurlitzerEgg.ais" ] <

> <> InitNoDisplay[] -- for computing remotely or otherwise blind Reset[] G3dRender.AddLight[context3d, "Light0", [-200.0, -200.0, 400.0], [1.0, 1.0, 1.0] ] G3dRender.AddShapeFromFile[ context: context3d, shapeName: "TeaPot", fileName: "/Ivy/Crow/Shapes/TeaPotWithBot.shape", position: [0.0, 0.0, -1.25]] G3dRender.SetShininess[ G3dRender.FindShape[context3d, "TeaPot"], 150.0 ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "TeaPot"], smooth ] G3dMappedAndSolidTexture.AddSolidTexture[context3d, "TeaPot", $ZebraBurl ] G3dRender.SetView[context3d, [-0.5, -10.0, 3.0], [0.0, 0.0, 0.0] ] -- hides joins G3dRenderWithPixels.AntiAliasing[context3d] G3dRender.StartLog[context3d] G3dSortAndDisplayImpl.progressReportsPerFrame _ 20; -- make progress reports G3dRender.SetViewPort[ context3d, [0.0, 0.0, 400.0, 300.0] ] MakeFrame[] G3dColorDisplaySupport.PutAIS[context3d, "ZebraBurlTeapot400x300.ais" ] G3dSortAndDisplayImpl.progressReportsPerFrame _ 33; -- make progress reports G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1350, 1011, "ZebraBurlTeapot1350x1011.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 2000, 1500, "ZebraBurlTeapot2000x1500.ais" ] G3dRender.LoadDisplayClass[context3d, $GrayInVM] GetOffScreenCtx[context3d, 400, 300] G3dSortAndDisplayImpl.progressReportsPerFrame _ 3; -- make progress reports G3dAnimationSupport.MakeFramesFromTo[ context: offScreenCtx, lookingFrom: [-0.6, -12.0, 3.6], lookingAt: [0.0, 0.0, 0.0], toLookingFrom: [-0.1, -2.0, 0.6], toLookingAt: [0.0, 0.0, 0.0], framesOnLine: 60, startAt: 0, endAt: 59, filename: "TeapotZoom" ]; -- zoom in on teapot <<>> <

> <> Reset[] G3dRender.AddLight[context: context3d, name: "Light0", position: [-10.0, -200.0, 200.0] ] G3dRender.NameAmbientLight[ context3d, "Lightish Grey" ] G3dRender.NameBackgroundColor[ context3d, "Very Dark Grey" ] G3dRender.AddShapeFromFile[ context3d, "Web", "PaperWebReversed.shape" ] G3dRender.SetColor[ G3dRender.FindShape[context3d, "Web"], [0.8, 1.0, 0.8] ] G3dRender.SetRenderStyle[ G3dRender.FindShape[context3d, "Web"], smooth ] G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "Web", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/Pixel/Crow/Texture/Page-Red.ais", $Intensity] ] G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "Web" ] G3dRender.SetView[context3d, [1.5, -4.5, -0.8], [0.5, 0.0, 0.9] ] G3dRender.ShowBackfaces[G3dRender.FindShape[context3d, "Web"]] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 400, 300, "PaperWeb400x300.ais" ] G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1350, 1011, "PaperWeb1350x1011.ais" ] G3dRenderWithPixels.AntiAliasing[context3d] MakeFrame[] <<>> <> G3dColorDisplaySupport.GetAIS[context: context3d, fileRoot: "TwoTexturedEggs1350x1011.ais", xOffset: 500, yOffset: 300, center: FALSE ] <<>> <>