MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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