function boat_triangle_xy_plot_test ( )

%*****************************************************************************80
%
%% boat_triangle_xy_plot_test() tests boat_triangle_xy_plot().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    17 June 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'boat_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' );

  [ w, p_ij ] = boat_grid_word ( );
  node_show = false;
  element_number = false;
  title_string = 'boat';
  title_string = '';
  filename = 'boat_triangle_xy_grid.png';
  triangle_xy_plot ( w, p_ij, node_show, element_number, title_string, filename );

  for k = 1 : 21
    [ w, p_ij ] = boat_tile_word ( k );
    node_show = false;
    element_number = false;
    title_string = sprintf ( 'boat tile #%d', k );
    filename = sprintf ( 'boat_triangle_xy_tile%03d.png', k );
    triangle_xy_plot ( w, p_ij, node_show, element_number, title_string, filename );
  end

  return
end

