GalleryScripts.cm
Crow, June 12, 1989 6:56:34 pm PDT
&sgf[ThreeDDemoImpl]
ViewerLocksImpl.debugging ← TRUE     -- allows breakpoints in paint procs

Comparitive egg shading
G3dRender.StartLog[context3d]
Reset[]
G3dRenderWithPixels.AntiAliasing[context3d, FALSE]
G3dRender.SetView[context3d, [0.0, -4.0, 0.0], [0.0, 0.0, 0.0] ]
G3dRender.AddShapeFromFile[ context3d, "UtahEgg", "UtahEgg.shape", [0.0, .0, .0] ]
G3dRender.SetColor[ G3dRender.FindShape[context3d, "UtahEgg", [0.8, 0.8, 0.5] ]
G3dRender.SetRenderStyle[ context3d, "UtahEgg" ]
G3dRender.SetViewPort[ context3d, [0.0, 225.0, 160.0, 225.0] ]
MakeFrame[]
G3dRenderWithPixels.AntiAliasing[context3d]
G3dRender.SetViewPort[ context3d,  [160.0, 225.0, 160.0, 225.0] ]
MakeFrame[]
G3dRender.SetShininess[ context3d, "UtahEgg" ]
G3dRender.SetViewPort[ context3d, [320.0, 225.0, 160.0, 225.0] ]
MakeFrame[]
G3dRender.SetView[context3d, [0.0, -4.0, 0.0], [0.0, 0.0, 0.0] ]
G3dRender.SetTransmittance[context3d, "UtahEgg" ]
G3dRender.SetViewPort[ context3d, [480.0, 225.0, 160.0, 225.0] ]
MakeFrame[]
G3dRender.SetView[context3d, [0.0, -4.0, 0.0], [0.0, 0.0, 0.0] ]
G3dRender.SetOpaque[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.SetViewPort[ context3d, [0.0, 3.0, 160.0, 225.0] ]
MakeFrame[]
G3dMappedAndSolidTexture.RemoveAllTexture[ context3d, "UtahEgg" ]
G3dMappedAndSolidTexture.AddMappedTexture[ context3d, "UtahEgg", G3dMappedAndSolidTexture.TextureFromAIS[context3d, "/CedarChest7.0/ThreeDWorld/Texture.ais", $Bump] ]
G3dMappedAndSolidTexture.SumAllMappedTextures[ context3d, "UtahEgg" ]
G3dRender.SetViewPort[ context3d, [160.0, 3.0, 160.0, 225.0] ]
MakeFrame[]
G3dRender.SetView[context3d, [0.0, -4.0, 0.0], [0.0, 0.0, 0.0] ]
G3dMappedAndSolidTexture.RemoveAllTexture[ context3d, "UtahEgg" ]
G3dMappedAndSolidTexture.AddSolidTexture[context3d, "UtahEgg", $TwistedStripes ]
G3dRender.SetViewPort[ context3d, [320.0, 0.0, 160.0, 225.0] ]
MakeFrame[]
G3dMappedAndSolidTexture.RemoveAllTexture[ context3d, "UtahEgg" ]
G3dMappedAndSolidTexture.AddSolidTexture[context3d, "UtahEgg", $BurlWood ]
G3dRender.SetViewPort[ context3d, [480.0, 0.0, 160.0, 225.0] ]
MakeFrame[]
G3dRender.SetViewPort[ context3d, [0.0, 0.0, 640.0, 450.0] ]
G3dColorDisplaySupport.PutAIS[ context3d, "ComparisonEggs.ais"]
Cedar 6.0(?) Measurements - 3, 70, 95, 190, 150, 300, 160, 540
context3d.class.draw2DRope[context3d, "12 sec.", [0.078125, 0.4791667]]
context3d.class.draw2DRope[context3d, "53 sec.", [0.328125, 0.4791667]]
context3d.class.draw2DRope[context3d, "70 sec.", [0.578125, 0.4791667]]
context3d.class.draw2DRope[context3d, "75 sec.", [0.828125, 0.4791667]]
context3d.class.draw2DRope[context3d, "200 sec.", [0.078125, 0.016667]]
context3d.class.draw2DRope[context3d, "305 sec.", [0.328125, 0.016667]]
context3d.class.draw2DRope[context3d, "165 sec.", [0.578125, 0.016667]]
context3d.class.draw2DRope[context3d, "570 sec.", [0.828125, 0.016667]]
Lamming Illustration
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]<Crow>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]<Crow>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]<Crow>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]<Crow>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: -100.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]<Crow>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, 1280, 960, "Lamming7Scene1280x960.ais" ]
G3dColorDisplaySupport.MakeHiResFrame[ context3d, 1536, 1152, "Lamming7Scene1536x1152.ais" ]
G3dColorDisplaySupport.MakeHiResFrame[ context3d, 2000, 1500, "Lamming7Scene2000x1500.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" ]