Re: Rotated text not appearing in a Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg118184] Re: Rotated text not appearing in a Plot
- From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
- Date: Sat, 16 Apr 2011 07:31:39 -0400 (EDT)
- References: <io8tjk$q7r$1@smc.vnet.net>
Looks like a bug to me.
This works:
Plot[x, {x, 1, 1000},
Epilog ->
{
Text["Appears normally", {500, 300}],
Rotate[Text["Appears normally", {500, 300}], 70 \[Degree]],
Rotate[Text["Doesn't appear", {500, 300}], 40 \[Degree]]
}, PlotRange -> All
]
with x instead of Log[x]
but this doesn't:
Plot[Log[x], {x, 1, 1000},
Epilog ->
{
Text["Appears normally", {500, 300 // Log}],
Rotate[Text["Appears normally", {500, 300 // Log}], 70 \[Degree]],
Rotate[Text["Doesn't appear", {500, 300 // Log}], 40 \[Degree]]
}, PlotRange -> All
]
everything the same except the function and the vertical range.
It's not Rotate per se, because if I add it to the first text that one
still works:
Plot[Log[x], {x, 1, 1000},
Epilog ->
{
Rotate[Text["Appears normally", {500, 300 // Log}], 0 \[Degree]],
Rotate[Text["Appears normally", {500, 300 // Log}], 70 \[Degree]],
Rotate[Text["Doesn't appear", {500, 300 // Log}], 40 \[Degree]]
}, PlotRange -> All
]
The same code works in Graphics:
Graphics[{Rotate[Text["Appears normally", {500, 300 // Log}],
0 \[Degree]],
Rotate[Text["Appears normally", {500, 300 // Log}], 70 \[Degree]],
Rotate[Text["Doesn't appear", {500, 300 // Log}], 40 \[Degree]]}]
Using multiples of 90 degrees also works:
Plot[Log[x], {x, 1, 1000},
Epilog ->
{
Rotate[Text["Appears normally", {500, 300 // Log}], 0 \[Degree]],
Rotate[Text["Appears normally", {500, 300 // Log}], 90 \[Degree]],
Rotate[Text["Doesn't appear", {500, 300 // Log}], 180 \[Degree]]
}, PlotRange -> All
]
I'd suggest sending a bug report to support at wolfram.com
Cheers -- Sjoerd
On Apr 15, 9:54 am, "J. McKenzie Alexander" <ja... at lse.ac.uk> wrote:
> Hello,
>
> When I evaluate the following, the first two text items from the Epilog appear but the third, for some reason, does not. I'm working on an i7 iMac, running 10.6.7, Mathematica version 8.0.1, and I was wondering if this was a general bug or a version-specific bug.
>
> Plot[Log[x], {x, 1, 1000000},
> Epilog -> {
> Text["Appears normally", {500000, 12}],
> Rotate[Text["Appears normally", {500000, 12}], Pi/2, {500000, 12}],
> Rotate[Text["Doesn't appear", {500000, 12}], Pi/4, {500000, 12}]
> }
> ]
>
> Cheers,
>
> Jason
>
> --
> Dr J. McKenzie Alexander
> Department of Philosophy, Logic and Scientific Method
> London School of Economics and Political Science
> Houghton Street, London WC2A 2AE
>
> Please access the attached hyperlink for an important electronic communications disclaimer:http://lse.ac.uk/emailDisclaimer