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