Re: arrows disappear in exported 3D graphic
- To: mathgroup at smc.vnet.net
- Subject: [mg107249] Re: arrows disappear in exported 3D graphic
- From: Peter Breitfeld <phbrf at t-online.de>
- Date: Sat, 6 Feb 2010 03:27:10 -0500 (EST)
- References: <hkgl0e$6rh$1@smc.vnet.net>
Murray,
if you have the possibility to print your image to a file using the
systems print dialog after choosing PrintSelectionAs from the File-menu,
you will get perfect looking .ps or .pdf files.
I did it for your picture on a Mac and I got:
1. pic.eps made with Export has 1.7MB and the arrows were gone
2. pic.ps made via PrintSelection has 288 KB and looks perfect
3. pic.pdf made the same way has 280 KB and is perfect too.
But the pics 2 and 3 take a full page, no bounding box, so they have to
be converted to eps or at least cropped. I use GraphicsConverter on my
Mac for this. The eps converted from pic.pdf this way has only 176 KB
and looks good.
I came to this solution to export pictures, because of the big size of
the Mathematica generated eps-files, and the ugly mesh-lines which show
up in exported 3D-Graphics (both eps and pdf)
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
>
--
_________________________________________________________________
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de
- Follow-Ups:
- Re: Re: arrows disappear in exported 3D graphic
- From: Murray Eisenberg <murray@math.umass.edu>
- Re: Re: arrows disappear in exported 3D graphic