function triangle_ij_plot_test ( )

%*****************************************************************************80
%
%% triangle_ij_plot_test() tests triangle_ij_plot().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    06 June 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'triangle_ij_plot_test():\n' );
  fprintf ( 1, '  triangle_ij_plot() plots the 30-60-90\n' );
  fprintf ( 1, '  triangles constituting an Eternity object,\n' );
  fprintf ( 1, '  using (i,j) coordinates.\n' );

  if ( true )
    nx = 1;
    ny = 2;
    [ w, p_ij ] = rectangle_word ( nx, ny );
    node_show = true;
    element_number = true;
%   title_string = sprintf ( 'rectangle %dx%d triangles ij', nx, ny );
    title_string = '';
    filename = sprintf ( 'rectangle_%dx%d_triangles_ij.png', nx, ny );
    triangle_ij_plot ( w, p_ij, node_show, element_number, title_string, filename );
  end

  if ( true )
    nx = 3;
    ny = 3;
    [ w, p_ij ] = rectangle_word ( nx, ny );
    node_show = true;
    element_number = true;
%   title_string = sprintf ( 'rectangle %dx%d triangles ij', nx, ny );
    title_string = '';
    filename = sprintf ( 'rectangle_%dx%d_triangles_ij.png', nx, ny );
    triangle_ij_plot ( w, p_ij, node_show, element_number, title_string, filename );
  end

  if ( false )
    nx = 3;
    ny = 2;
    [ w, p_ij ] = rectangle_word ( nx, ny );
    node_show = true;
    element_number = true;
    title_string = sprintf ( 'rectangle %dx%d triangles ij', nx, ny );
    filename = sprintf ( 'rectangle_%dx%d_triangles_ij.png', nx, ny );
    triangle_ij_plot ( w, p_ij, node_show, element_number, title_string, filename );
  end

  [ w, p_ij ] = hexagon_word ( );
  node_show = true;
  element_number = true;
  title_string = 'hexagon triangles ij';
  filename = 'hexagon_triangles_ij.png';
  triangle_ij_plot ( w, p_ij, node_show, element_number, title_string, filename );

  if ( false )
    for k = 11 : 20
      [ w, p_ij ] = eternity_tile_word ( k );
      node_show = true;
      element_number = false;
      title_string = sprintf ( 'tile%03d triangles ij', k );
      filename = sprintf ( 'tile%03d_triangles_ij.png', k );
      triangle_ij_plot ( w, p_ij, node_show, element_number, title_string, filename );
      pause ( )
    end
  end

  return
end

