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