function print_compare_ctd_sensors(cruiseid,fh)
% PRINT_COMPARE_CTD_SENSORS - print output figures from compare_ctd_sensors.m
% 
% fh - figure handles (default=gcf)
%

% 
% VERSION: 
%	$Revision: 1.8 $
%	$Date: 2008/02/18 19:42:06 $
%	$Id: print_compare_ctd_sensors.m,v 1.8 2008/02/18 19:42:06 duncombe Exp duncombe $
%
% CHANGELOG: 
%	2007/12/17 - CMDR
%	* this is weird! the function is empty!
%	* read cruise id from the file in the current directory
%  2008/01/26 CMDR
%	* flesh out the skeleton (figure handles, print to file)
%  2008/02/05 CMDR
%	* ensure we are printing the right figure after editing it

%%%%%%%%%%% CMDR read cruiseid if we can
if nargin==0, cruiseid=getcruiseid; end;
if isempty(cruiseid), cruiseid=getcruiseid; end;
%%%%%%%%%%%

%%%%%%%%%%% CMDR by default print the current figure
if ~exist('fh'), fh=[]; end;
if isempty(fh), fh=gcf; end;

p=pwd; dir_del=p(1);
c_path=['figures' dir_del ];

for i=1:length(fh), 
	figure(fh(i));
	disp(['Paused to edit figure(' num2str(fh(i)) ')']);
	disp('Press any key to continue');
	pause; % to edit the figure
	figure(fh(i));
	eval(['print -depsc ',c_path,'compare_ctd_',num2str(i) ' ;']);
end;

return;

