;+
pro chkalign2, rawimg, df_x, xalgnimg, df_y, yalgnimg
;
; Checks XALIGN and YALIGN instruction results.
;


lrimg = long(rawimg) and '0000ffff'x
limg1 = long(xalgnimg) and '0000ffff'x
limg2 = long(yalgnimg) and '0000ffff'x

lrimg = reform(lrimg(0:'FFFFF'x),1024,1024)
limg1= reform(limg1(0:'FFFFF'x),1024,1024)
limg2= reform(limg2(0:'FFFFF'x),1024,1024)

x_opbuf = lonarr(1024,1024)
y_opbuf = lonarr(1024,1024)

for j = 0, 1022 do $
    x_opbuf(j,*) = ((lrimg(j,*) * (16384-df_x)) + $
                    (lrimg(j+1,*) * df_x)) / 16384

dif_x = where (x_opbuf(0:1022,*) ne limg1(0:1022,*))
dif_inf = size(dif_x)

for j = 0, 1022 do $
    y_opbuf(*,j) = ((x_opbuf(*,j) * (16384-df_y)) + $
                    (x_opbuf(*,j+1) * df_y)) / 16384

dif_y = where (y_opbuf(0:1022,0:1022) ne limg2(0:1022,0:1022))

help, dif_x, dif_y

stop

end