# Appendix B: Examples

## B.8 Shading Patterns (AREAF)

                PROGRAM EXA_8
          C     USE DISLIN         for Fortran 90!
                DIMENSION IXP(4),IYP(4),IX(4),IY(4)
                CHARACTER*60 CTIT,CSTR*2
                DATA IX/0,300,300,0/IY/0,0,400,400/

                CTIT='Shading Patterns (AREAF)'

                CALL DISINI
                CALL PAGERA
                CALL COMPLX

                CALL HEIGHT(50)
                NL=NLMESS(CTIT)
                NX=(2970-NL)/2
                CALL MESSAG(CTIT,NX,200)

                NX0=335
                NY0=350

                DO I=1,3
                  NY=NY0+(I-1)*600
                  DO J=1,6
                    NX=NX0+(J-1)*400
                    II=(I-1)*6+J-1
                    CALL SHDPAT(II)
                    WRITE(CSTR,'(I2)') II

                    DO K=1,4
                      IXP(K)=IX(K)+NX
                      IYP(K)=IY(K)+NY
                    END DO
                    CALL AREAF(IXP,IYP,4)

                    NL=NLMESS(CSTR)
                    NX=NX+(300-NL)/2
                    CALL MESSAG(CSTR,NX,NY+460)
                  END DO
                END DO

                CALL DISFIN
                END

Figure B.8: Shading Patterns

Next | Previous | Contents