PRO EXAMPLE8

rcs_id = '$Id: example8.pro,v 1.6 2000/08/02 17:39:59 gumley Exp $'

;- Make sure a window has been opened
if ((!d.flags and 256) ne 0) and (!d.window lt 0) then begin
  window, /free, /pixmap
  wdelete, !d.window
endif

;- Load demo data
openr, lun, filepath('ctscan.dat', subdir='examples/data'), /get_lun
ctscan = bytarr(256, 256)
readu, lun, ctscan
free_lun, lun
openr, lun, filepath('hurric.dat', subdir='examples/data'), /get_lun
hurric = bytarr(440, 330)
readu, lun, hurric
free_lun, lun
read_jpeg, filepath('rose.jpg', subdir='examples/data'), rose

;- Display the images on 4 panels
!p.multi = [0, 2, 2, 0, 0]
ncolors = !d.table_size / 4
loadct, 0, ncolors=ncolors, bottom=(0 * ncolors)
imdisp, ctscan, ncolors=ncolors, bottom=(0 * ncolors), /axis, $
  background=(ncolors / 2)
loadct, 13, ncolors=ncolors, bottom=(1 * ncolors)
imdisp, hurric, margin=0.0, ncolors=ncolors, bottom=(1 * ncolors)
imdisp, rose, ncolors=ncolors, bottom=(2 * ncolors), /interp
loadct, 3, ncolors=ncolors, bottom=(3 * ncolors)
imdisp, reform(rose[0, *, *]), aspect=1.0, $
  ncolors=ncolors, bottom=(3 * ncolors)
!p.multi = 0

END