function []=fig2eps(fig)
%
% FIG2EPS Exports the figure to a file in the EPS format.
%   Before saving, the standard save window is invoked
%   to obtain output file name.
%
% Statistical Pattern Recognition Toolbox, Vojtech Franc, Vaclav Hlavac
% (c) Czech Technical University Prague, http://cmp.felk.cvut.cz
% Written Vojtech Franc (diploma thesis) 18.12.1999
% Modifications

[filename, pathname] = uiputfile('*.eps', 'Export Figure to EPS');

if filename~=0,   % 0 if the user press Cancel button

   file=strcat(pathname,filename);
   eval(sprintf('print -depsc -noui -f%f %s',fig,file));
end

% that`s all