function triangle_plot_test ( )

%*****************************************************************************80
%
%% triangle_plot_test() tests triangle_plot().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 March 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'triangle_plot_test():\n' );
  fprintf ( 1, '  triangle_plot() plots the 30-60-90\n' );
  fprintf ( 1, '  triangles constituting an Eternity object.\n' );

  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', nx, ny );
    title_string = '';
    filename = sprintf ( 'rectangle_%dx%d_triangles.png', nx, ny );
    triangle_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', nx, ny );
    filename = sprintf ( 'rectangle_%dx%d_triangles.png', nx, ny );
    triangle_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';
  filename = 'hexagon_triangles.png';
  triangle_plot ( w, p_ij, node_show, element_number, title_string, filename );

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

  [ w, p_ij ] = trinity_word ( );
  node_show = false;
  element_number = false;
  title_string = 'trinity triangles';
  filename = 'trinity_triangles.png';
  triangle_plot ( w, p_ij, node_show, element_number, title_string, filename );

  return
end

