Re: RotateLabel in 3D ?

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

na gut man hat es nicht anders gewollt

mit

Block[{$FrontEnd, $Notebooks = False},
  Off[FrontEndObject::notavail]; 
  gr = Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi},
      AxesLabel -> {"\\tex[br][br][1][45]{$\int f(x)\,d x$}",
          "\\tex[br][bl][1][-90]{$y$}",
          "\\tex[br][br][1][90]{$\phi(x,y,z)^2$}"}
      ];
  Export["test.eps", gr];
  On[FrontEndObject::notavail]
  ]

ein EPS-file f"ur PSFrag erzeugen, dann

das LaTeX file

\documentclass{article}
\usepackage{graphicx}
\usepackage{psfrag}

\begin{document}
\psfragscanon
\includegraphics[width=\textwidth]{test.eps}


\end{document}

"ubersetzen und mit dvips ausgeben,
heraus kommt

http://phong.informatik.uni-leipzig.de/~kuska/Rotate3D.ps

den Block[{$FrontEnd}, ...] braucht man
nur wenn man ein FrontEnd hat, im Kommondozeilen-Kernel
geht alles ganz prima ohne ...
Man brauch das auch nur um zu verhindern das das FrontEnd
die TeX Befehle f"ur PSFrag schreddert.

Nat"urlich kann man die TeX Version der Label auch mit
ToString[TeXForm[TraditionalForm[]]] basteln
und man kann sich nat"urlich beliebige 
Rotationswinkel basteln,

und wer die Mathematica fonts benutzen will sollte

\usepackage{wrisym}

mit den phantastischen TeX Fonts f"ur Mathematica einbinden.

L"asst man sich auch noch das PostScript file mit ghostscript
in ein PNG umwandeln sollte auch jeder Browser das Zeug
darstellen k"onnen.

Kann's noch sch"oner werden ???
Wohl kaum ...

Gruss
  Jens

Hans-Joachim Spitzer wrote:
> 
> Es ist etwas krüppelig, aber ich würde es mit Primitiven selbst programmieren.
> Text erlaubt, wie sicher bekannt, neben dem Offset (Mittig,Linksbündig, ..)
> auch die Richtung, in 3D allerdings nur die 2D-Projektion
> (Cos[alpha],Sin[alpha]) anzugeben. Das hat Vorteile und Nachteile, Vorteil,
> dass bei einer Rotation der Text zwar an der richtigen Stelle erscheint, aber
> in der Ausrichtung fest , also immer lesbar bleibt (Wie in Webmathematica,
> wenn man MSPLive3D von Martin Kraus nutzt).Nachteil, wenn der Text
> auch in der Ausrichtung die Drehungen mitmachen soll, kann man zwar die
> Projektion der gedrehten Richtung ausrechnen lassen, aber man kann den Text
> nicht ohne Weiteres verkürzen oder dehnen. Für eine Drehung um 90 Grad, wie
> bei RotateLabel, reicht dieses Vorgehenjedoch  völlig aus ({0,-1} von Oben
> nach Unten und {0,1} von Unten nach Oben geschrieben).
> 
> Mit freundlichen Grüssen
> 
> Hajo Spitzer
> 
> Am Montag, 3. März 2003 20:35 schrieb Jens-Peer Kuska:
> > Hallo,
> >
> > n"o, weiss ich nicht. Weil keiner weiss um welchen Punkt
> > Du drehen willst und schon garnicht wie die drei Euler-Winkel
> > daf"ur sind. Mathematica's Text[] ist immer 2d, die Position
> > mag zwar 3d sein aber der Text hat keine (Lauf)Richtung oder
> > "ahnliches und schon garkeinen Richtungsvektor den man drehen
> > k"onnte
> >
> > Schlimmer noch ist, das das FrontEnd auch den 2d gedrehten
> > Text[] verhackst"uckt, es schreibt kein nettes
> >
> >  (Irgend ein Label) 90 rotate show
> >
> > sondern es schreibt
> >
> > x1 y1 move (I) show
> > x2 y2 move (r) show
> > x3 y3 move (g) show
> 
> --
> Dr. Hans-Joachim Spitzer
> MMS des cms der Humboldt Universität
> (ehemals Rechenzentrum)
> Unter den Linden 6
> 10099 Berlin
> ============================
> Büro : Adlershof, Erwin Schrödinger Haus
> Raum 2'111
> Tel. 030 20937029
> Fax 030 20932992