Program Crvshw
c
c ***********************************************************************
c *                                                                     *
c *        Program Crvshw - To build a display table for PLTPRG.        *
c *        This program builds a display to show the curve options      *
c *        in PLTPRG - the line types and the symbols.                  *
c *                                                                     *
c *           Programmed by Steven C. Fisher, DTNSRDC Code 1522         *
c *                                                                     *
c ***********************************************************************
c
      Dimension Line(10),Ihold(20),Triang(8)
      Integer*2 Ihold
      Double Precision Vec(5)
      Equivalence (Vec(1),Ihold(1))
      Data Vec/' 1 2 3 4',' 5 6 7 8',' 9101112','13141516','17181920'/
      Data Line/1,22,52,5222,11,4444,7242,1414,7111,9252/
      Data Triang/3.0,0.0,0.0,0.5,-0.5,-0.577,0.289,0.289/
c
c  ************************************************************************
c            Initialize the plot                                          *
c                                                                         *
c
c                 TEKTRONIX 4010/4014 Version
c
      Call Plopen('NEW.DAT',7,'4014','TSX ')                              *
      Call Scinit                                                         *
      Call Scrdef(0.0,10.0,0.0,7.0)                                       *
      Call Viewpt(0.0,10.0,0.6,6.6)                                       *
      Call Window(0.0,110.0,11.0,100.0)                                   *
c  ************************************************************************
c
c  ************************************************************************
c            Set up the line types                                        *
      Call Movawc(4.5,86.0)
      Call Grtxcp(99,'Line type\')
      Call Movawc(4.5,85.7)
      Call Drwrwc(14.2,0.0)
c
      Do 10 I=1,10
         Call Movawc(1.0,83.0 - I*5.0)
         Call Grtxcp(2,Ihold(I))
         Call Stlint(Line(I))
         Call Movawc(5.0,84.0 - I*5.0)
         Call Drwrwc(15.0,0.0)
10    Continue
      Call Stlint(1)
c
c  ************************************************************************
c        Set up the symbol types                                          *
c
      Call Movawc(23.0,86.0)
      Call Grtxcp(99,'Symbol type\')
      Call Movawc(23.0,85.7)
      Call Drwrwc(17.0,0.0)
c
      Call Stsysz(0.22)
      Call Movawc(25.5,79.3)
      Call Grtxcp(99,' 0  None\')
      Do 30 I=11,21
         Call Movawc(25.5,80.0 - (I-10)*4.25) ! was 79, 4.5
         Call Grtxcp(2,Ihold(I-10))
         Call Stsyty(I)
         If (I .LT. 21) Then
            Call Wcpmkr(33.5,81.0 - (I-10)*4.25,1)
         Else
            Call Wcpmkd(33.5,81.0-11*4.25,1,Triang)
         End If
30    Continue
      Call Stsyty(1)
c
c  ************************************************************************
c            Set up the plot colors                                       *
c
      Call Movawc(45.0,89.0)
      Call Grtxcp(99,'Curve color\')
      Call Movawc(45.0,88.7)
      Call Drwrwc(16.0,0.0)
      Call Movawc(43.5,85.0)
      Call Grtxcp(99,'for HP plotter\')
      Call Movawc(43.5,84.7)
      Call Drwrwc(21.0,0.0)
c
      Xloc = 44.0
      Call Movawc(Xloc,79.0)
      Call Grtxcp(99,'1  Black\')
      Call Movawc(Xloc,74.0)
      Call Grtxcp(99,'2  Red\')
      Call Movawc(Xloc,69.0)
      Call Grtxcp(99,'3  Dk. Green\')
      Call Movawc(Xloc,64.0)
      Call Grtxcp(99,'4  Blue\')
      Call Movawc(Xloc,59.0)
      Call Grtxcp(99,'5  Orange\')
      Call Movawc(Xloc,54.0)
      Call Grtxcp(99,'6  Purple\')
      Call Movawc(Xloc,49.0)
      Call Grtxcp(99,'7  Lt. Green\')
      Call Movawc(Xloc,44.0)
      Call Grtxcp(99,'8  Brown\')
c
c  ************************************************************************
c              List the curve fit options                                 *
c
      Call Movawc(75.0,85.0)
      Call Grtxcp(99,'Curve Fit\')
      Call Movawc(75.0,84.7)
      Call Drwrwc(13.3,0.0)
c
      Call Movawc(66.0,79.0)
      Call Grtxcp(99,'0  No curve drawn\')
      Call Movawc(66.0,73.0)
      Call Grtxcp(99,'1  Straight lines\')
      Call Movawc(66.0,67.0)
      Call Grtxcp(99,'2  Least squares fit\')
      Call Movawc(66.0,61.0)
      Call Grtxcp(99,'3  Cubic spline fit\')
      Call Movawc(66.0,55.0)
      Call Grtxcp(99,'4  Parametric spline (type A)\')
      Call Movawc(66.0,49.0)
      Call Grtxcp(99,'5  Parametric spline (type B)\')
      Call Movawc(66.0,43.0)
      Call Grtxcp(99,'6  Parametric spline (type C)\')
      Call Movawc(66.0,37.0)
      Call Grtxcp(99,'7  Least sqrs spline (type A)\')
      Call Movawc(66.0,31.0)
      Call Grtxcp(99,'8  Least sqrs spline (type B)\')
c
c
      Call Scfini
      Call Exit
      Stop
      End