! @ p_explore.ima NAME
!
! IMAGER
!   Support for command EXPLORE
!
!   Display the IMAGE-like variable NAME using the "EXPLORE" facility
!
if (pro%narg.eq.0).or.("&1?".eq."??") then
  @ input_explore
  return
endif
!
if (.not.exist(&1)) then
  Message E EXPLORE "No such variable &1"
  let mapping_error yes
  return
endif
if (rank(&1).lt.2)  then
  Message E EXPLORE "Variable &1 is less than 2-D"
  let mapping_error yes
  return
endif
if (.not.exist(&1%EXTREMA)) then
  Message E EXPLORE "Variable &1 has no assigned extrema"
  let mapping_error yes
  return
endif
!
gtvl\clear directory
!
let header_name_type "(&1)" /Upper
symbol HAS_CHANGED NO
!
@ p_axes        &1    ! Axes definition
@ p_scale       &1    ! Scaling
@ p_level       &1    ! Contour levels
@ p_explore_sub   &1  &2  ! Effective drawing
greg1\set expand 1.0
!
symbol drawn &1%
!
