;-------------------------------------------------------------------------
pro iMap, parm1, parm2, parm3, parm4, $
    CONTOUR=doContour, $
    _REF_EXTRA=_extra

    compile_opt hidden, idl2

@idlit_on_error2.pro

    title = 'IDL iMap'
    toolname = 'Map Tool'

    if KEYWORD_SET(doContour) then begin

        case N_PARAMS() of
        0: iContour, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        1: iContour, parm1, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        2: iContour, parm1, parm2, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        3: iContour, parm1, parm2, parm3, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        endcase

    endif else begin

        case N_PARAMS() of
        0: iImage, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        1: iImage, parm1, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        2: iImage, parm1, parm2, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        3: iImage, parm1, parm2, parm3, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        4: iImage, parm1, parm2, parm3, parm4, $
            TITLE=title, TOOLNAME=toolname, _EXTRA=_extra
        endcase

    endelse

end