## 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