Re: Spacing of Words in Text Graphics Statements
- To: mathgroup at smc.vnet.net
- Subject: [mg49621] Re: Spacing of Words in Text Graphics Statements
- From: "Dr. Wolfgang Hintze" <weh at snafu.de>
- Date: Sun, 25 Jul 2004 02:55:22 -0400 (EDT)
- References: <cdqqdt$kkp$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
This is the stripped form of David's example from wich you can select by
eye the most appropriate font sizing.
Show[Graphics[
{Text[
StyleForm["wristwatch time",
FontFamily -> "Helvetica",
FontWeight -> "Bold",
FontSize -> #], {0, #}, {0, 0}] &
/@ Range[6, 20, 2]
}
]
];
Regards,
Wolfgang
David Park wrote:
> One of the long standing problems I have had with text in graphics is that the spacings between words is irregular. In fact, sometimes the space between words is entirely loss.
>
> Here is an example.
>
> Needs["Graphics`Colors`"]
> Show[Graphics[
> {Text[
> StyleForm["With wristwatch time indicated",
> FontFamily -> "Helvetia", FontWeight -> "Bold",
> FontSize -> 12], {8., 12.}, {-1, 0}]}],
> PlotRange -> {{0, 16.5}, {0, 14}},
> ImageSize -> 450,
> Background -> AliceBlue];
>
> The space between "wristwatch" and "time" is lost. One can sort of fix it by putting in extra spaces after the bug pops up. This also happens with PlotLabel. I wonder if anyone knows why this happens.
>
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
>
>
>