Re: FullGraphics question

• To: mathgroup at smc.vnet.net
• Subject: [mg73545] Re: FullGraphics question
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Wed, 21 Feb 2007 01:54:48 -0500 (EST)
• Organization: Uni Leipzig
• References: <ereljh\$7kd\$1@smc.vnet.net>

```Hi,

g = g /.
Text[txt_String, {x_, y_}, {z_, w_}] :> Text[txt, {x - 0.21,
y}, {z, w}, TextStyle -> {FontFamily -> "Times"}];

will do that.

Regards
Jens

dimitris wrote:
> Hello to all.
>
> The following question is in connection with a recent question about
> left-alligned PlotLabel
> (see here:
> )
>
> My code which is based on an old post of Bruce Colleti regarding ticks
> label and FullGraphics
> (ee here:
> )
>
> is as follows:
>
> g = Plot[x, {x, 0, 1}, PlotLabel -> "label to be alligned left", Axes -
>> False, Frame -> {True, True, False, False}];
> g = FullGraphics[g];
> g = Replace[g, Text[text_String, {x_, y_}, {z_, w_}] -> Text[text, {x
> - 0.21, y}, {z, w}], 3];
> Show[g, PlotRange -> All];
>
> As someone can see the PlotLabel object is indeed left-alligned.
>
> Let modify now the original plot.
>
> g = Plot[x, {x, 0, 1}, PlotLabel -> "label to be alligned left", Axes -
>> False, Frame -> {True, True, False, False},
>     TextStyle -> {FontFamily -> "Times", FontSize -> 14}];
> g = FullGraphics[g];
> g = Replace[g, Text[text_String, {x_, y_}, {z_, w_}] -> Text[text, {x
> - 0.21, y}, {z, w}], 3];
> Show[g, PlotRange -> All];
>
> The PlotLabel object appeared again on the left but the TextStyle took
> the default settings.
> How can overcome this problem?
>
> Dimitris
>
>

```

• Prev by Date: Re: Precision issues
• Next by Date: Approximate/asymptotic factorization
• Previous by thread: Re: FullGraphics question
• Next by thread: Re: FullGraphics question