function printps(filename)
% function printps(filename)
% replot screen plot to a file
% inputs:
%   filename: string:
% no argument checking done - this means YOU mark!

  gset terminal postscript color
  eval(sprintf("gset output '%s'", filename));
  replot
  gset terminal x11
endfunction