program main

c*********************************************************************72
c
cc triangle_svg_test() tests triangle_svg().
c
c  Licensing:
c
c    This code is distributed under the MIT license.
c
c  Modified:
c
c    20 April 2014
c
c  Author:
c
c    John Burkardt
c
      implicit none

      call timestamp ( )
      write ( *, '(a)' ) ' '
      write ( *, '(a)' ) 'triangle_svg_test():'
      write ( *, '(a)' ) '  Fortran77 version'
      write ( *, '(a)' ) '  Test triangle_svg().'

      call test01 ( )
c
c  Terminate.
c
      write ( *, '(a)' ) ' '
      write ( *, '(a)' ) 'triangle_svg_test():'
      write ( *, '(a)' ) '  Normal end of execution.'
      write ( *, '(a)' ) ' '
      call timestamp ( )

      stop
      end
      subroutine test01 ( )

c*********************************************************************72
c
cc TEST01 calls TRIANGLE_SVG to plot a triangle and some points.
c
c  Licensing:
c
c    This code is distributed under the MIT license.
c
c  Modified:
c
c    20 April 2014
c
c  Author:
c
c    John Burkardt
c
      implicit none

      integer p_num
      parameter ( p_num = 13 )

      double precision p(2,p_num)
      character * ( 255 ) plot_filename
      double precision t(2,3)

      save p
      save t

      data p /
     &  0.333333333333333D+00, 0.333333333333333D+00,
     &  0.479308067841923D+00, 0.260345966079038D+00,
     &  0.260345966079038D+00, 0.479308067841923D+00,
     &  0.260345966079038D+00, 0.260345966079038D+00,
     &  0.869739794195568D+00, 0.065130102902216D+00,
     &  0.065130102902216D+00, 0.869739794195568D+00,
     &  0.065130102902216D+00, 0.065130102902216D+00,
     &  0.638444188569809D+00, 0.312865496004875D+00,
     &  0.638444188569809D+00, 0.048690315425316D+00,
     &  0.312865496004875D+00, 0.638444188569809D+00,
     &  0.312865496004875D+00, 0.048690315425316D+00,
     &  0.048690315425316D+00, 0.638444188569809D+00,
     &  0.048690315425316D+00, 0.312865496004875D+00 /
      data t /
     &  0.0, 0.0, 
     &  1.0, 0.0, 
     &  0.0, 1.0 /

      plot_filename = 'test01.svg'

      call triangle_svg ( plot_filename, t, p_num, p )

      return
      end