Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*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 1998

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

Search the Archive

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


  • To: mathgroup@smc.vnet.net
  • Subject: [mg10972] Re: How do you draw Triangles and other Geometric figures in Mathematica?
  • From: Allan Hayes <hay@haystack.demon.co.uk>
  • Date: Sun, 15 Feb 1998 02:10:38 -0500
  • References: <6c3eoj$1f1@smc.vnet.net>

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