saveimg.m

等高线拟合源代码（matlab源码）

function saveimg(fignr)

% SAVEIMG: Checks and saves image for GUI

% All the software included in this package is presented as is.
% It may be distributed freely. The author can, however, not be
% held responsible for any problems whatever.
% 
% Designed by Johan Baeten.
% Last updated: 22-03-2000
% [e-mail]

global NEWIMAGENAME
global PATHNAME
global XSIZE;
global YSIZE;
global IMAGENAME
global MAP
global MAINFIG


[filename, PATHNAME]= uiputfile('*.pgm','Save As');
filename = lower(filename);
PATHNAME = lower(PATHNAME);

if filename == 0,
	seterror(' ... cancelled.');
	return;
end

lf = length(filename);
ok = 0;
if lf>4,
	if strcmp(filename(lf-3:lf),'.pgm'),
   	if lf < 13,
      	temp_filename = filename;
	      ok = 1;
   	else
      	seterror(' Error: Filename to long.');
	      return;
   	end
	end
end 
if ~ok,  
   for i =1:lf 
      if filename(i) == '.',
         seterror(' Error: Incorrect filename.');
         return;
      end
   end
   if lf<9,
      temp_filename = [filename,'.pgm'];
   else
      seterror(' Error: Filename to long.');
      return
   end
end

seterror(' ... On this machine only ''.pgm'' supported.');      

NEWIMAGENAME= temp_filename;
fignr = MAINFIG;
IMAGENAME = NEWIMAGENAME;
pad = PATHNAME;
len = length(IMAGENAME);

fid = fopen([pad,IMAGENAME],'w');
if (fid == -1),
   seterror(' ... Can''t create file.');
   % this should never happen
else
   watchon;
   drawnow;
   if strcmp(IMAGENAME(len-2:len),'pgm'),
      fprintf(fid,'p5\n');
      fprintf(fid,'%d ',XSIZE);
      fprintf(fid,'%d \n',YSIZE);
      fprintf(fid,'%d\n',255);
      a = (get(MAINFIG,'userdata'))';
      fprintf(fid,'%c',a);
      fclose(fid);
   end
   setting('showtitle')
   seterror([' Image saved to ',IMAGENAME]);   
   watchoff;
end