Re: how to rotate text in 2-D graphics?
- To: mathgroup at smc.vnet.net
- Subject: [mg33257] Re: how to rotate text in 2-D graphics?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 12 Mar 2002 05:08:46 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <a6e5an$138$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
the manual say
Text[expr, coords, offset, dir] specifies the orientation
of the text is given by the direction vector dir.
and
pict1 = ListPlot[data1, PlotJoined -> True, PlotStyle ->
{Thickness[0.0025]},
FrameStyle -> {Thickness[0.004]}, Frame -> True,
FrameLabel -> {" ..... ", "....."}, RotateLabel -> True,
PlotRange -> {{0., 2.001}, {.1, .7001}}, GridLines -> Automatic,
AspectRatio -> .5, ImageSize -> {550, 400},
DefaultFont -> {"Times-Bold", 14}, FormatType -> OutputForm,
Epilog -> {
Text["200 MHz", {0.23, 0.63}, {0, 0}, {0.5, 0.5}],
Text["v = 0.04 m / nsec", {1.55, 0.35}, {0, 0}, {-0.5, 0.5}],
Text["v = 0.10 m / nsec", {1.23, 0.63}, {0, 0}, {-0.5, -0.5}]
}
]
depending on your operating system the text may look like
2
0
0
M
H
z
because some OS can't display rotated text. But the
PostScript output will be correct.
Regards
Jens
Harald von der Osten-Woldenburg wrote:
>
> Hi,
>
> if I combine several curves in one plot I need to put some text next to
> the curves. To avoid that the horizontal text intersects several curves
> I would like to rotate the text at specific different angles. I searched
> with groups.google.com but didn't find any answer. Anyhow, is it
> possible?
>
> Up to now I am using
>
> pict1 = ListPlot[data1, PlotJoined -> True, PlotStyle ->
> {Thickness[0.0025]},
> FrameStyle -> {Thickness[0.004]}, Frame -> True,
> FrameTicks -> {obenunten, rechtslinks, obenunten, rechtslinks},
> FrameLabel -> {" ..... ", "....."}, RotateLabel -> True,
> PlotRange -> {{0., 2.001}, {.1, .7001}}, GridLines -> Automatic,
> AspectRatio -> .5, ImageSize -> {550, 400},
> DefaultFont -> {"Times-Bold", 14}, FormatType -> OutputForm,
> Epilog -> {Text["200 MHz", {0.23, 0.63}],
> Text["v = 0.04 m / nsec", {1.55, 0.35}], Text["v = 0.10 m / nsec",
> {1.23, 0.63 }]}]
> :
> :
> :
>
> pict6 = ListPlot[data6,....]
>
> ois = Show[pict1,......,pict6]
>
> Thanxs a lot for any help
>
> Harry
>
> --
> Harald von der Osten-Woldenburg
> Geophysical Prospection of Archaeological Sites
> National Heritage Department of Baden-Wuerttemberg
> Silberburgstrasse 193, D-70178 Stuttgart
> Fax Office: +49-(0)711-1694-707
> http://www.lb.netic.de/hvdosten : Geomagnetics, Geoelectrics, Radar, EMI