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