function y = dirImg(f)

sze = size(f);
sze = sze(1);

for k = 1:sze
   for j = 1:sze
      f9 = extract(f, k, j, 9, 9);
      if k == 64
         if j == 64
            useless = 0;
         end
      end
      
      [thisSlit, thisVect, thisAngle] = slitSum(f9);
      tempSlit(k,j) = thisSlit;
      tempVect(k,j,:) = thisVect;
      tempAngle(k,j) = thisAngle;
   end
end


y = tempVect;      
