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:45:39 MDT