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