Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: arrows disappear in exported 3D graphic

• To: mathgroup at smc.vnet.net
• Subject: [mg107273] Re: [mg107190] arrows disappear in exported 3D graphic
• From: Murray Eisenberg <murray at math.umass.edu>
• Date: Sun, 7 Feb 2010 06:14:56 -0500 (EST)
• Organization: Mathematics & Statistics, Univ. of Mass./Amherst
• References: <201002050821.DAA06606@smc.vnet.net>
• Reply-to: murray at math.umass.edu

Thanks to a private suggestion from David Park, I was able to finesse 
the problem by exporting to PDF instead of to EPS.

Nonetheless, the problem remains with EPS export. It seems fairly clear 
that export to EPS has a bug in dealing with transparency.

On 2/5/2010 3:21 AM, Murray Eisenberg wrote:
> 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

• References:
  • arrows disappear in exported 3D graphic
    • From: Murray Eisenberg <murray@math.umass.edu>