MathGroup Archive 2010

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

Search the Archive

arrows disappear in exported 3D graphic

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107190] arrows disappear in exported 3D graphic
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Fri, 5 Feb 2010 03:21:36 -0500 (EST)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • Reply-to: murray at math.umass.edu

The Presentations code below creates the frustum of a cone along with 
dimensional labeling.

When I export the 3D graphics created below to EPS, the lateral surface 
of the cone completely hides the dimensional arrows for the height and 
the base radius.

How might this be fixed?

I did try by removing the Specularity and fiddling with Opacity, but 
that either makes surfaces vanish or else makes no difference in the way 
the arrows disappear in the exported EPS version.

Everything has to be in black/white and shades of gray, for use 
ultimately in a black-and-white printed document.

Of course I could move he dimensional arrows to above, below, and aside 
the depicted solid, but that would be an unpleasant alternative for my 
purposes.

Needs["Presentations`Master`"]

Draw3DItems[
{
(* frustum lateral surface *)
{GrayLevel[0.6],Opacity[0.4],Specularity[White,0.9],
ParametricDraw3D[{(3-z/4)Cos[t],(3-z/4)Sin[t],z},{z,0,4},{t,0,2Pi},
Mesh->None]},

(* bottom and top disks *)
{GrayLevel[0.7],Opacity[0.9],
ParametricDraw3D[{r Cos[t],r Sin[t],0},{r,0,3},{t,0,2Pi},Mesh->None]},
{Opacity[0.5],GrayLevel[0.8],
ParametricDraw3D[{r Cos[t],r Sin[t],4},{r,0,2},{t,0,2Pi},Mesh->None]},

(* bottom & top circles *)
{Thick,ParametricDraw3D[{(3-0/4)Cos[t],(3-0/4)Sin[t],0},{t,Pi,2Pi},
Mesh->None],
Thin,Dashed,ParametricDraw3D[{(3-0/4)Cos[t],(3-0/4)Sin[t],0},{t,0,Pi},
Mesh->None]},
{Thick,ParametricDraw3D[{(3-4/4)Cos[t],(3-4/4)Sin[t],4},{t,0,2Pi},
Mesh->None]},

(* dimensional labeling *)
(* height *)
Arrow[{{0,0,1.5},{0,0,0}}], Arrow[{{0,0,2.5},{0,0,4}}],Text[4,{0,0,2}],
(* base *)
Arrow[{{1.2,0,0},{0,0,0}}],Arrow[{{1.8,0,0},{3,0,0}}],Text[3,{1.5,0,0}],
(* top *)
Arrow[{{0.75,0,4},{0,0,4}}],Arrow[{{1.25,0,4},{2,0,4}}],Text[2,{1,0,4}]
},
Lighting->"Neutral",
Axes->False,Boxed->False,
BaseStyle->{18},
ViewPoint->{0.761015, -3.13657, 1.01625},
ViewVertical->{0.0669821, -0.314605, 1.42028}
]

-- 
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: Re: What does & mean?
  • Next by Date: Re: Re: Re: Re: What does
  • Previous by thread: Re: Weird vanishing syntax coloring
  • Next by thread: Re: arrows disappear in exported 3D graphic