RE: Graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg34804] RE: [mg34800] Graphics
- From: "Annetts, Dave (E&M, North Ryde)" <David.Annetts at csiro.au>
- Date: Sat, 8 Jun 2002 05:21:10 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi Shz Shz,
> I have a very simple question. Maybe it is too simple to ask
> but i really need help.
> Does anyone know how to
> 1) draw a triangle
> 2) draw a square
> with mathematica" ?
> I try to draw them by loading the Graphics'Arrow' package but it seem
> to benothing come out.
You'll need to look at the graphics primitives section of the book --
Graphics`Arrow draws arrows.
For a triangle, you can try
Show[Graphics[Polygon[{{0, 0}, {0, 1}, {1, 0}}]]];
Show[Graphics[Line[{{0, 0}, {0, 1}, {1, 0}, {0, 0}}]]];
depending upon whether you want it filled or not.
Similar deal with your square ....
An alternate method is to load Geometry`Polytopes, whence
vrts = Vertices[Square]
vrts = Join[vrts, {First[vrts]}]
Show[Graphics[Line[vrts]]];
Depending upon your point of view, the square may be rotated. In this case,
load Geometry`Rotations`, and
rvrts = Rotate2D[#, Pi/4] & /@ vrts;
Show[Graphics[{{Red, Line[rvrts]}, {Line[vrts]}}]];
should cure things ....
Regards,
Dave.
--------------------------------------------------------
Dr. David Annetts EM Modelling Analyst
Tel: (+612) 9490 5416 CSIRO DEM, North Ryde
Fax: (+612) 9490 5467 David.Annetts at csiro.au
Include "usual_disclaimers"
--------------------------------------------------------