©2005 Wolfram Research, Inc. except for portions noted otherwise

Tetrix

Author

Eric W. Weisstein
April 7, 2002

Initialization

<<Fractal`;
<<LiveGraphics3D`;

Do[WriteLiveForm["tetrix"<>ToString[i]<>".m",Show[Tetrix[i],Boxed->False,ViewPoint->{3,-1,0},ViewVertical->{1,1,1},DisplayFunction->Identity]],{i,3}]

Show[GraphicsArray[Table[Show[Tetrix[i],DisplayFunction->Identity,ViewPoint->{3,-1,0},ViewVertical->{1,1,1},Boxed->False],{i,3}]]]

Show[GraphicsArray[Table[Show[Graphics3D[Tetrix[1],ViewPoint->{i,i,10},Boxed->False,DisplayFunction->Identity]],{i,2,0,-1}]],DisplayFunction->$DisplayFunction]