Index: mttroot/mtt/bin/trans/m/figfig.m
==================================================================
--- mttroot/mtt/bin/trans/m/figfig.m
+++ mttroot/mtt/bin/trans/m/figfig.m
@@ -1,20 +1,24 @@
-function figfig(filename,language,boxed)
-  ## Usage: figfig(filename[,language,boxed])
+function figfig(filename,language,boxed,monochrome)
+  ## Usage: figfig(filename[,language,boxed,monochrome])
   ## Puts octave figure into fig file (filename.fig)
   ## If second argument, converts to filename.language using fig2dev
   ## eg:
   ##    figfig("foo");
   ##    figfig("foo","eps");
   ##    figfig("foo","pdf");
-  ## Boxed=1 gives a box aroundd the figure
+  ## Boxed=1 gives a box around the figure
+  ## Monochrome=1 gives a monchrome plot
 
   ###############################################################
   ## Version control history
   ###############################################################
   ## $Id$
   ## $Log$
+  ## Revision 1.5  2001/05/10 19:08:35  gawthrop
+  ## Cosmetic improvements
+  ##
   ## Revision 1.4  2001/05/08 15:18:12  gawthrop
   ## Added trig and hyperbolic functions to argument exclusion list
   ##
   ## Revision 1.3  2001/04/10 12:54:50  gawthrop
   ## Minor fixes for sensitivity versions
@@ -27,16 +31,28 @@
   ###############################################################
 
   if nargin<3
     boxed=1;
   endif
+  
+  if nargin<4
+    monochrome=0;
+  else
+    monochrome=1;
+  endif
+  
   
   figfilename = sprintf("%s.fig",filename);
   
   eval(sprintf("gset output \"%s\" ",figfilename));
 
-  gset term fig color portrait fontsize 16 size 20 10 metric
+  if (monochrome==1)
+    gset term fig monochrome portrait fontsize 16 size 20 10 metric
+  else
+    gset term fig color portrait fontsize 16 size 20 10 metric
+  endif
+  
   replot;
   gset term x11
   gset output 
   replot;
 

Index: mttroot/mtt/bin/trans/m/pol2root2tex.m
==================================================================
--- mttroot/mtt/bin/trans/m/pol2root2tex.m
+++ mttroot/mtt/bin/trans/m/pol2root2tex.m
@@ -5,10 +5,13 @@
   ###############################################################
   ## Version control history
   ###############################################################
   ## $Id$
   ## $Log$
+  ## Revision 1.2  2001/05/10 19:08:35  gawthrop
+  ## Cosmetic improvements
+  ##
   ## Revision 1.1  2001/05/10 11:44:40  gawthrop
   ## Useful conversion functions
   ##
   ## Revision 1.1  1999/05/24 22:05:53  peterg
   ## Initial revision
@@ -49,17 +52,17 @@
     else
       i_plusminus = '-';
     endif
 
     if complex
-      complex=0
+      complex=0;
     else
       if abs(imag(r(i)))<1e-5
 	ff = sprintf("%%s (%s %%s %s)",name, f);
 	tex = sprintf(ff, tex, r_plusminus, abs(r(i)));
       else
-	ff = sprintf("%%s (%s %%s %s \\pm j %s)", name, f, f)
+	ff = sprintf("%%s (%s %%s %s \\pm j %s)", name, f, f);
 	tex = sprintf(ff, tex, r_plusminus, abs(real(r(i))), imag(r(i)));
 	complex=1;
       endif
     endif
   endfor