function circle_ij_fill_test ( )

%*****************************************************************************80
%
%% CIRCLE_IJ_FILL_TEST tests CIRCLE_IJ_FILL.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    07 November 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'CIRCLE_IJ_FILL_TEST\n' );
  fprintf ( 1, '  CIRCLE_IJ_FILL draws a circle, centered at CELL(I,J),\n' );
  fprintf ( 1, '  of radius R and color COLOR.\n' );
  fprintf ( 1, '  CELL(I,J) is initially a square centered at (I-1/2,J-1/2)\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_ij_init ( m, n, r, white, gray );
%
%  Place some red circles, of radius 0.4, and blue circles, of radius 0.35.
%
  hold on
    circle_ij_fill ( m, 2, 2, 0.4, 'r' );
    circle_ij_fill ( m, 3, 2, 0.4, 'r' );
    circle_ij_fill ( m, 4, 2, 0.4, 'r' );
    circle_ij_fill ( m, 3, 1, 0.4, 'r' );
    circle_ij_fill ( m, 3, 3, 0.4, 'r' );

    circle_ij_fill ( m, 4, 6, 0.35, 'b' );
    circle_ij_fill ( m, 3, 5, 0.35, 'b' );
    circle_ij_fill ( m, 2, 4, 0.35, 'b' );
    circle_ij_fill ( m, 1, 3, 0.35, 'b' );

  hold off

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

  return
end