read_sr_binImg.m

function img = read_sr_binImg( fname, frame_num, varargin )
%
% INPUTS:
%   fname - name of a binary image file generated in the skilled reaching
%           task, or video
%   frame_num - the frame number to extract from fname(video)
%
% VARARGS:
%   
% OUTPUTS:
%   img - the image in raw uint8 values

w = 2040;
h = 1024;

for iarg = 1 : 2 : nargin - 2
    switch lower(varargin{iarg + 1});
        case 'w',
            w = varargin{iarg + 1};
        case 'h',
            h = varargin{iarg + 1};
    end
end

fid = fopen(fname,'r');

% there is a 4-byte header before each frame
fseek(fid,4*frame_num + h*(w)*(frame_num-1),'bof');
img = (fread(fid, [1,h*w / 8], 'double', 0, 'b'));

b = typecast(img,'uint8');
img = reshape(b,[w,h])';

fclose(fid);

end