Re: (presumably) easy AspectRatio question

*To*: mathgroup at smc.vnet.net*Subject*: [mg58377] Re: [mg58375] (presumably) easy AspectRatio question*From*: Jeff Bryant <jeffb at wolfram.com>*Date*: Wed, 29 Jun 2005 01:38:00 -0400 (EDT)*References*: <200506290326.XAA21464@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

You should make sure to set both the first and the last graphic to the same AspectRatio. Try this: In[1]:= bL={{0,-1.76},{1.,-1.76},{1.,1.76},{0,1.76}}; In[2]:= Show[Graphics[Line[bL]],AspectRatio -> Automatic]; In[3]:= <<Geometry`Rotations` In[4]:= bLRot=Thread[Rotate2D[bL,N[Pi/6]]] In[5]:= Show[Graphics[Line[bLRot]],AspectRatio -> Automatic]; -Jeff dbsearch04 at yahoo.com wrote: > 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..

**References**:**(presumably) easy AspectRatio question***From:*dbsearch04@yahoo.com