# Appendix B: Examples

## B.10 Shading Patterns (PIEGRF)

                PROGRAM EXA_10
          C     USE DISLIN         for Fortran 90!
                DIMENSION XRAY(18)
                CHARACTER*60 CTIT,CBUF*36,CSTR*2
                DATA XRAY/18*1./

                CTIT='Shading Patterns (PIEGRF)'

                CALL SETPAG('DA4P')
                CALL DISINI
                CALL PAGERA
                CALL COMPLX

                CALL AXSPOS(250,2700)
                CALL AXSLEN(1600,2200)
                CALL TITLIN(CTIT,3)
                CALL HEIGHT(50)

                CALL LEGINI(CBUF,18,2)

                DO I=1,18
                  WRITE(CSTR,'(I2)') I-1
                  CALL LEGLIN(CBUF,CSTR,I)
                END DO

                CALL LABELS('NONE','PIE')
                CALL PIEGRF(CBUF,1,XRAY,18)
                CALL TITLE

                CALL DISFIN
                END

Figure B.10: Shading Patterns

Next | Previous | Contents