RE: how to rotate text in 2-D graphics?
- To: mathgroup at smc.vnet.net
- Subject: [mg33245] RE: [mg33240] how to rotate text in 2-D graphics?
- From: "David Park" <djmp at earthlink.net>
- Date: Tue, 12 Mar 2002 05:08:27 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Harald,
Use the Text statement with a 4'th argument. Here is an example:
Plot[Sin[x], {x, 0, Pi/2},
Epilog -> Text[Sin[x], {0.204912, 0.340304}, {-1, 0}, {1, 1}]];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Harald von der Osten-Woldenburg [mailto:hvdosten at lb.netic.de]
To: mathgroup at smc.vnet.net
>
>
> 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
>
>
>
>
>
>