       # 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:=
ln=Show[Graphics[{Thickness[.02],Hue[.6],Line[{{0,0},{1,1},{0,1},{0,0}}]}]]

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

Put the two together:
In:=
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?