function bary = triangle_cartesian_to_barycentric ( a, b, c, p )

%*****************************************************************************80
%
%% TRIANGLE_CARTESIAN_TO_BARYCENTRIC ...
%
  [ t, bary(1) ] = line_parameter_t ( b, c, p );
  [ t, bary(2) ] = line_parameter_t ( c, a, p );
  [ t, bary(3) ] = line_parameter_t ( a, b, p );

  bary(1:3) = - bary(1:3);

  return
end
