function circle_xy_fill ( xc, yc, r, color )

%*****************************************************************************80
%
%% circle_xy_fill() plots a filled circle centered at (XC,YC).
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 October 2017
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real XC, YC, the coordinates of the center of the circle.
%
%    real R, the radius of the circle.
%
%    color COLOR, can be any of the 8 abbreviated color terms
%    'r', 'g', 'b', 'c', 'm', 'y', 'w', 'k', or an RGB triple such as 
%    [1.0,0.4,0.0].  The circle is filled with this color.
%
  a = linspace ( 0.0, 2.0 * pi, 25 );
  x = xc + r * cos ( a );
  y = yc + r * sin ( a );

  fill ( x, y, color );

  return
end
