EZMAP aspect ratios.

From: Dave Kennison (kennison AT unknown)
Date: Tue Jun 03 1997 - 15:58:59 MDT


All,

With reference to the EZMAP question that was posted this morning: EZMAP
attempts to preserve the inherent aspect ratio of whatever projection it
is told to use, but this can be circumvented by using calls to routines
on a lower level than SUPMAP. The attached program produces two frames,
one of which is the user's original and one of which is what the user
wants to have (except that I used solid, rather than dotted, outlines).

Dave Kennison

Program follows:

      PROGRAM TESTIT
C
C This program was written to answer the following user question:
C
C I recently find that when I use
C
C mappos(.1, .9, .2, .8)
C
C and
C
C supmap (9, 0., 180., 0., -5., 120., 5., 300., 2, 0, 2, 1, ierr)
C
C The map comes good but the question is that the latitudinal
C extent (5S~5N) is not as large as I set (.2~.8).
C
C The map is reasonable considering the actual condition. But when we
C focus a narrow belt near the equator, we would like to amplify the
C latitudinal extent to see the detail over this narrow belt.
C
C I am desperately hope to improve the map in this case.
C
C Any comments and suggestions are wellcomed.
C
C Thank you.
C
C Open GKS.
C
        CALL OPNGKS
C
C Draw the map that the user is getting.
C
C CALL SUPMAP (9,0.,180.,0.,-5.,120.,5.,300.,2,0,2,1,IERR) ! dots
        CALL SUPMAP (9,0.,180.,0.,-5.,120.,5.,300.,2,0,2,0,IERR) ! lines
        CALL FRAME
C
C Draw the same map, but, instead of SUPMAP calls, use lower-level
C calls. This allows us to change the definition of the viewport
C in between the call to MAPINT and the other calls, forcing the
C map to fill a given viewport and therefore to have something
C other than its normal aspect ratio.
C
        CALL MAPROJ ('ME',0.,180.,0.)
        CALL MAPSET ('CO',-5.,120.,5.,300.)
        CALL MAPSTI ('GR',0)
        CALL MAPSTC ('OU','CO')
C CALL MAPSTI ('DO',1) ! dots
        CALL MAPSTI ('DO',0) ! lines
        CALL MAPINT
        CALL GETSET (XVPL,XVPR,YVPB,YVPT,XWDL,XWDR,YWDB,YWDT,LNLG)
        CALL SET ( .10, .90, .20, .80,XWDL,XWDR,YWDB,YWDT,LNLG)
        CALL MAPGRD
        CALL MAPLBL
        CALL MAPLOT
        CALL FRAME
C
C Close GKS.
C
        CALL CLSGKS
C
C Stop.
C
        STOP
C
      END



This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:40:31 MDT