%PRINT_EPS. Print the current figure into an eps file.
% [] = print_eps(file);

% Written by Ari Viljanen (FMI), November 2005.

%**********************************************

  function [] = print_eps(file);

set(gcf,'PaperOrientation','portrait');
s = sprintf('print -depsc %s',file);
fprintf('   %s\n',s); eval(s);
set(gcf,'PaperOrientation','landscape');   % assuming landscape as default
