function b=beta(contour_list,img,index)
% BETA function

s=size(contour_list);

% Get the point coordinates which are before and after the contour

% Contour
if index==1
    xprev=contour_list(s(1),1);
    yprev=contour_list(s(1),2);
else
    xprev=contour_list(index-1,1);
    yprev=contour_list(index-1,2);
end

if index==s(1)
    xsuiv=contour_list(1,1);
    ysuiv=contour_list(1,2);
else
    xsuiv=contour_list(index+1,1);
    ysuiv=contour_list(index+1,2);
end

% Compute the tangent angle
if yprev==ysuiv
    angle=pi/2;
else
    angle=atan((xsuiv-xprev)/(ysuiv-yprev));
end

% Compute the angle from the perpendicular to the tangent (inside of the form)
if (img(contour_list(index,1)+round(sin(angle+pi/2)),contour_list(index,2)+round(cos(angle+pi/2)))==1)
    b=mod(angle+pi/2,2*pi);
else
    b=mod(angle-pi/2,2*pi);
end
