function simp_plot_2d_demo

%% SIMP_PLOT_2D_DEMO displays some examples of the use of SIMP_PLOT_2D
%
%  Copyright:
%
%    (C) 2004 Per-Olof Persson. 
%    See COPYRIGHT.TXT for details.
%
%  Modified:
%
%    06 February 2006
%
%  Reference:
%
%    Per-Olof Persson and Gilbert Strang,
%    A Simple Mesh Generator in MATLAB,
%    SIAM Review,
%    Volume 46, Number 2, June 2004, pages 329-345.
%
%  Local parameters:
%
  timestamp;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'SIMP_PLOT_2D_DEMO\n' );
  fprintf ( 1, '  Demonstrations of the use of SIMP_PLOT_2D.\n' );
%
%  Problem 1.
%
  p = dtable_read ( 'p01_nodes.txt' );
  t = itable_read ( 'p01_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 2.
%
  p = dtable_read ( 'p02_nodes.txt' );
  t = itable_read ( 'p02_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 3.
%
  p = dtable_read ( 'p03_nodes.txt' );
  t = itable_read ( 'p03_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 4.
%
  p = dtable_read ( 'p04_nodes.txt' );
  t = itable_read ( 'p04_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 5.
%
  p = dtable_read ( 'p05_nodes.txt' );
  t = itable_read ( 'p05_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 6.
%
  p = dtable_read ( 'p06_nodes.txt' );
  t = itable_read ( 'p06_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 7.
%
  p = dtable_read ( 'p07_nodes.txt' );
  t = itable_read ( 'p07_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 8.
%
  p = dtable_read ( 'p08_nodes.txt' );
  t = itable_read ( 'p08_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 9.
%
  p = dtable_read ( 'p09_nodes.txt' );
  t = itable_read ( 'p09_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 10.
%
  p = dtable_read ( 'p10_nodes.txt' );
  t = itable_read ( 'p10_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 11.
%
  p = dtable_read ( 'p11_nodes.txt' );
  t = itable_read ( 'p11_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 12.
%
  p = dtable_read ( 'p12_nodes.txt' );
  t = itable_read ( 'p12_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 13.
%
  p = dtable_read ( 'p13_nodes.txt' );
  t = itable_read ( 'p13_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause
%
%  Problem 14.
%
  p = dtable_read ( 'p14_nodes.txt' );
  t = itable_read ( 'p14_triangles.txt' );
  simp_plot_2d ( p', t' );
%
%  Problem 15.
%
  p = dtable_read ( 'p15_nodes.txt' );
  t = itable_read ( 'p15_triangles.txt' );
  simp_plot_2d ( p', t' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '   (press any key)\n' );

  pause

  fprintf ( 1, '\n' );
  fprintf ( 1, 'SIMP_PLOT_2D_DEMO\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  fprintf ( 1, '\n' );
  timestamp;