tmpscr(1/2): check.fits

display range: -100,100 Correct the distortion along y-axis for the left- and right-hand side separately based on irs1_sample1a1_lre1.dat and irs1_sample1a1_lre2.dat Merge the images to check the correction accuracy 9 1D images are extracted from this image

#Extract the parts of the spectra using 9 masks
imdel tmpe.fits,tmps.fits,irs1_sample1a1_lrx1.fits,check,bkg
imdel tmpe.fits,tmpe_?.fits,irs1_sample1a1_lrx?.fits,check,bkg
!echo "1 0 0 0 0 0 0 0 0" > extract.dat
!echo "0 1 0 0 0 0 0 0 0" >> extract.dat
!echo "0 0 1 0 0 0 0 0 0" >> extract.dat
!echo "0 0 0 1 0 0 0 0 0" >> extract.dat
!echo "0 0 0 0 1 0 0 0 0" >> extract.dat
!echo "0 0 0 0 0 1 0 0 0" >> extract.dat
!echo "0 0 0 0 0 0 1 0 0" >> extract.dat
!echo "0 0 0 0 0 0 0 1 0" >> extract.dat
!echo "0 0 0 0 0 0 0 0 1" >> extract.dat
imdel tmp2,tmp2a,tmp2a_?.fits,tmp3a,tmp4a,check,bkg
imcopy irs1_sample1a1_lrm[1:1024,*] tmp2.fits
!../extract tmp2.fits tmp2a.fits irs1_cont_lre1.dat 0
imrename check tmp3a
imrename bkg tmp4a
imdel tmp2,tmp2b,tmp2b_?.fits,tmp3b,tmp4b
imcopy irs1_sample1a1_lrm[1025:2048,*] tmp2.fits
!../extract tmp2.fits tmp2b.fits irs1_cont_lre2.dat 0
imrename check tmp3b
imrename bkg tmp4b
!echo "0 0" > tmp.offset
!echo "1024 0" >> tmp.offset
imcomb tmp2a,tmp2b tmpe.fits offset=tmp.offset
imcomb tmp2a_1,tmp2b_1 tmpe_1.fits offset=tmp.offset
imcomb tmp2a_2,tmp2b_2 tmpe_2.fits offset=tmp.offset
imcomb tmp2a_3,tmp2b_3 tmpe_3.fits offset=tmp.offset
imcomb tmp2a_4,tmp2b_4 tmpe_4.fits offset=tmp.offset
imcomb tmp2a_5,tmp2b_5 tmpe_5.fits offset=tmp.offset
imcomb tmp2a_6,tmp2b_6 tmpe_6.fits offset=tmp.offset
imcomb tmp2a_7,tmp2b_7 tmpe_7.fits offset=tmp.offset
imcomb tmp2a_8,tmp2b_8 tmpe_8.fits offset=tmp.offset
imcomb tmp3a,tmp3b check.fits offset=tmp.offset