13.7 Examples

            PROGRAM EX13_2
            CHARACTER*6 CPROJ(3),CTIT*60
            DATA CPROJ/'Sanson','Winkel','Hammer'/

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

            CALL HEIGHT(40)
            CALL AXSLEN(1600,750)

            NYA=3850
            DO I=1,3
              NYA=NYA-950
              CALL AXSPOS(250,NYA)

              CALL PROJCT(CPROJ(I))
              CALL NOCLIP
              CALL GRAFMP(-180.,180.,-180.,30.,-90.,90.,-90.,15.)

              WRITE(CTIT,'(2A)') 'Elliptical Projection of ',CPROJ(I)
              CALL TITLIN(CTIT,4)
              CALL TITLE

              CALL COLOR('GREEN')
              CALL WORLD
              CALL COLOR('FORE')
              CALL GRIDMP(1,1)
              CALL ENDGRF
            END DO

            CALL DISFIN
            END

Figure 13.2: Elliptical Projections