function polygon_vertices_to_minkowski_test ( )

%*****************************************************************************80
%
%% polygon_vertices_to_minkowski_test() tests polygon_vertices_to_minkowski().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    13 November 2024
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'polygon_vertices_to_minkowski_test():\n' );
  fprintf ( 1, '  polygon_vertices_to_minkowski() computes the.\n' );
  fprintf ( 1, '  Minkowski polygon representation from vertices.\n' );
%
%  Test 1: equilateral triangle.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Test 1: Equilateral triangle\n' );
  fprintf ( 1, '  Vertices:\n' );

  v = [ 0.0, 0.0; ...
        1.0, 0.0; ...
        0.5, sqrt(3)/2.0 ];
  disp ( v );

  u = polygon_vertices_to_minkowski ( v );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Normals:\n' );
  disp ( u );
%
%  Test 2: Looks like 7.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Test 2: Looks like 7\n' );
  fprintf ( 1, '  Vertices:\n' );

  v = [ 0.0, 0.0; ...
        4.0, 0.0; ...
        4.0, 4.0; ...
        0.0, 4.0; ...
        0.0, 3.0; ...
        3.0, 3.0 ];
  disp ( v );

  u = polygon_vertices_to_minkowski ( v );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Normals:\n' );
  disp ( u );

  return
end

