Re: FullGraphics question

*To*: mathgroup at smc.vnet.net*Subject*: [mg73514] Re: [mg73496] FullGraphics question*From*: bsyehuda at gmail.com*Date*: Wed, 21 Feb 2007 01:38:04 -0500 (EST)

Hi Dimitris, In the last replacement rule wrap the text to be left-aligned with a StyleForm that have the required options as follows 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[StyleForm[text, FontSize -> 14, FontFamily -> Times], {x - 0.21, y}, {z, w}], 3]; Show[g, PlotRange -> All]; good luck yehuda On 2/20/07, dimitris <dimmechan at yahoo.com> wrote: > > 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 > > >