Possible Duplicate:
Exporting graphics to PDF - huge file
I have a figure that is created to use in a paper. Here it is:
h = 5.8;
a = 0.6;
pl3 = Plot3D[
If[x >= 2,
0.5*(-Tanh[2*(Sqrt[x^2 + y^2] - 5*(1 + x/Sqrt[x^2 + y^2 + 0.01]))] + 1),
0.5*(Tanh[If[y >= 0, a*x + h - y, y + a*x + h]] + 1)], {x, -15,
12},
{y, -10, 10}, PlotRange -> All, Ticks -> None,
PlotPoints -> 30,
AxesLabel -> {Style["x-Vt", 18, Italic, "TimesNewRoman"],
Style["y", 18, Italic, "TimesNewRoman"],
Style["\[Eta]", 18, Italic]},
ColorFunction -> Function[{x, y, z}, Hue[.65 (1 - z)]],
BoxRatios -> {1.7, 0.7, 0.4}, ViewPoint -> {1.81`, -3.52`, 1.642`}];
plX = Graphics3D[{Red, Thick,
Line[{Scaled[{0.868, 0.256, 0.5}], Scaled[{0.956, 0, 0.5}]}]}];
plY = Graphics3D[{Red, Thick,
Line[{Scaled[{0.865`, 0.269`, 0.5}],
Scaled[{0.972`, 0.494`, 0.5}]}]}];
txtX = Graphics3D[
Text[Style["x'", 24, Italic, Red, Bold], Scaled[{0.989`, 0, 0.5}]]];
txtY = Graphics3D[
Text[Style["y'", 24, Italic, Red, Bold],
Scaled[{0.979`, 0.633`, 0.5}]]];
fig1A = Show[{pl3, plX, plY, txtX, txtY}, ImageSize -> 350]
However, if I directly save the notebook containing this picture into the pdf format it appears to occupy too much memory.
On the other hand, if I export the picture itself into say, jpg ot tiff or gif formats, the file size is OK. However, if I then import the obtained jpg, tiff or gif files into the notebook it appears that the image has dramatically lost its quality becoming unacceptable for the publication.
One problem of this image is that it contains both the "useful" surface part that is on the front view and the one behind. The latter is useless, but is contained in the image file.
Is there a way to decrease the memory used by such an image?
