PRO EXAMPLE24

rcs_id = '$Id: example24.pro,v 1.7 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]
loadct, 0
imdisp, ctscan, /axis, background=128
loadct, 13
imdisp, hurric, margin=0.0
imdisp, rose, /interp
loadct, 3
imdisp, reform(rose[0, *, *]), aspect=1.0
!p.multi = 0

END