function circle_ij_fill ( m, i, j, r, color )

%*****************************************************************************80
%
%% circle_ij_fill() plots a filled circle in cell (I,J).
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 October 2017
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer M, the number of rows in the matrix.
%
%    real I, J, the indices of the cell.
%
%    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 =     j - 0.5 + r * cos ( a );
  y = m - i + 0.5 + r * sin ( a );

  fill ( x, y, color );

  return
end
