Re: Re: Re: Re: format Text in graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg42317] Re: [mg42287] Re: [mg42274] Re: [mg42260] Re: [mg42251] format Text in graphics
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Sat, 28 Jun 2003 03:22:04 -0400 (EDT)
- Organization: Mathematics & Statistics, Univ. of Mass./Amherst
- References: <200306250950.FAA04042@smc.vnet.net> <200306271031.GAA24552@smc.vnet.net>
- Reply-to: murray at math.umass.edu
- Sender: owner-wri-mathgroup at wolfram.com
Do I understand correctly? You are suggesting treating something like
Plot[Sin[x], {x, 0, 2Pi}, Epilog -> {Text["y=f(x)", {Pi, 1/2}]}];
by using the Format menu in the front end to format, as one desires,
individual symbols.
If so, that will work perfectly -- except in my application! What I'm
doing is creating code in Mathematica that gets pasted into a software
tool that automatically generates .jsp files for use with
webMathematica. (Perhaps I should have said that.) And the difficulty
is that what gets pasted in will, of course, be the InputForm of the
treated Text expression -- which can become just the sort of dense,
essentially unreadable (at least by me) code such as you show, with all
the escaped characters, etc.
Omega Consulting wrote:
> I think there is a simpler way to do this. There is a nice feature that
> styles applied inside strings will be used in the graph. Start with a plain
> string.
>
> Plot[Sin[x], {x, 0, 2Pi},
> Epilog -> {Text["y=f(x)", {Pi, 1/2}]}];
>
> Then select characters inside the string and add font features (italics,
> fontfamily, etc.). The following is a step in the right direction. (It's
> pretty ugly here, but paste it in the frontend and it should look fine.)
>
> Plot[Sin[x], {x, 0, 2Pi},
> Epilog -> {Text["\!\(\*
> StyleBox[\"y\",\nFontFamily->\"Times New Roman\",\nFontSlant->\"Italic\"]\)\!\
> \(\*
> StyleBox[\"=\",\nFontFamily->\"Times New Roman\"]\)\!\(\*
> StyleBox[\"f\",\nFontFamily->\"Times New Roman\",\nFontSlant->\"Italic\"]\)\!\
> \(\*
> StyleBox[\"(\",\nFontFamily->\"Times New Roman\"]\)\!\(\*
> StyleBox[\"x\",\nFontFamily->\"Times New Roman\",\nFontSlant->\"Italic\"]\)\!\
> \(\*
> StyleBox[\")\",\nFontFamily->\"Times New Roman\"]\)", {Pi, 1/2}]}];
>
> At 04:36 AM 6/26/2003, Murray Eisenberg wrote:
>
>>Thanks to all who have replied so far -- and please keep the answers
>>coming! Perhaps we will at last see a truly simple, straigntforward,
>>robust, and correct way to accomplish what seems such a basic task for
>>annotating graphics!
>>
>>So far, the solution below -- with the proposer's subsequent (privately
>>sent) amendment to wrap y and f[x] with HoldForm -- seems to be the only
>>one that actually works in the sense I indicated.
>>
>>There still seems to be no general solution that would also properly
>>format, in conventional form, other math expressions as Text in graphics
>>output.
>>
>>
>>Gianluca Gorni wrote:
>>
>>>Hello!
>>>
>>>I do it this way:
>>>
>>>Format[myEqual[x_, y_], TraditionalForm] :=
>>> DisplayForm[RowBox[{x, "=", y}]];
>>>
>>>Plot[Sin[x], {x, 0, 2Pi},
>>> Epilog -> {Text[TraditionalForm[myEqual[y, f[x]]], {Pi, 1/2}]}];
>>>
>>>Good luck,
>>>
>>> Gianluca Gorni
>>>
>>>
>>>
>>>>From: Murray Eisenberg <murray at math.umass.edu>
To: mathgroup at smc.vnet.net
>
> To: mathgroup at smc.vnet.net
>
>>To: mathgroup at smc.vnet.net
>>
>>>To: mathgroup at smc.vnet.net
>>>
>>>
>>>>Organization: Mathematics & Statistics, Univ. of Mass./Amherst
>>>>Reply-To: murray at math.umass.edu
>>>>Date: Wed, 25 Jun 2003 01:53:47 -0400 (EDT)
>>>>To: mathgroup at smc.vnet.net
>>>>Subject: [mg42317] [mg42287] [mg42274] [mg42260] [mg42251] format Text in graphics
>>>>
>>>>What value of Epilog in a Plot expression will properly format
>>>>
>>>>y = f(x)
>>>>
>>>>in conventional mathematical style? That is, the y, f, and x should be
>>>>italicized but the = and parentheses should not.
>>>>
>>>>Some things that do NOT work:
>>>>
>>>>Epilog -> Text[TraditionalForm[y = f(x)], {0.5, 0.5}]
>>>>
>>>>(* that just sets y to be f(x) and then displays f(x) *)
>>>>
>>>>textForm[txt_] := StyleForm[txt, FontFamily -> Times]
>>>>mathForm[txt_] := StyleForm[txt, FontFamily -> Times, FontSlant -> Italic]
>>>>
>>>>Epilog -> Text[mathForm["y "], textForm["="], mathForm[" f(x)"], {0.5 0.5}]
>>>>
>>>>(* SOMETHING like the preceding should work, but I don't see how to
>>>>combine the three StyleForm results *)
>>>>
>>>>--
>>>>Reply to "REPLY TO" address and NOT to the "FROM" address!!
>>>>Otherwise I will never see your reply!!!!!!!!!!!!!!!!!!!!!!
>>>>
>>>>Murray Eisenberg murray at math.umass.edu
>>>>Mathematics & Statistics Dept.
>>>>Lederle Graduate Research Tower phone 413 549-1020 (H)
>>>>University of Massachusetts 413 545-2859 (W)
>>>>710 North Pleasant Street fax 413 545-1801
>>>>Amherst, MA 01003-9305
>>>>
>>>
>>>
>>>
>>--
>>Reply to "REPLY TO" address and NOT to the "FROM" address!!
>>Otherwise I will never see your reply!!!!!!!!!!!!!!!!!!!!!!
>>
>>Murray Eisenberg murray at math.umass.edu
>>Mathematics & Statistics Dept.
>>Lederle Graduate Research Tower phone 413 549-1020 (H)
>>University of Massachusetts 413 545-2859 (W)
>>710 North Pleasant Street fax 413 545-1801
>>Amherst, MA 01003-9305
>
>
> --------------------------------------------------------------
> Omega Consulting
> "The final answer to your Mathematica needs"
> http://omegaconsultinggroup.com
>
>
--
Reply to "REPLY TO" address and NOT to the "FROM" address!!
Otherwise I will never see your reply!!!!!!!!!!!!!!!!!!!!!!
Murray Eisenberg murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower phone 413 549-1020 (H)
University of Massachusetts 413 545-2859 (W)
710 North Pleasant Street fax 413 545-1801
Amherst, MA 01003-9305
- References:
- Re: format Text in graphics
- From: Gianluca Gorni <gorni@dimi.uniud.it>
- Re: Re: Re: format Text in graphics
- From: Omega Consulting <info@omegaconsultinggroup.com>
- Re: format Text in graphics