function dist = circle_imp_point_dist_signed_2d ( r, center, p )
%*****************************************************************************80
%
%% circle_imp_point_dist_signed_2d(): signed distance ( implicit circle, point ) in 2D.
%
% Discussion:
%
% The signed distance is zero if the point is on the circle.
% The signed distance is negative if the point is inside the circle.
%
% An implicit circle in 2D satisfies the equation:
%
% ( X - CENTER(1) )^2 + ( Y - CENTER(2) )^2 = R^2
%
% Licensing:
%
% This code is distributed under the GNU LGPL license.
%
% Modified:
%
% 31 January 2005
%
% Author:
%
% John Burkardt
%
% Input:
%
% real R, the radius of the circle.
%
% real CENTER(2,1), the center of the circle.
%
% real P(2,1), the point to be checked.
%
% Output:
%
% real DIST, the signed distance of the point
% to the circle. If the point is inside the circle, the signed distance
% is negative.
%
dim_num = 2;
r2 = sqrt ( sum ( ( p(1:dim_num,1) - center(1:dim_num,1) ).^2 ) );
dist = r2 - r;
return
end