! @ p_show_beam.ima [Plane TYPE]
!   Display the Synthesied BEAM using the "SHOW" facility
if (.not.exist(&1)) then
  Message E SHOW "No such variable &1"
  let mapping_error yes
  return
endif
if (rank(&1).lt.2)  then
  Message E SHOW "Variable &1 is less than 2-D"
  let mapping_error yes
  return
endif
if (.not.exist(&1%EXTREMA)) then
  Message E SHOW "Variable &1 has no assigned extrema"
  let mapping_error yes
  return
endif
!
gtvl\clear directory
let PopupName BEAM
!
let header_name_type "(&1)" /Upper
symbol HAS_CHANGED NO
!
let verify sic%verify /new log
!sic verify off
!!@ p_scale  &1           ! Scaling
!!@ p_level  &1           ! Contour levels
if (&1%NDIM.EQ.3) then
  @ p_lmv_beam &1 1 &2 &3 &4 &5   ! Effective drawing (also set Scaling and Levels)
else
  @ p_lmv_beam &1 1 &2 &3 &4 &5   ! Effective drawing (also set Scaling and Levels)
  if (do_header) then
    gtvl\change dir HEADER
    greg1\draw text 1 -16 "\\i&2: \\n &3" 6 0 /char 7
    gtvl\change dir <GREG
  endif
endif
!
symbol drawn &1%
if verify sic verify on
