%%Jeremy Kent
%%object-finding algorithm
function image=find_objects(image)
s=size(image);
hsize=s(2);
vsize=s(1);
eq_tab=[];
label=0;
for i=1:vsize
   for j=1:hsize
      if image(i,j)
         if i==1
         top=0;
      else
         top=image(i-1,j);
      end
      if j==1 
         left=0;
      else
         left=image(i,j-1);
      end
      if top==0
         if left==0
            label=label+1;
            image(i,j)=label;
            eq_tab=[eq_tab;label];
         else
            image(i,j)=left;
         end
      elseif left==0           
         image(i,j)=top;
      elseif top==left
         image(i,j)=left;
      else
         image(i,j)=top;
         eq_tab(label)=top;
      end
   end
end
end
image
eq_tab
for i=1:vsize
   for j=1:hsize
      if image(i,j)~=0
         [i j image(i,j) eq_tab(image(i,j))]
         image(i,j)=eq_tab(image(i,j));
      else
         image(i,j)=0;
      end
   end
end