!------------------------------------------------------------------------
! P_PLOT.MAP
! Procedure to plot multiple contour maps of spectral line images
! overlaid on the bitmap.
! Global variables defined in DEFINE.GRAPHIC
! Calls P_HEADER.GREG  (to plot header information) 
! and P_LEVELS.GREG    (to compute automatic contour levels)
! S.Guilloteau 15-Oct-1992
!------------------------------------------------------------------------
DEFINE CHAR TMP*20
LET TMP &1 /upper
exa tmp
! 
IF (TMP.EQ."DIRTY") THEN
   LOAD DIRTY 
   LET TYPE 'MAPFIL$EXTS2'
ELSE IF (TMP.EQ."BEAM") THEN
   LOAD BEAM 
   LET TYPE 'MAPFIL$EXTS3'
ELSE IF (TMP.EQ."CLEAN") THEN
   LOAD CLEAN
   LET TYPE 'MAPFIL$EXTS5'
ELSE IF (TMP.EQ."NEAT") THEN
   LOAD NEAT
   LET TYPE 'MAPFIL$EXTS5'
ELSE IF (TMP.EQ."UV") THEN
   CONTINUE
   UV_SHOW
   RETURN
ELSE
   SAY "What ?  Unknown image type"
   RETURN
ENDIF
!
IF ("&2 ".NE." ") THEN
   LET FIRST &2
   LET LAST &2
   IF ("&3 ".NE." ") THEN
      LET LAST &3
   ENDIF
ENDIF
!
IF (TMP.EQ."UV") THEN
   UV_SHOW
ELSE
   @ p_lmv w    ! Name Z was conflicting with Z buffer in GreG
ENDIF
GTVL\CHANGE DIR <GREG
ON ERROR