Re: FullGraphics question
- To: mathgroup at smc.vnet.net
- Subject: [mg73532] Re: FullGraphics question
- From: "dimitris" <dimmechan at yahoo.com>
- Date: Wed, 21 Feb 2007 01:47:47 -0500 (EST)
- References: <ereljh$7kd$1@smc.vnet.net>
Thanks to everyone who answered my query! Dimitris =CF/=C7 dimitris =DD=E3=F1=E1=F8=E5: > 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_threa= d/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_threa= d/thread/d549d7f80636d2b8/daf9b915a80c9ca8?lnk=gst&q=Bruce+Colletti&rnu= m=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