MathGroup Archive 1998

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

Search the Archive

Re: How do you draw Triangles and other Geometric figures in Mathematica?



Show[Graphics[Line[{{x1,y1},...., {xn,yn},{x1,y1}}]]] displays a closed
(because of the final {x1,y1}} polygonal line 

Show[Graphics[Polygon[{{x1,y1},...., {xn,yn}}]]] displays a black filled
polygon/

Here's a blue triangle (thick line)
In[16]:=
ln=Show[Graphics[{Thickness[.02],Hue[.6],Line[{{0,0},{1,1},{0,1},{0,0}}]}]]

and the corresponding red-filled polygon In[17]:=
pol=Show[Graphics[{Hue[0],Polygon[{{0,0},{1,1},{0,1}}]}]]

Put the two together:
In[18]:=
Show[pol,ln]

For regular shapes the following Add-ons are useful

in 2D: 
	Geometry`Polytopes`
in 3D
	Graphics`Polyhedra`
	Graphics`Shapes`


-- 
Training and Consulting
Leicester, UK
hay@haystack.demon.co.uk
http://www.haystack.demon.co.uk
voice: +44 (0)116 271 4198
fax: +44 (0)116 271 8642




  • Prev by Date: Re: saving styles from notebooks: help, please!
  • Next by Date: Re: Re: String patterns
  • Prev by thread: Re: How do you draw Triangles and other Geometric figures in Mathematica?
  • Next by thread: MathLink portnumbers and internal types