Re: (presumably) easy AspectRatio question

*To*: mathgroup at smc.vnet.net*Subject*: [mg58389] Re: [mg58375] (presumably) easy AspectRatio question*From*: "David Park" <djmp at earthlink.net>*Date*: Thu, 30 Jun 2005 04:37:24 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Just use the AspectRatio option in both of your Show statements. Show[Graphics[Line[bLRot]], AspectRatio -> Automatic]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: dbsearch04 at yahoo.com [mailto:dbsearch04 at yahoo.com] To: mathgroup at smc.vnet.net I have a small program that draws a rectangle around the plot of my data. I want to rotate my plot, so I used the Geometry`Rotations` package. I cannot get my plot to look like a simple rotation. I have tried lots of different AspectRatios and ImageSizes to no avail. When I run the small program below, the bounding rectangle prints correctly, but the rotated lines are skew (almost like 3D). I am guessing this is a simple problem, but it is currently beyond me. The relevant portion of the program is: In[1] = bL = {{0, -1.76}, {1., -1.76}, {1., 1.76}, {0, 1.76}}; In[2] = Show[Graphics[Line[bL]]]; In[3] = << Geometry`Rotations` bLRot = Thread[Rotate2D[bL, N[Pi/6]]] Out[3] = {{-0.88, -1.5242}, {-0.0139746, -2.0242}, {1.74603, 1.0242}, {0.88, 1.5242}} In[4] = Show[Graphics[Line[bLRot]]]; Any help is appreciated. Regards..