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