%Ben Graf  &  Michael Victory
%created: 11/29/99
%updated: 11/30/99, 12/1/99
%filename: /mvictory/elec301/findang.m

% findang takes the matrix of a radon transform
% and determines the angle by which the upright picture has been rotated

function icky=findang(radpic)

value=0;
for ang=1:180
   themax=max(radpic(:,ang));
   if (themax > value)
     value=themax;
     ubertheta=ang-1;
   end;
end;
icky=ubertheta;
