pro mips990_24um,file
; generate DN images of the reset-read frame of the
; 2 RAW exposures taken during mips-990 - before and
; after the 24um anneal

fits_open,file,fcb

window,0,xsize=4*128,ysize=4*128

fits_read,fcb,cube1,exten_no=3
im1 = float(cube1[*,*,0])
show,im1,mag=4,/samp,min=0,max=5000.
print,minmax(im1)
scrn2gif,'24umDNimageBefore.gif'

wait,1

fits_read,fcb,cube2,exten_no=13
im2 = float(cube2[*,*,0])
fix_offset = 19429.
print,'SUBTRACTING OFFSET OF ', fix_offset,' from 2nd image'
show,im2-fix_offset,mag=4,/samp,min=0,max=5000.
print,minmax(im2)
scrn2gif,'24umDNimageAfter.gif'

wait,1

rat = (im2-fix_offset) / im1
rat = rat - median(rat) + 1.
show,rat,mag=4,/samp

stop
fits_close,fcb
return
end