1 November  2023   5:21:59.664 PM      

polygon_triangulate_test():
  FORTRAN77 version.
  Test polygon_triangulate().

TEST01
  Triangulate the comb_10 polygon.
 
  Triangles
 
  Col        1       2       3       4       5       6       7       8
  Row
 
    1:       3       5       7       9      10       3       5       7
    2:       1       3       5       7       7      10      10      10
    3:       2       4       6       8       9       1       3       5

TEST02
  Read polygon coordinates in "comb_nodes.txt"
  Write triangulation to "comb_elements.txt"

TEST02
  Read polygon coordinates in "hand_nodes.txt"
  Write triangulation to "hand_elements.txt"

TEST02
  Read polygon coordinates in "i18_nodes.txt"
  Write triangulation to "i18_elements.txt"

TEST03
  Read node coordinates in "comb_nodes.txt"

  Write edges to "comb_edges.txt"
  Write diagonals to "comb_diagonals.txt"
  Write gnuplot commands to "comb_commands.txt"

TEST03
  Read node coordinates in "hand_nodes.txt"

  Write edges to "hand_edges.txt"
  Write diagonals to "hand_diagonals.txt"
  Write gnuplot commands to "hand_commands.txt"

TEST03
  Read node coordinates in "i18_nodes.txt"

  Write edges to "i18_edges.txt"
  Write diagonals to "i18_diagonals.txt"
  Write gnuplot commands to "i18_commands.txt"

polygon_triangulate_test():
  Normal end of execution.

 1 November  2023   5:21:59.668 PM