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