Problems with fonts in eps files when using GraphicsArray
- To: mathgroup at smc.vnet.net
- Subject: [mg9442] Problems with fonts in eps files when using GraphicsArray
- From: Graciela Herrera <herrera at uvm-gen.emba.uvm.edu>
- Date: Wed, 5 Nov 1997 01:56:59 -0500
- Sender: owner-wri-mathgroup at wolfram.com
I have been dealing with some problems when creating eps files. Wolfram
Support sent me the upgrade to Mathematica 3.0.1 but I still have some
problems. I would appreciate if somebody could help me with this.
In the following example, a set of six figures are created. Each one
contains a 2D mesh and some numbers that are placed at some of its
nodes. I put these figures in an array of graphs using GraphicsArray.
When I show the final figure in the front end everything looks fine but
when I create the eps file (using Display) the numbers that have two
digits and are placed on a boundary of a mesh are shown mutilated.
If I make a figure with only one mesh the numbers are shown properly in
the eps file but when I put the six meshes together something doesn't
work. Thanks,
Graciela
herrera at emba.uvm.edu
col[s_]:=Hue[s,0,1] (*Color function to put white
background*)
r=0 (*Measurement error variance*)
$TextStyle={FontFamily->"Times",FontSlant->"Italic",FontSize->8}
local={{1,3,6},{1,4,6},{1,3,5},{1,4,5},{1,4,4},{1,3,4},{2,3,6},{2,4,6},
{1,4,3},{1,3,3},{1,4,2},{1,3,2},{3,4,6},{3,3,6},{1,3,1},{1,4,1},{4,4,6},
{4,3,6},{2,3,5},{2,4,4},{3,2,5},{5,3,6},{5,4,6},{3,5,6},{2,3,3},{2,4,5},
{4,2,6},{4,5,6},{3,4,4},{2,3,4}}
tot1=6
Do[num[i]={};
temp[i]={},
{i,tot1}]
Do[j=local[[i,3]];
num[j]=Append[num[j],i];
temp[j]=Append[temp[j],
{local[[i,1]],local[[i,2]]}],
{i,Length[local]}]
Do[
If[temp[i]!={},
(*Defining epilog to add selection numbers to the meshes*)
epl=Table[
Text[StyleForm[num[i][[j]],
FontFamily->"Helvetica",
FontWeight->"Bold",
FontSlant->"Oblique",
FontSize->8],
temp[i][[j]]],
{j,Length[num[i]]}];
(*Creating graph for time i*)
g[i]=DensityPlot[1,
{x, 1, mx}, {y, 1, my},
PlotPoints->{mx-1,my-1},
PlotLabel-> "t="<>ToString[i],
DisplayFunction->Identity,
Frame->False,
ColorFunction->col,
Epilog->epl],
(*Creating graphs for times with no samples*)
g[i]=DensityPlot[0,
{x, 1, mx}, {y, 1, my},
PlotPoints->{mx-1,my-1},
PlotLabel->"t="<>ToString[i],
Frame->False,
ColorFunction->col,
DisplayFunction->Identity]],
{i,tot1}]
(*Putting graphs together in an array*) mg=Table[g[i],{i,tot1}];
GraphicsArray[Partition[mg,3],GraphicSpacing->0.2]
(*Printing graph on a file*)
Display["sampl.r"<>ToString[r]<>".eps",GraphicsArray[Partition[mg,3]],"eps"];