Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #1682 > unrolled thread

Rotated text not appearing in a Plot

Back to article view | Back to comp.soft-sys.math.mathematica

Contents

  Rotated text not appearing in a Plot "J. McKenzie Alexander" <jalex@lse.ac.uk> - 2011-04-15 07:54 +0000
    Re: Rotated text not appearing in a Plot "Sjoerd C. de Vries" <sjoerd.c.devries@gmail.com> - 2011-04-16 11:31 +0000
    Re: Rotated text not appearing in a Plot Peter Pein <petsie@dordos.net> - 2011-04-16 11:34 +0000

#1682 — Rotated text not appearing in a Plot

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

[toc] | [next] | [standalone]

#1732

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@wolfram.com

Cheers -- Sjoerd


On Apr 15, 9:54 am, "J. McKenzie Alexander" <ja...@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

[toc] | [prev] | [next] | [standalone]

#1735

Am 15.04.2011 09:54, schrieb J. McKenzie Alexander:
> 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
>

...and it comes worse :-(

try:

Manipulate[
  Plot[Log[x], {x, 1, 1000000},
   Epilog -> {Blue,
     Rotate[Text["looks strange", {500000, 12}], \[Alpha], {500000,
       12}]}], {\[Alpha], 0, 4*^-5, 1.*^-6}]

these tiny angles shouldn't have any visible effect, but the text turns 
by almost Pi/2 and distorts.

Peter

[toc] | [prev] | [standalone]

Back to top | Article view | comp.soft-sys.math.mathematica

csiph-web