MathGroup Archive 2002

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

Search the Archive

Re: GraphicsArray

  • To: mathgroup at smc.vnet.net
  • Subject: [mg33039] Re: [mg33029] GraphicsArray
  • From: BobHanlon at aol.com
  • Date: Wed, 27 Feb 2002 00:47:55 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 2/26/02 6:32:07 AM, erfa11 at hotmail.com writes:

>I don't get the the real scale of the lines, when I use
>Graphics Array
>
>l1 = {Line[{{-(1/2), 1}, {1/2, 1}}], Line[{{-1, 2}, {1, 2}}],
>      Line[{{-(3/2), 3}, {3/2, 3}}]};
>l2 = {Line[{{-(1/2), 1}, {1/2, 1}}], Line[{{0, 2}, {0, 2}}],
>      Line[{{0, 3}, {0, 3}}]};
>l3 = {Line[{{0, 1}, {0, 1}}], Line[{{-1, 2}, {1, 2}}],
>      Line[{{0, 3}, {0, 3}}]};
>l4 = {Line[{{0, 1}, {0, 1}}], Line[{{0, 2}, {0, 2}}],
>      Line[{{-(3/2), 3}, {3/2, 3}}]};
>
>{g1, g2, g3, g4} = Graphics /@ {l1, l2, l3, l4};
>
>Show[GraphicsArray[{g1,g2,g3,g4}]];
>
>The lines are drawn with the same sizes, in g2, g3, g4, but they have not
>the same sizes.
>The sizes are {1, 2, 3}, like g1.
>
>Does somebody know a way to get the lines in the 3 pictures in the same
>scales?
>FullGraphics does not help, AspectRatio->Automatic either.
>

l1={Line[{{-(1/2),1},{1/2,1}}],Line[{{-1,2},{1,2}}],
      Line[{{-(3/2),3},{3/2,3}}]};
l2={Line[{{-(1/2),1},{1/2,1}}],Line[{{0,2},{0,2}}],
      Line[{{0,3},{0,3}}]};
l3={Line[{{0,1},{0,1}}],Line[{{-1,2},{1,2}}],
      Line[{{0,3},{0,3}}]};
l4={Line[{{0,1},{0,1}}],Line[{{0,2},{0,2}}],
      Line[{{-(3/2),3},{3/2,3}}]};


{g1,g2,g3,g4}=Graphics[#, PlotRange ->
 
            {{-3/2,3/2},Automatic}]&/@
      {l1,l2,l3,l4};

Show[GraphicsArray[{g1,g2,g3,g4}]];


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Re: need a function for sums of subsets
  • Next by Date: RE: GraphicsArray
  • Previous by thread: RE: GraphicsArray
  • Next by thread: RE: GraphicsArray