Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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
>
>
>


  • Prev by Date: Re: Mathematica precision for a^b
  • Next by Date: RE: Re: Quick integral.
  • Previous by thread: Re: FullGraphics question
  • Next by thread: GUIKit tool to select frames