function scanlist=morton(Mat)
global row col

matlist=mat2list(Mat);
scanorder=listorder(row,col,1,1);
scanlist=[];
for i=1:row*col
    scanlist=[scanlist;i scanorder(i,:) matlist(i)];
end