function adjacency_plot_test ( )

%*****************************************************************************80
%
%% adjacency_plot_test() tests adjacency_plot();
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    18 April 2024
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'adjacency_plot_test():\n' );
  fprintf ( 1, '  adjacency_plot() uses adjacency information to plot\n' );
  fprintf ( 1, '  the 36 30-60-90 triangles in a tile.\n' );
%
%  Eternity tiles
%
  eternity_tile_num = 209;

  for k = 1 : eternity_tile_num
    function_name = sprintf ( 'tile%03d_adjacency', k );
    function_handle = str2func ( function_name );
    [ adj, t1_ij ] = function_handle ( );
    p_xy = [ 0.0, 0.0 ];
    label = sprintf ( 'tile%03d adjacency', k );
    filename = sprintf ( 'tile%03d_adjacency.png', k );
    adjacency_plot ( adj, t1_ij, p_xy, label, filename );
  end
%
%  Serenity tiles
%
  serenity_tile_num = 8;

  for k = 1 : serenity_tile_num
    function_name = sprintf ( 'serenity%d_adjacency', k );
    function_handle = str2func ( function_name );
    [ adj, t1_ij ] = function_handle ( );
    p_xy = [ 0.0, 0.0 ];
    label = sprintf ( 'serenity%d adjacency', k );
    filename = sprintf ( 'serenityy%d_adjacency.png', k );
    adjacency_plot ( adj, t1_ij, p_xy, label, filename );
  end
%
%  Trinity tiles
%
  trinity_tile_num = 4;

  for k = 1 : trinity_tile_num
    function_name = sprintf ( 'trinity%d_adjacency', k );
    function_handle = str2func ( function_name );
    [ adj, t1_ij ] = function_handle ( );
    p_xy = [ 0.0, 0.0 ];
    label = sprintf ( 'trinity%d adjacency', k );
    filename = sprintf ( 'trinity%d_adjacency.png', k );
    adjacency_plot ( adj, t1_ij, p_xy, label, filename );
  end
%
%  hat monotile
%
  function_name = 'hat_monotile_adjacency';
  function_handle = str2func ( function_name );
  [ adj, t1_ij ] = function_handle ( );
  p_xy = [ 0.0, 0.0 ];
  label =  'hat\_monotile adjacency';
  filename = 'hat_monotile_adjacency.png';
  adjacency_plot ( adj, t1_ij, p_xy, label, filename );
%
%  turtle monotile
%
  function_name = 'turtle_monotile_adjacency';
  function_handle = str2func ( function_name );
  [ adj, t1_ij ] = function_handle ( );
  p_xy = [ 0.0, 0.0 ];
  label =  'turtle\_monotile adjacency';
  filename = 'turtle_monotile_adjacency.png';
  adjacency_plot ( adj, t1_ij, p_xy, label, filename );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'adjacency_plot_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end

