function hexity_rotate_test ( )

%*****************************************************************************80
%
%% hexity_rotate_test() tests hexity_rotate.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 March 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'hexity_rotate_test():\n' );
  fprintf ( 1, '  hexity_rotate() is given the hexity of an Eternity object\n' );
  fprintf ( 1, '  and computes its hexity after being rotated.\n' );
  fprintf ( 1, '\n' );
%
%  Get trinity word and compute grid hexity.
%
  o_w = 'AAKbBCCGGDdGIIII';
  o_p = [ 0, 0 ];
  o_h = object_hexity ( o_w, o_p );
  fprintf ( 1, '  Word: %s\n', o_w );
  fprintf ( 1, '  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %3d  %s\n', o_h, sum ( o_h ), '  Default configuration' );

  for r = 1 : 6
    [ r_w, r_p ] = word_rotate_ij ( o_w, o_p, r );
    r_h = hexity_rotate ( o_h, r );
    fprintf ( 1, '\n' );
    fprintf ( 1, '  Word: %s\n', r_w );
    fprintf ( 1, '  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %2d  %3d  %d degrees\n', r_h, sum ( r_h ), r * 60 );
  end

  return
end

