% try color map computer 
%[url]http://matlabspace.diy.myrice.com/webfiles/kidding/sp_01.htm[/url]
[p,filepath]=uigetfile('*.bmp','選擇要打開的第一個圖像文件')
if ~any(p) ,return,end
act=['x=imread(''' filepath p ''',''bmp'');'];
eval(act)
x=double(x);
[p,filepath]=uigetfile('*.bmp','選擇要打開的第二個圖像文件')
if ~any(p) ,return,end
act=['y=imread(''' filepath p ''',''bmp'');'];
eval(act)
prompt={'輸入向左移動的像素個數'};
def={'125'};
dlgTitle='拼圖';
lineNo=1;
answer=inputdlg(prompt,dlgTitle,lineNo,def);
use=answer{1};
imove=sscanf(use,'%f');
y=double(y);
[m n z]=size(x);
[mm n2 zz]=size(y);
nn=n+n2-imove;
nmid=int2str(nn);
nn=str2num(nmid);
%nn=uint8(nn);
nstar=nn-n2+1;
u=ones(m,nn,z);
u(1:end,1:n,1:end)=x(1:end,1:end,1:end);
u(1:end,nstar:end,1:end)=y(1:end,1:end,1:end);
u=uint8(round(u));
%i2=imcrop(x,[60 40 1000 800]);
imove=2*imove;
nn=nstar-imove;

uu=imcrop(u,[ nn 1 2*imove m ]);
figure(1)
image(uu)
daspect([7 7 1])

ButtonName=questdlg('您是否接受圖片拼接的結果?', ...
                         '拼圖', ...
                         '是保存結果','不重新拼圖','是保存結果');
switch ButtonName,
case '是保存結果', 
         disp('write in file');
[filename,filepath]=uiputfile('*.bmp','選擇要保存的圖像文件')
if ~any(filename) ,return,end
f=findstr(filename,'.bmp')
if ~any(f)
filename=[filename,'.bmp']
end
filename
usepath=[filepath,filename]
act=['imwrite(u,''' usepath ''',''bmp'');'];
%act=['save ',path,' lon  lat']
eval(act)
%imwrite(u,'caotry.bmp','bmp')
ok='保存文件成功';
disp(ok)
         
       case '不重新拼圖',

         disp('star again')
       return
     end