Services & ResourcesWolfram ForumsMathGroup Archive

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

FullGraphics question

• To: mathgroup at smc.vnet.net
• Subject: [mg73496] FullGraphics question
• From: "dimitris" <dimmechan at yahoo.com>
• Date: Tue, 20 Feb 2007 06:17:55 -0500 (EST)

Hello to all.

The following question is in connection with a recent question about
left-alligned PlotLabel
(see here:
http://groups.google.gr/group/comp.soft-sys.math.mathematica/browse_thread/thread/b3fa58c5aa8f619d/762d60764518f043?hl=el#762d60764518f043
)

My code which is based on an old post of Bruce Colleti regarding ticks
label and FullGraphics
(ee here:
http://groups.google.gr/group/comp.soft-sys.math.mathematica/browse_thread/thread/d549d7f80636d2b8/daf9b915a80c9ca8?lnk=gst&q=Bruce+Colletti&rnum=13&hl=el#daf9b915a80c9ca8
)

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

• Follow-Ups:
  • Re: FullGraphics question
    • From: "Chris Chiasson" <chris@chiasson.name>