function triboard_ijk_init_test ( )

%*****************************************************************************80
%
%% triboard_ijk_init_test tests triboard_ijk_init().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    20 August 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'triboard_ijk_init_test\n' );
  fprintf ( 1, '  triboard_ijk_init() draws an MxN board of cells.\n' );
  fprintf ( 1, '  Each cell is given a unit square, but is drawn\n' );
  fprintf ( 1, '  with a radius R <= 0.5.\n' );
  fprintf ( 1, '  Cells are initialized to have a common foreground color\n' );
  fprintf ( 1, '  They appear on a board of a given background color.\n' );

  clf ( );
  m = 4;
  n = 6;
  r = 0.95;
  yellow = 'y';
  gray = [ 0.9, 0.9, 0.9 ];

  triboard_ijk_init ( m, n, r, gray, yellow );

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

  return
end
