Re: printing issue with a simple graphic
- To: mathgroup at smc.vnet.net
- Subject: [mg102680] Re: printing issue with a simple graphic
- From: Armand Tamzarian <mike.honeychurch at gmail.com>
- Date: Tue, 18 Aug 2009 06:10:16 -0400 (EDT)
- References: <h6b3h8$quq$1@smc.vnet.net>
On Aug 17, 3:14 am, divisor <congruentialumina... at yahoo.com> wrote:
> Hello MathGroup:
>
> I have a legend on a graphic created using this one-liner:
>
> Graphics[{Table[{ColorData["SouthwestColors", t/10],
> Text[t/10., {1.5, 2 t}], Rectangle[{0, 2 t }]}, {t, 10}]}]
>
> On the screen this displays fine, but when printed or saved to PDF,
> each square is very large (takes 6 pages), even though the font of the
> value is still small. Of course, this is not WYISIWIG! Is there any
> known way to control this?
>
> BTW, as a result of reading material by David Weiss, I have been
> learning more about "printing styles". Could that have some bearing on
> this problem?
>
> TIA.
>
> FYI: this is reported previously to WRI support.
>
> Regards..
>
> Roger Williams
> Franklin Laboratory
Not sure why that occurs but by setting an explicit ImageSize you can
fix it. eg.
Graphics[{Table[{ColorData["SouthwestColors", t/10],
Text[t/10., {1.5, 2 t}], Rectangle[{0, 2 t}]}, {t, 10}]},
ImageSize -> 50]
Mike