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
- Follow-Ups:
- Re: arrows disappear in exported 3D graphic
- From: Murray Eisenberg <murray@math.umass.edu>
- Re: arrows disappear in exported 3D graphic