ファイル名：SaveTiff0.m

function savetiff0(NAME)
% SAVE TIFF FORMAT FILE PROGRAM
% 引数として出力ファイル名を入力出来る様にもした。

fprintf('TIFFフォーマットでファイルを出力します。\n');
if nargin == 0                      % 引数がない時
    NAME = input('出力ファイル名を入力(拡張子なし)       => ','s');
elseif nargin ~= 1
    error('引数の数は0か1個です');  % 引数が0でも1でもない時
end
if exist([NAME,'.tif'],'file') | exist([NAME,'.tiff'],'file')   % ファイルが存在する時
    ANS = input('ファイルが既にあります。上書き？ y) n) => ','s');
    if strcmpi(ANS,'n'),    error('上書きされずに終了しました');     end
end
[X,map] = capture(gcf);
tiffwrite(X,map,[NAME,'.tiff']);