Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Re: How export/recompile expressions and calculation code to run
  • Next by Date: Re: Disable save in player pro
  • Previous by thread: Re: AxesLabel parallel to 3D axes?
  • Next by thread: Re: AxesLabel parallel to 3D axes?