%SourceRead.m
%作者：韋海萍；
%日期：2007-8-8；
%用途：根據給定的文件名，將圖像寫到矩陣中；
function [err,ImageOut] =SourceRead(str,Height, Width, FileFormat, Xlabel, Ylabel)

%------------for test----------------------------
%{
str='G:\projects\matlab works\863-紫金山天文臺星圖處理070531\U57U_Image\U57U_Image_0071.fit';
Height=1024;
Width=1024;
FileFormat='l';
Xlabel=[1020 200];
Ylabel=[500 400];
%}
%-------------------------------------------------
fid= fopen(str,'rb');

if fid ~= -1
    err=0;
    fseek(fid,2880,'bof');
    I = fread(fid,[Width,Height],'uint16', FileFormat);
    I=I';
    fclose(fid);
%----------------- 加跟蹤框 2007-8-22 ----------------------------
    [ImageOut]=AddGrid(I, Height, Width, Xlabel, Ylabel); 
else
    err=1;
    ImageOut=uint16(zeros(Height,Width));    
end