Re: Macintosh Print Anomaly

*To*: mathgroup at smc.vnet.net*Subject*: [mg13939] Re: Macintosh Print Anomaly*From*: bruck at math.usc.edu (Ronald Bruck)*Date*: Tue, 8 Sep 1998 02:52:36 -0400*Organization*: University of Southern California, Los Angeles, CA*References*: <6ssupl$m7u@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

In article <6ssupl$m7u at smc.vnet.net>, James D Hanson <hanson.nospam at physics.auburn.edu> wrote: :I want to write something below my plot. Here is an example: : :Show[{Graphics[Circle[{0.,0.},1.]], : Graphics[Text["Figure 2",Scaled[{.5,0.0}],{0,6}]]}, : {AspectRatio -> Automatic, : Frame -> True, : PlotRegion -> {{0.,1.},{.2,1.}}}] : :The "Figure 2" shows up just fine on the screen. However when I print :it, the "Figure 2" does not appear. I am running on a Macintosh :7300/200 running OS 8.0, and printing to a LaserWriter using :LaserWriter 8.4.3. : :I tried the same thing on a friend's PC, and the "Figure 2" printed out :just fine. : :The problem seems to be a clipping at the boundary of the plot. If I :position the "Figure 2" just right (using Text["Figure :2",Scaled[{.5,0.062}],{0,2}]) then only the top half of the letters :gets printed. Hmmm. I can confirm this behavior with System 8.1, LaserWriter 8.5.1 driver, printing to an HP LaserJet 4m+. And when I save it as EPS, and import it into Illustrator, it's sans "Figure 2". HOWEVER: if you're trying to prepare a publication-quality graphic, why not do it in LATEX? The "Figure" and descriptive text are MUCH more easily done in TeX then in Mathematica. --Ron Bruck