MathGroup Archive 2010

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

Search the Archive

Re: Re: arrows disappear in exported 3D graphic

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107277] Re: [mg107249] Re: arrows disappear in exported 3D graphic
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Sun, 7 Feb 2010 06:15:42 -0500 (EST)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <hkgl0e$6rh$1@smc.vnet.net> <201002060827.DAA14409@smc.vnet.net>
  • Reply-to: murray at math.umass.edu

I think that what you describe is OS-dependent and perhaps Mac-specific.

In Windows (XP), at least as far as I can see, there is no such File 
menu item "PrintSelectionAs".  There's a "Print Selection" item which 
gives one the choice of printing to a specific printer (i.e., printer 
driver).

In Windows, there's also a "Save Selection As" item, and that offers 
both EPS and PDF -- but unfortunately no PS.  And the result of saving 
as EPS has exactly the same bug as Export to EPS: the outside surface is 
almost completely opaque, so that the arrows inside are obscured.

As I said in another post to this thread, my workaround was to export to 
PDF instead of EPS.  The down-side of that was that I had to use 
pdflatex on my LaTeX document, which goes directly from .tex source 
(with an \includegraphics for the .pdf graphic) to pdf -- instead of my 
usual workflow from .tex source (with \includegraphics for .eps graphic) 
to .dvi viewed in a previewer, and only then via .ps to .pdf final 
document.  Since pdflatex is generally much slower to process and view 
than latex to dvi, the workaround is undesirable.


On 2/6/2010 3:27 AM, Peter Breitfeld wrote:
>
> 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
>>
>

-- 
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: Could you prove this proposition:the i-th prime gap p[i+1]-p[i]<=i
  • Previous by thread: Re: arrows disappear in exported 3D graphic
  • Next by thread: a harmless notebook crashes Windows 7: who else had it?