Re: Translations
- To: mathgroup at smc.vnet.net
- Subject: [mg32473] Re: [mg32448] Translations
- From: BobHanlon at aol.com
- Date: Tue, 22 Jan 2002 03:20:00 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
With rotation:
Needs["Geometry`Rotations`"];
Module[{n=31,trans={6,6}, rot = 2Pi,
pts = {{-4,-4},{-3,-2},{-2,-4}},k,r, mid},
k = Length[pts];
mid = (Plus@@pts)/k;
Table[r=m/(n-1); Show[Graphics[{Hue[1-3r/10],
Polygon[
Rotate2D[#,rot*r,mid+trans*r]& /@
(pts+Table[trans*r,{k}])]}],
Axes->True,
PlotRange->{{-5,5},{-5,5}},
AspectRatio -> Automatic],
{m,0,n-1}]];
Bob Hanlon
Chantilly, VA USA