function quad_simple_random_test ( )

%*****************************************************************************80
%
%% QUAD_SIMPLE_RANDOM_TEST tests QUAD_SIMPLE_RANDOM.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    01 August 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'QUAD_SIMPLE_RANDOM_TEST\n' );
  fprintf ( 1, '  QUAD_SIMPLE_RANDOM returns a random simple quadrilateral\n' );
  fprintf ( 1, '  within the unit square.\n' );

  seed = 123456789;

  for i = 1 : 5

    [ xy, seed ] = quad_simple_random ( seed );

    r82vec_print ( 4, xy, '  Quadrilateral coordinates:' );
    angles = quad_angles_degrees ( xy );
    r8vec_print ( 4, angles, '  Angles:' );
    angle_sum = sum ( angles );
    fprintf ( 1, '  Angle sum = %g\n', angle_sum );
    area = quad_area_2d ( xy );
    fprintf ( 1, '  Area = %g\n', area );
    perimeter = quad_perimeter ( xy );
    fprintf ( 1, '  Perimeter = %g\n', perimeter );

  end

  return
end
