RE: Graphics3D axes
- To: mathgroup at smc.vnet.net
- Subject: [mg66696] RE: Graphics3D axes
- From: Laura <grzz_76 at hotmail.com>
- Date: Sat, 27 May 2006 03:52:11 -0400 (EDT)
- References: <e56et5$2r2$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
"David Park" <djmp at earthlink.net> wrote in news:e56et5$2r2$1 at smc.vnet.net: > Laura, > > The DrawGraphics Mathematica package that can be purchased through my > web site ($50) amoung other things contains a DrawAxes command for > Graphics3D. The syntax is... > > DrawAxes[{xorg, yorg, zorg}, {min, max}, styles] > > where {min, max} are the displacements from the axes origin in plot > coordinates. styles gives a list of line styles for the 3 axis. The > axes could be labeled by adding separate Text statements. With > DrawGraphics it is easy to add all these things into a plot because > all elements are treated as graphics primitives. Thus multiple > surfaces, axes and Text statements can all be easily combined in one > plot statement. > > Here is an example of its use that combines a plot of four spheres > with a labeled axes. > > Needs["DrawGraphics`DrawingMaster`"] > > sphere[center_, radius_][p_, t_] := > center + radius{Cos[t]Cos[p], Sin[t]Cos[p], Sin[p]} > style = {IndianRed, AbsoluteThickness[2]}; > > Draw3DItems[ > {ParametricDraw3D[ > Evaluate[sphere[#, 1][p, t]], {p, -Pi/2, Pi/2}, {t, 0, > 2Pi}] & /@ ({{-2, -2, -2}, {2, 2, 2}, {-2, -2, 2}, {2, > 2, -2}}0.7), > DrawAxes[{0, 0, 0}, {-3, 3}, {style, style, style}], > MapThread[ > Text[#1, #2, #3] &, {{x, y, z}, > {{3.3, 0, 0}, {0, 1, 0}, {0, 0, 3.3}}, {{0, 0}, {-2, 0}, {0, > 0}}}] > }, > ImageSize -> 300, > Boxed -> False, > NeutralLighting[0.8, 0.8, 0.2], > Background -> AliceBlue]; > > I used special positioning for the labels of the axes so the y axes > label would not be written over one of the spheres. > > David Park > djmp at earthlink.net > http://home.earthlink.net/~djmp/ > > > From: Laura [mailto:grzz_76 at hotmail.com] To: mathgroup at smc.vnet.net > > This must be a common query but I haven't been able to find the > answer: > Thank you for the suggestions. Why is this not better documented, or not an easy option? I think wanting a standard axes must be, well, standard! > For plotting 3D graphics (plot3D or Graphics3D), how do you get the > standard axes: (1,0,0), (0,1,0), (0,0,1)? I've tried all sorts of > options from AxesEdges to changing Views. Basically, I'd like my 3D > plots to appear with the axes set at the origin. > > z > | > (0,0,0) |______ y > / > / > x > > Thank you for any pointers. > > >