ADDED   mttroot/mtt/bin/trans/m/psfig.m
Index: mttroot/mtt/bin/trans/m/psfig.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/psfig.m
@@ -0,0 +1,33 @@
+function psfig(filename)
+  ## Usage: psfig(filename)
+  ## Puts figure into ps file
+
+  ###############################################################
+  ## Version control history
+  ###############################################################
+  ## $Id$
+  ## $Log$
+  ## Revision 1.3  1999/09/04 02:23:30  peterg
+  ## Removed mv stuff - now uses gset on actual file
+  ##
+  ## Revision 1.2  1999/06/15 02:05:44  peterg
+  ## Now adds a .ps if not there already
+  ##
+  ## Revision 1.1  1999/03/25 01:35:00  peterg
+  ## Initial revision
+  ##
+  ###############################################################
+
+  ## Add .ps if not there already
+  if !index(filename,".")	# Is there a .
+    filename = sprintf("%s.ps",filename);
+  endif
+  
+  gset term postscript eps
+  eval(sprintf("gset output \"%s\" ",filename));
+  replot;
+  gset term x11
+  gset output 
+  replot;
+
+endfunction