!
! p_continuum.ima
!
! Support for command MAP_CONTINUUM
!
clear 
rgdata  continuum /var
create dir continuum
change dir continuum
!
! Allow for Size and Center
if ((size[1].ne.0).or.(size[2].ne.0)) then
  if (size[1].eq.0) then
    greg1\limits = = (center[2]-size[2]/2) (center[2]+size[2]/2) seconds
  else if (size[2].eq.0) then
    greg1\limits (center[1]+size[1]/2) (center[1]-size[1]/2) = = seconds
  else
    greg1\limits (center[1]+size[1]/2) (center[1]-size[1]/2) (center[2]-size[2]/2) (center[2]+size[2]/2) seconds
  endif
else
  lim /rg
endif
define real ratio
let ratio abs((user_xmax-user_xmin)/(user_ymax-user_ymin))
set box 4 4+13/ratio    3 16
box /abs
!
@ p_scale continuum
@ p_level continuum
plot /scal lin true_scale[1] true_scale[2]
rgmap 
box /abs
change dir <greg
!
creat direc spectrum
chang direc spectrum
set box 4 4+13/ratio 17.0 20.5
set blank continuum%blank[1] continuum%blank[2]
lim * * 0 1 /var clipped[1] clipped[2]
histo clipped[1] clipped[4] /base 0 /fill 12
lim /var clipped[1] clipped[2]
box
pen 1
histo clipped[1] clipped[2]
pen 0
histo clipped[1] clipped[3]
!
change direc <greg
