# Appendix B: Examples

## B.6 Line Styles

                PROGRAM EXA_6
          C     USE DISLIN         for Fortran 90!
                DIMENSION X(2),Y(2)
                CHARACTER*6 CTYP(8)
                DATA X/3.,9./CTYP/'SOLID','DOT','DASH','CHNDSH',
         *                        'CHNDOT','DASHM','DOTL','DASHL'/

                CALL SETPAG('DA4P')
                CALL DISINI
                CALL PAGERA
                CALL COMPLX
                CALL CENTER
                CALL CHNCRV('LINE')

                CALL NAME('X-axis','X')
                CALL NAME('Y-axis','Y')

                CALL TITLIN('Demonstration of CURVE',1)
                CALL TITLIN('Line Styles',3)

                CALL GRAF(0.,10.,0.,2.,0.,10.,0.,2.)
                CALL TITLE

                DO I=1,8
                  Y(1)=9.5-I
                  Y(2)=9.5-I
                  NY=NYPOSN(Y(1))
                  NX=NXPOSN(1.0)
                  CALL MESSAG(CTYP(I),NX,NY-20)
                  CALL CURVE(X,Y,2)
                END DO

                CALL DISFIN
                END

Figure B.6: Line Styles

Next | Previous | Contents