Re: AxesLabel parallel to 3D axes?
- To: mathgroup at smc.vnet.net
- Subject: [mg111422] Re: AxesLabel parallel to 3D axes?
- From: "David Park" <djmpark at comcast.net>
- Date: Sun, 1 Aug 2010 04:54:59 -0400 (EDT)
If one can accept having labels inside the bounding box, then the following
is a solution independent of the ViewPoint. The labels stay parallel to the
axes no matter how the image is rotated with the mouse.
Needs["Presentations`Master`"]
Draw3DItems[
{Draw3D[x y, {x, 0, 1}, {y, 0, 1}],
Black,
VerticalText3D[
Style["This is x", FontFamily -> "Helvetica"], {0.5, 0, -0.05},
0 \[Degree], .07 {1.5, 1}],
VerticalText3D[
Style["This is y", FontFamily -> "Helvetica"], {1.0, 0.5,
0. - 0.05}, 90 \[Degree], .07 {1.5, 1}],
Text3D[Style["This is z", FontFamily -> "Helvetica"], {-0.0, -0.0,
0.5}, -180 \[Degree], {1, 0, 0}, .07 {1.5, .7}]},
NiceRotation,
PlotRange -> {{0, 1}, {0, 1}, {-0.1, 1}},
PlotRangePadding -> 0.05,
BoxRatios -> {1, 1, .5},
Axes -> True,
AxesEdge -> {{-1, -1}, {1, -1}, {-1, -1}},
ViewPoint -> 2 {1, -1, .25},
ImageSize -> 1.2 {400, 350}]
Of course with true 3D labels when you rotate the image the labels also
rotate and sometimes may be seen edgewise, or backward, or partially hidden
by the surface.
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: Murray Eisenberg [mailto:murray at math.umass.edu]
But -- at least on my 1600x1200 monitor, Windows XP, the axes labels now
have considerably degraded resolution and therefore look quite awful.
However, if I then export the plot to pdf and view the latter, the
labels look just fine!
On 7/30/2010 6:55 AM, Bob Hanlon wrote:
> If the ViewPoint is not allowed to change:
>
> labels = {
> Rotate["This is the x", -20 Degree],
> Rotate["This is the y", 60 Degree],
> Rotate["This is the z\n", 95 Degree]};
>
> Plot3D[x y, {x, 0, 1}, {y, 0, 1},
> AxesLabel -> labels]
>
>
> Bob Hanlon
>
> ---- David Reiss<dbreiss at gmail.com> wrote:
>
> =============
> If one sets the AxesLabel option for, for example, Plot3D, is there
> any way to set things up so that resulting labels are always parallel
> to their own axes?
>
> ...here is an example, and a customer would like the labels to align
> along/paralle the axes rather than what is shown here....
>
> Plot3D[x y, {x, 0, 1}, {y, 0, 1},
> AxesLabel -> {"This is the x", "This is the y", "This is the z"}]
>
>
>
--
Murray Eisenberg murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower phone 413 549-1020 (H)
University of Massachusetts 413 545-2859 (W)
710 North Pleasant Street fax 413 545-1801
Amherst, MA 01003-9305