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..