MathGroup Archive 1997

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

Search the Archive

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"];




  • Prev by Date: Re: Integrate[ ] returns If[ ] function; how to say it's True?
  • Next by Date: Re: Possibly Silly Question on Manipulating Statistical Distributions
  • Previous by thread: Re: Inserting the value of a current variable (symbol) in a text cell?
  • Next by thread: Re: printing eps-graphics on postscript printer