[coor, ref_mat]=parse_mirimage(ROOMFILENAME,sourceloc,micloc,scan_dist)

function [coor, ref_mat]=parse_mirimage(ROOMFILENAME,sourceloc,micloc,scan_dist)

%

[out] = mirimage(ROOMFILENAME,sourceloc,micloc,scan_dist);
row=1;
coor(row, :) = [-5 -5 -5];
k=0;
max_length=0;
ref_mat = -1;
dim = size(ref_mat, 2);

while k<length(out)
    row = row+1;
    coor(row, :) = out(k+1:k+3)';
    k=k+4;
    if out(k)>dim
        ref_mat(1:row-1, size(ref_mat, 2)+1:out(k)) = -1*ones(row-1, out(k)-size(ref_mat, 2));
        ref_mat(row, :) = out(k+1:k+out(k));
        dim = size(ref_mat, 2);
    elseif out(k)<dim
        dummy = out(k+1:k+out(k));
        dummy(out(k)+1:dim) = -1*ones(1, dim-out(k));
        ref_mat(row, :) = dummy;
    else
        ref_mat(row, :) = out(k+1:k+out(k));
    end
    k=k+out(k);
end
coor = coor(2:size(coor, 1), :);
ref_mat = ref_mat(2:size(ref_mat, 1), :);