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]:=

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

```

• Prev by Date: Re: Exporting mathematica equations into MathType
• Next by Date: Re: Sudoku puzzle
• Previous by thread: (presumably) easy AspectRatio question
• Next by thread: Re: (presumably) easy AspectRatio question