Re: Can I make this shape?
- To: mathgroup at smc.vnet.net
- Subject: [mg26494] Re: [mg26485] Can I make this shape?
- From: BobHanlon at aol.com
- Date: Thu, 28 Dec 2000 21:31:28 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Looking up pentagon in the index directs one to the package:
Needs["Geometry`Polytopes`"];
v = Vertices[Pentagon];
Show[Graphics[{RGBColor[0, 0, 1], Polygon[v]}], AspectRatio -> 1];
If you want to rotate it there is another package:
Needs["Geometry`Rotations`"]
v = Simplify[Rotate2D[#,3Pi/10,{0,0}]& /@ v];
(* this uses exact numbers for "perfect" pentagon *)
(* rotation is faster if you use approximate numbers. *)
(* v = Rotate2D[#, N[3Pi/10],{0.,0.}]& /@ v; *)
Show[Graphics[{RGBColor[0, 0, 1], Polygon[v]}], AspectRatio -> 1];
Bob Hanlon
In a message dated 12/28/00 3:21:44 AM, nitehawk at sympatico.ca writes:
>I was wondering if It was possible to make a perfect pentagon in
>mathematica??
>