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


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"]

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

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" ]




¬
GalleryScripts.cm

Crow, June 12, 1989 6:56:34 pm PDT
Comparitive egg shading

Cedar 6.0(?) Measurements - 3, 70, 95, 190, 150, 300, 160, 540
Lamming Illustration

�ÊA™š
œ™Icode™"—J˜JšœÏkœÏc%œ
˜Kš
Ïb™Jš
œ˜Jš
œ˜Jšœ,�œ
˜2Jš
œ@˜@Jš
œR˜RJš
œO˜OJš
œ0˜0Jš
œ>˜>J˜J˜Jš
œ+˜+Jš
œA˜AJ˜J˜Jš
œ.˜.Jš
œ@˜@J˜Jš
œ@˜@Jš
œ1˜1Jš
œ@˜@J˜J˜Jš
œ@˜@Jš
œ*˜*JšœuÏf"œ˜«
Jš
œE˜EJš
œ{˜{Jš
œ<˜<J˜J˜Jš
œA˜AJšœu "œ˜¦
Jš
œE˜EJš
œ>˜>J˜J˜Jš
œ@˜@Jš
œA˜AJš
œP˜PJš
œ>˜>J˜Jš
œA˜AJš
œJ˜JJš
œ>˜>J˜Jš
œ<˜<Jš
œ?˜?J˜Jš
œ>™>Jš
œG˜GJš
œG˜GJš
œG˜GJš
œG˜GJš
œG˜GJš
œG˜GJš
œG˜GJš
œG˜GJ˜—š
Ÿ™Jš
œ˜Jš
œH˜HJš
œE˜EJš
œA˜AJ˜Jš
œl˜lIdefaultš
œ^˜^Jš
œV˜VJš
œT˜TJš
œP˜PJš
œR˜RJšœ¢
ž˜´
Jš
œn˜nLš
œ_˜_Jšœ·
ž"˜Ù
Jš
œ]˜]Jš
œX˜XJš
œZ˜ZJš
œU˜UJšœ|ž$˜ 
Jšœ«
�œž˜Å
Jš
œM˜MJš
œH˜HJš
œJ˜JJšœr 
œ;˜®
Jš
œC˜CJš
œV˜VJšœ}ž$˜¡
Jšœ«
�œž˜Å
Jš
œN˜NJš
œI˜IJš
œK˜KJšœs 
œ;˜¯
Jš
œD˜DJš
œV˜VJšœ}ž1˜®
Jšœ¬
�œž˜Æ
Jš
œN˜NJš
œI˜IJš
œK˜KJš
œ�
˜�
Jš
œ^˜^Lš
œZ˜ZJšœ~ž˜–
Jšœ¥
�œž˜Â
Jš
œN˜NJš
œM˜MJš
œI˜IJš
œ@˜@Jš
œH˜HJšœNž
˜XJš
œ^˜^Lš
œX˜XJšœ†
ž	˜�
Jšœ£
ž˜¹
Jš
œV˜VJš
œQ˜QJš
œT˜TJš
œ\˜\Lš
œY˜YJšœ§
ž˜½
Jš
œO˜OJš
œM˜MJš
œ\˜\Lš
œW˜WJšœ­
ž˜À
Jš
œU˜UJš
œP˜PJš
œS˜SJš
œ`˜`Jšœ|ž˜‘
Jšœ®
�œž˜È
Jš
œO˜OJš
œL˜LJš
œI˜IJšœt 
œ 	œ 
œ˜œ
Jš
œD˜DJš
Ϧ
˜¶
Jš
œG˜GJš
œj˜jLš
œS˜SJš
œQ˜QJš
œN˜NJš
œ.˜.Jš
œ+˜+Jš
œ˜Jš
œ@˜@Jš
œ˜Jšœ6ž˜NJš
œZ˜ZJš
œ\˜\Jš
œ\˜\Jš
œT˜TJš
œ\˜\Jš
œH˜HJš
œN˜NJš
œ>˜>Jš
œA˜AJš
œG˜GJš
œ@˜@Jš
œF˜FJš
œ@˜@J˜Jš
œF˜FJš
œL˜LJš
œ<˜<Jš
œ?˜?Jš
œE˜EJš
œ>˜>Jš
œE˜EJš
œ>˜>Jš
œ>˜>J˜J˜—J˜J˜—…—5œ;‰