function vertex_plot_test ( )

%*****************************************************************************80
%
%% vertex_plot_test() tests vertex_plot().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    08 December 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'vertex_plot_test():\n' );
  fprintf ( 1, '  vertex_plot() plots a polyabolo and its triangles\n' );
  fprintf ( 1, '  from its vertex list.\n' );

  [ w, p ] = gort_word ( );

  v = word_to_vertex ( w, p );
 
  clf ( );

  color = 'c';
  number = false;
  vertex_plot ( v, color, number );

  label = s_escape_tex ( 'vertex_plot: Gort' );
  title ( label );
  axis ( 'equal' );
  filename = 'vertex_plot_gort.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'vertex_plot_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end

