function word_reflect_ij_test ( )

%*****************************************************************************80
%
%% word_reflect_ij_test() tests word_reflect_ij().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    08 June 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'word_reflect_ij_test():\n' );
  fprintf ( 1, '  word_reflect_ij() takes the boundary word of an object\n' );
  fprintf ( 1, '  and returns the boundary word of\n' );
  fprintf ( 1, '  the object after reflection about that angle.\n' );

  k = 1;
  [ w, p_ij ] = tile_word ( k );
  e = word_to_edge_ij ( w, p_ij ); 
  label = 'reflection none: tile001:';
  filename = 'tile001_reflect_ij_none.png';
  word_print ( w, p_ij, label );
  edge_plot ( e, label, filename );

  [ w2, p2_ij ] = word_reflect_ij ( w, p_ij );
  e2 = word_to_edge_ij ( w2, p2_ij ); 
  label = sprintf ( 'reflect across 0 angle: tile001' );
  filename = sprintf ( 'tile001_reflect_ij.png' );
  word_print ( w2, p2_ij, label );
  edge_plot ( e2, label, filename );

  fprintf ( 1, '\n' );
  fprintf ( 1, 'word_reflect_ij_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end

