Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Problem with Solve and O[x]
  • Next by Date: Rendering images of reconstructed neurons
  • Previous by thread: Summary: equating a variable with its value
  • Next by thread: Rendering images of reconstructed neurons