function circle_xy_fill_test ( )

%*****************************************************************************80
%
%% CIRCLE_XY_FILL_TEST tests CIRCLE_XY_FILL.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    07 October 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'CIRCLE_XY_FILL_TEST\n' );
  fprintf ( 1, '  CIRCLE_XY_FILL draws a circle, centered at (XC,YC),\n' );
  fprintf ( 1, '  of radius R and color COLOR.\n' );
  fprintf ( 1, '  CELL(I,J) is initially a circle centered at (I-0.5,J-0.5)\n' );
  fprintf ( 1, '  of radius 0.45.\n' );
  fprintf ( 1, '  Let''s put some red and blue circles in those cells.\n' );
%
%  Set up a 6x4 board of gray cells on a white background.
%
  clf
  m = 4;
  n = 6;
  r = 0.45;
  white = 'w';
  gray = [ 0.9, 0.9, 0.9 ];

  board_xy_init ( m, n, r, white, gray );
%
%  Place some red circles, of radius 0.4, and blue circles, of radius 0.35.
%
  hold on
    circle_xy_fill ( 1.5, 0.5, 0.4, 'r' );
    circle_xy_fill ( 0.5, 1.5, 0.4, 'r' );
    circle_xy_fill ( 1.5, 1.5, 0.4, 'r' );
    circle_xy_fill ( 2.5, 1.5, 0.4, 'r' );
    circle_xy_fill ( 1.5, 2.5, 0.4, 'r' );

    circle_xy_fill ( 5.5, 0.5, 0.35, 'b' );
    circle_xy_fill ( 4.5, 1.5, 0.35, 'b' );
    circle_xy_fill ( 3.5, 2.5, 0.35, 'b' );
    circle_xy_fill ( 2.5, 3.5, 0.35, 'b' );

  hold off

  print ( '-dpng', 'circle_xy_fill_test.png' );

  return
end