function ij_rotate_test ( )

%*****************************************************************************80
%
%% ij_rotate_test tests ij_rotate().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    11 November 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'ij_rotate_test\n' );
  fprintf ( 1, '  MATLAB/Octave version %s\n', version ( ) );
  fprintf ( 1, '  ij_rotate rotates a point''s (i,j) coordinates\n' );
  fprintf ( 1, '  through R 60 degree turns.\n' );

  p = [ 2, 3 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, '  R:  (I,J)  (I2,J2)\n' );
  fprintf ( 1, '\n' );
  for r = -6 : +6
    p2 = ij_rotate ( p, r );
    fprintf ( 1, '  %2d:  (%d,%d)   (%d,%d)\n', r, p(1), p(2), p2(1), p2(2) );
  end
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'ij_rotate_test\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end
