function pariomino_transform_test ( )

%*****************************************************************************80
%
%% pariomino_transform_test tests pariomino_transform.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 May 2020
%
%  Author:
%
%    John Burkardt
%
%  Local:
%
%    integer P(M,N), a matrix of -1's, 0's and +1's representing the 
%    pariomino.  The matrix should be "tight", that is, there should be a
%    nonzero in row 1, and in column 1, and in row M, and in column N.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pariomino_transform_test:\n' );
  fprintf ( 1, '  MATLAB/Octave version %s\n', version ( ) );
  fprintf ( 1, '  pariomino_transform() transforms a pariomino.\n' );
  fprintf ( 1, '  Generate all 8 combinations of rotation and reflection\n' );
  fprintf ( 1, '  applied to a pariomino represented by a -1/0/+1 matrix.\n' );

  m = 3;
  n = 3;
  p = [  0, -1, +1; 
        -1, +1,  0; 
         0, -1,  0 ];

  pariomino_print ( p, '  The given pariomino P:' );

  for reflect = 0 : 1
    for rotate = 0 : 3

      q = pariomino_transform ( p, rotate, reflect );

      label = sprintf ( '  P after %d reflections and %d rotations:', ...
        reflect, rotate );
      pariomino_print ( q, label );

    end
  end
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pariomino_transform_test:\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end
