function square_ij_fill_test ( )

%*****************************************************************************80
%
%% SQUARE_IJ_FILL_TEST tests SQUARE_IJ_FILL.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 November 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'SQUARE_IJ_FILL_TEST\n' );
  fprintf ( 1, '  SQUARE_IJ_FILL draws a square, centered at CELL(I,J),\n' );
  fprintf ( 1, '  of radius R and color COLOR.\n' );
  fprintf ( 1, '  Let''s put some red and blue squares 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 squares, of radius 0.4, and blue squares, of radius 0.35.
%
  hold ( 'on' );

    square_ij_fill ( m, 1, 2, 0.4, 'r' );
    square_ij_fill ( m, 2, 1, 0.4, 'r' );
    square_ij_fill ( m, 2, 2, 0.4, 'r' );
    square_ij_fill ( m, 2, 3, 0.4, 'r' );
    square_ij_fill ( m, 3, 2, 0.4, 'r' );

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

  hold ( 'off' );

  filename = 'square_ij_fill_test.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  return
end
