function triangle_xy_plot_test ( )

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

  if ( false )
    nx = 1;
    ny = 2;
    [ w, p_ij ] = rectangle_word ( nx, ny );
    p_xy(1) = p_ij(1) * 0.25;
    p_xy(2) = p_ij(2) * sqrt ( 3.0 ) / 12.0;
    node_show = true;
    element_number = true;
%   title_string = sprintf ( 'rectangle %dx%d triangles xy', nx, ny );
    title_string = '';
    filename = sprintf ( 'rectangle_%dx%d_triangles_xy.png', nx, ny );
    triangle_xy_plot ( w, p_xy, node_show, element_number, title_string, filename );
  end

  if ( true )
    nx = 3;
    ny = 3;
    [ w, p_ij ] = rectangle_word ( nx, ny );
    p_xy(1) = p_ij(1) * 0.25;
    p_xy(2) = p_ij(2) * sqrt ( 3.0 ) / 12.0;
    node_show = true;
    element_number = true;
%   title_string = sprintf ( 'rectangle %dx%d triangles xy', nx, ny );
    title_string = '';
    filename = sprintf ( 'rectangle_%dx%d_triangles_xy.png', nx, ny );
    triangle_xy_plot ( w, p_xy, node_show, element_number, title_string, filename );
  end

  if ( false )
    nx = 3;
    ny = 2;
    [ w, p_ij ] = rectangle_word ( nx, ny );
    p_xy(1) = p_ij(1) * 0.25;
    p_xy(2) = p_ij(2) * sqrt ( 3.0 ) / 12.0;
    node_show = true;
    element_number = true;
    title_string = sprintf ( 'rectangle %dx%d triangles xy', nx, ny );
    filename = sprintf ( 'rectangle_%dx%d_triangles_xy.png', nx, ny );
    triangle_xy_plot ( w, p_xy, node_show, element_number, title_string, filename );
  end

  if ( false )
    [ w, p_ij ] = hexagon_word ( );
    p_xy(1) = p_ij(1) * 0.25;
    p_xy(2) = p_ij(2) * sqrt ( 3.0 ) / 12.0;
    node_show = true;
    element_number = true;
    title_string = 'hexagon triangles xy';
    filename = 'hexagon_triangles_xy.png';
    triangle_xy_plot ( w, p_xy, node_show, element_number, title_string, filename );
  end 

  if ( true )
    for k = 11 : 11
      [ w, p_ij ] = eternity_tile_word ( k );
      p_xy(1) = p_ij(1) * 0.25;
      p_xy(2) = p_ij(2) * sqrt ( 3.0 ) / 12.0;
      node_show = true;
      element_number = true;
      title_string = sprintf ( 'tile%03d triangles xy', k );
      filename = sprintf ( 'tile%03d_triangles_xy.png', k );
      triangle_xy_plot ( w, p_xy, node_show, element_number, title_string, filename );
    end
  end

  return
end

