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