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
- (presumably) easy AspectRatio question