function saveplot(filename,x,y,size)
% SAVEPLOT ('file.eps',x,y,size)  
% create a black-and-white PostScript figure, 'file.eps' of dimensions x by y  
%  input:
%      filename = name of encapsulated postscript file  [ default = file.eps ]
%      x = 1 means full page width    [ default = 1 ]
%      y = 1 means full page height   [ default = 0.5 ]
%   size = font size scale factor     [ defalut = 1.0 ]

set(gcf,'PaperUnits','centimeters')

if nargin<1,	filename = 'file.eps';	end
if nargin<2,	x = 1.0;		end
if nargin<3,	y = 0.5;		end
if nargin<4,	size = 1.5;		end

% old = applytofig ( gcf, 		...
%		'Color',	'rgb',	...
%		'FontSize',	size ,	...
%		'FontSizeMin',	8 ,	...
%		'FontSizeMax',	14 ,	...
%		'LineWidthMin',	1.5 ,	...
%		'LineWidthMax',	3 ,	...
%		'LineStyleMap', [] );

exportfig ( gcf, filename, 		...
		'Color',	'bw',	...
		'width',	x*18.0+size*0, ...
		'height',	y*22+size*0,	...
		'Bounds',	'tight',...
                'Reference',    gca,    ...
		'FontMode',	'scaled',...
		'FontSize',	size ,	...
 		'FontSizeMin',	1 ,	...
 		'FontSizeMax',	24 ,	...
		'LockAxes',     0 ,	...
                'LineMode',     'scaled',...
		'LineWidthMin',	1.5 ,	...
		'LineWidthMax',	3 ,	...
		'LineStyleMap', 'bw' );

% restorefig( gcf, old );

% ------------------------------------------------------------------  SAVEPLOT