function geompack_test08 ( )

%*****************************************************************************80
%
%% TEST08 tests TRIANGULATION_PRINT.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    14 February 2003
%
%  Author:
%
%    John Burkardt
%
  g_num = 9;
  ndim = 2;
  tri_num = 12;

  g_xy = [ ...
       0.0, 0.0; ... 
       0.0, 1.0; ... 
       0.2, 0.5; ...
       0.3, 0.6; ... 
       0.4, 0.5; ... 
       0.6, 0.4; ... 
       0.6, 0.5; ... 
       1.0, 0.0; ... 
       1.0, 1.0 ]';
  nod_tri = [ ...
       2, 1, 3; ...
       3, 1, 6; ...
       2, 3, 4; ...
       4, 3, 5; ...
       7, 4, 5; ...
       5, 3, 6; ...
       7, 5, 6; ...
       9, 4, 7; ...
       6, 1, 8; ...
       7, 6, 8; ...
       7, 8, 9; ...
       2, 4, 9 ]';
  tnbr = [ ...
       -28,   2,  3; ...
         1,   9,  6; ...
         1,   4, 12; ...
         3,   6,  5; ...
         8,   4,  7; ...
         4,   2,  7; ...
         5,   6, 10; ...
        12,   5, 11; ...
         2, -34, 10; ...
         7,   9, 11; ...
        10, -38,  8; ...
         3,   8, -3 ]';

  fprintf ( 1, '\n' );
  fprintf ( 1, 'TEST08\n' );
  fprintf ( 1, '  TRIANGULATION_PRINT prints out a triangulation.\n' );

  triangulation_print ( g_num, tri_num, g_xy, nod_tri, tnbr );

  return
end
