MathGroup Archive 2009

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

Search the Archive

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


  • Prev by Date: Re: Very strange behaviour of ArcTan[]
  • Next by Date: Re: A Question about Combinatorica
  • Previous by thread: printing issue with a simple graphic
  • Next by thread: histograms, logarithmic