Strange behavior of Polygon...
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg1263] Strange behavior of Polygon...
- From: Intae Kang <ik1 at cec.wustl.edu>
- Date: Mon, 29 May 1995 03:38:53 -0400
Dear Mathgroup,
I am a still novice of MMA.
I want to use the following code for the clear understanding of 3D ViewPoint.
Each symbol 'x','y','z' worked well for 2D graphics, but when I want to
use for 3D graphics, the behavior of Polygon was quite strange.
With[{x=1,y=1,z=1},
Show[Graphics3D[{
(* "x" symbol *)
{RGBColor[1,0,0],
Polygon[{{3x,-3y,-3z},{3x,-y,-3z},{3x,0,-z},{3x,y,-3z},\
{3x,3y,-3z},{3x,y,0},{3x,3y,3z},{3x,y,3z},\
{3x,0,z},{3x,-y,3z},{3x,-3y,3z},{3x,-y,0}}\
]},
(* "y" symbol *)
{RGBColor[0,1,0],
Polygon[{{-x,3y,-3z},{x,3y,-3z},{x,3y,0},{3x,3y,3z},{x,3y,3z},\
{0,3y,z},{-x,3y,3z},{-3x,3y,3z},{-x,3y,0},{-x,3y,-3z}}\
]},
(* "z" symbol *)
{RGBColor[0,0,1],
Polygon[{{3x,-3y,3z},{3x,-y,3z},{0,-y,3z},{3x,3y,3z},{-3x,3y,3z},\
{-3x,y,3z},{0,y,3z},{-3x,-3y,3z}}
]}
}],
AspectRatio->Automatic,Lighting->False
]
]
Intae Kang
ik1 at cec.wustl.edu
Washington University in St.Louis