MathGroup Archive 2010

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

Search the Archive

Re: apparently simple graphic won't print when SaveAs[] PDF

  • To: mathgroup at smc.vnet.net
  • Subject: [mg108369] Re: apparently simple graphic won't print when SaveAs[] PDF
  • From: David Bailey <dave at removedbailey.co.uk>
  • Date: Mon, 15 Mar 2010 00:07:37 -0500 (EST)
  • References: <hmak7l$bjn$1@smc.vnet.net>

divisor wrote:
> Hello mathGroup:
> 
> These 3 commands are taken directly from the help page for Zernike[].
> 
> r2c[e_] :=
>  Simplify[TrigExpand[e] /. {Sin[\[Theta]] :> y/r,
>      Cos[\[Theta]] :> x/r} /. r^n_ :> (x^2 + y^2)^(n/2)]
> 
> zPlot[e_] :=
>  With[{f = r2c[e]},
>   DensityPlot[Cos[2 Pi f]^2, {x, -1, 1}, {y, -1, 1},
>    RegionFunction :> (#1^2 + #2^2 <= 1 &), PlotPoints -> 25,
>    BoundaryStyle -> Black, Frame -> False]]
> 
> zPlot[ZernikeR[2, 2, r] Cos[2 \[Theta]] +
>   2 ZernikeR[3, 1, r] Sin[\[Theta]]]
> 
> The final one produces a graphic which (I guess) is slightly
> complicated. I have some other constructions using this special
> function to work on so I thought it should not have any trouble
> printing this. My Mathematica V7 machine cannot print right now (due to
> network disruptions), so I have been using SaveAs[] with PDF and
> transferring it to a machine which can print in my network. It would
> not and here are the results:
> 
> - Mathematica is 7.0 for Microsoft Windows (32-bit) (February 18, 2009); XP
> SP2
> - Help About says 7.0.1.0
> - printing PDF thru the network gets a "can't print error" (Win7 -->
> Win7)
> - downloading directly to print server and trying to print PDF hangs
> the machine (win7)
> 
> I already know there are several issues with print-to-PDF and SaveAS[]
> PDF (I have reported some) so I am just letting people know about this
> problem. When I export the graphic as JPEG alone, it prints OK.
> 
> Here is some more info:
> 
> - NB file with just commands 4.5K
> - evaluated NB file 815K
> - PDF file 7M
> - exported graphic alone 25K
> 
> I hope WRI can get to the bottom of these issues going forward. I am
> never trying to test these cases. I only learned about this Zernike[]
> function this week.
> 
> Regards..
> 
> Roger Williams
> Franklin Laboratory
> 
Another way to create a PDF is using the free software PrimoPDF. This is 
quite neat because it pretends to a be printer, but when you print to it 
- say by printing a Mathematica notebook - it creates a PDF file.

David Bailey
http://www.dbaileyconsultancy.co.uk


  • Prev by Date: Re: Re: locally changing Options
  • Next by Date: Re: Re: Putting controls next to graphics in the
  • Previous by thread: Re: Mathematica SparseArray Access Non-Default Values
  • Next by thread: Re: apparently simple graphic won't print when SaveAs[] PDF