check.fits

display range: 0,40000 Correct the distortion along y-axis for the left- and right-hand side separately Merge the images to check the correction accuracy The correction parameters are saved as irs1_cont_lre1.dat and irs1_cont_lre2.dat

imdel tmp1,irs1_cont_lre.fits,irs1_cont_lrs.fits,irs1_cont_lra.fits,irs1_cont_lrx.fits,check,bkg
!echo "0.5 1 1 1 1 1 1 1 0.5" > extract.dat
#imsur irs1_cont_lrm tmp1.fits 5 1 type_ou=response functio=spline3 
imcopy irs1_cont_lrm tmp1.fits
imdel tmp2,tmp2a,tmp3a,tmp4a
imcopy tmp1[1:1024,*] tmp2.fits
!../extract tmp2.fits tmp2a.fits > irs1_cont_lre1.dat
imrename check tmp3a
imrename bkg tmp4a
imdel tmp2,tmp2b,tmp3b,tmp4b
imcopy tmp1[1025:2048,*] tmp2.fits
!../extract tmp2.fits tmp2b.fits > irs1_cont_lre2.dat
imrename check tmp3b
imrename bkg tmp4b
!echo "0 0" > tmp.offset
!echo "1024 0" >> tmp.offset
imcomb tmp2a,tmp2b irs1_cont_lre.fits offset=tmp.offset
imcomb tmp3a,tmp3b check.fits offset=tmp.offset
imcomb tmp4a,tmp4b bkg.fits offset=tmp.offset
displ check 4 zs+