Left/right justifying rotated text [ corrected ]

• To: mathgroup at smc.vnet.net
• Subject: [mg46972] Left/right justifying rotated text [ corrected ]
• From: kj <socyl at 987jk.com>
• Date: Thu, 18 Mar 2004 01:24:57 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```[ NB: I noticed a potentially confusing omission in my original
post; I've fixed it in this repost. ]

I want to place rotated text in a graphic in such a way that the
left (or right) edge of the text lands on the specified location
{x, y}.  When I say "left" (or "right") edge of the text, I mean
the edge corresponding to the left (or right) edge of the *unrotated*
text, *not* the left (or right) edge of a bounding box around the
*rotated* text having its sides parellel to the coordinate axes.
^^^^^^^^^
The text in question is to be rotated by an angle other than an
integral multiple of Pi/2.  For example, if the string in question
is "rotated", the location is {0, 0}, and the rotation angle is
Pi/4, I want the midpoint of the left edge of the initial "r" to
be in the upper right quadrant, more or less at Scaled[{0.03,
0.03}].

When I try

Show[
Graphics[
Text["rotated", {0, 0}, {-1, 0}, {Cos[Pi/4], Sin[Pi/4]}]],
Axes->True];

the text is rotated correctly , but placed such that the "r" is in
the lower left quadrant, and {0, 0} appears right above the "t"
(or the "o", depending on how one interprets the word "above").
This doesn't agree with the documentation for Text, no matter how
I interpret it.

How can I do what I want to do?

Thanks!

kj

P.S. Is this a hopelessly difficult task in Mathematica?
--
NOTE: In my address everything before the period is backwards.

```

• Prev by Date: Re: Exact real solutions of cubic equations
• Next by Date: Re: Mathematica 5: Integration bug in quadratic found by the GEMM machine
• Previous by thread: Antw: Binary File Read in Mathematica 5 for Mac OSX
• Next by thread: Re: Left/right justifying rotated text [ corrected ]