•command

A function which creates Graphics3D is defined.

In[40]:=

GatewayArch[] := Module[ {s = 0.8, l = 0.3, d = 80, pts, pts1, pts2, tris, rect, cover, rects} ... tten[Map[Polygon, Map[cover, Partition[tris, 2, 1]], {2}]] ; Graphics3D[{GrayLevel[.8], rects}] ]

Showing graphics operation is defined as a string.

In[41]:=

command = "Show[GatewayArch[],ViewPoint->{1.611, -2.975, 0.066},Lighting->True,Boxed->False]" ;

Converting it to an expression and evaluation makes output graphics.

In[42]:=

ToExpression[command]

Converted by Mathematica  (July 17, 2003)