ファイル名：ImWrite0.m

function imwrite0(NAME)
% CUSTAMIZE IMWRITE PROGRAM
% 引数として出力ファイル名を入力出来るようにもした。

SUFFIX = {'bmp';'hdf';'jpg';'pcx';'tif';'xwd'};
fprintf('どのフォーマットで出力しますか？\n');
STRING = [];
for k = 1:size(SUFFIX,1)
    STRING = [STRING,'[',num2str(k),']',upper(SUFFIX{k,1}),' '];
end
FMT = input([STRING,'\n=> ']);
if nargin == 0                          % 引数がない時
    NAME = input('_出力ファイル名を入力(拡張子なし)       => ','s');
elseif nargin ~= 1
    error('引数の数は０か１個です');    % 引数が0でも1でもない時
end
if exist([NAME,'.',SUFFIX{FMT,1}]) == 2 % ファイルが存在する時
    ANS = input('_ファイルが既にあります。上書き？ y) n) => ','s');
    if strcmpi(ANS,'n')
        error('上書きされずに終了しました');
    end
end
[X,map] = capture(gcf);
imwrite(X,map,[NAME,'.',SUFFIX{FMT,1}],SUFFIX{FMT,1});