apparently simple graphic won't print when SaveAs[] PDF
- To: mathgroup at smc.vnet.net
- Subject: [mg107814] [mg107814] apparently simple graphic won't print when SaveAs[] PDF
- From: divisor <congruentialuminaire at yahoo.com>
- Date: Sat, 27 Feb 2010 03:13:32 -0500 (EST)
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