;+
; Program to display data generated by the ip_test procedure
;-
pro ckip, filename

loadct, 3

;=== Raw Image Data

read_mdi, filename, 0, raw_img, hdr
window, 0, xsize = 1024, ysize = 1024
tvscl, raw_img
read, iqw


;=== Cropped Image Data

read_mdi, filename, 1, crop_lst, hdr
read_mdi, filename, 2, crop_data, hdr
makecrop, crop_data, crop_lst, crop_img
tvscl, crop_img
read, iqw

checkcrop, crop_data, raw_img, crop_lst, lerr, terr
print, terr, format = '(i6, " errors in CROPLIST")'


;=== Limb Figure Data

read_mdi, filename, 3, lf_lst, hdr
read_mdi, filename, 4, lf_data, hdr
makecrop, lf_data, lf_lst, lf_img
tvscl, lf_img
read, iqw

checkcrop, lf_data, raw_img, lf_lst, lerr, terr
print, terr, format = '(i6, " errors in Limb Figure LIST")'

read_mdi, filename, 5, rwbin, hdr
read_mdi, filename, 6, rwdata, hdr


;=== Rectangular Binned Data

;rectbin, rwbin, rwarr, 200
;tvscl, rwarr
;read, iqw

;mkrwimg, rwdata, rwbin, rwimg
;tvscl, rwimg

chkrwimg, raw_img, rwdata, rwbin, rwout, nerr
print, nerr, format = '(i6, " errors in Rectangular Binned Data")'
tvscl, rwout
read, iqw


;=== Vector weighted binned data

read_mdi, filename, 7, vwbin, hdr
read_mdi, filename, 8, vwdata, hdr

chkvwimg, raw_img, vwdata, vwbin, vwout, nerr
print, nerr, format = '(i6, " errors in Vector weighted Binned Data")'
tvscl, vwout

end