Extracting the Lick/Kast data 					June 2002

### Look at 2Ds

display J1431+3346+0.04b.fringe.fits 1
display J1431+3346+0.04r.fringe.fits 2
display J1431+3346+0.04r.fits 3
beep

### Look at blue inviduals

display processed/b140fzs.fits 2
display processed/b142fzs.fits 3
beep

### Look at red individuals

display processed/r414bfzs.fits 3
display processed/r416bfzs.fits 4
beep

### Notes on drawing slitlets

Skyview finding charts are 8' square; the fits files are 
300 pixels square.  Hence, platescale = 1.6 "/pix.

### Extract red

mv processed/r441b.fits J1431+3346+0.04r.lamp.fits

apall J1431+3346+0.04r.fringe
apall J1431+3346+0.04r.sky refer=J1431+3346+0.04r.fringe int- rec- tra- back- fit-
apall J1431+3346+0.04r.lamp refer=J1431+3346+0.04r.fringe int- rec- tra- back- fit-

splot J1431+3346+0.04r.fringe.ms
splot J1431+3346+0.04r.sky.ms
splot J1431+3346+0.04r.lamp.ms

identify J1431+3346+0.04r.lamp.ms
reidentify lamp_r.ms J1431+3346+0.04r.lamp.ms

refspec J1431+3346+0.04r.sky.ms refer=J1431+3346+0.04r.lamp.ms
dispcor J1431+3346+0.04r.sky.ms J1431+3346+0.04r.sky.w
splot J1431+3346+0.04r.sky.w
specshift J1431+3346+0.04r.sky.w

refspec J1431+3346+0.04r.fringe.ms refer=J1431+3346+0.04r.lamp.ms
dispcor J1431+3346+0.04r.fringe.ms J1431+3346+0.04r.fringe.w
specshift J1431+3346+0.04r.sky.w
splot J1431+3346+0.04r.fringe.w

calibrate J1431+3346+0.04r.fringe.w J1431+3346+0.04r.fringe.f observa=lick sensiti=sens_02may_kastr.0001
splot J1431+3346+0.04r.fringe.f

### Extract blue

!cp /sleater/sdawson/lick/kast/02may/raw/b442.fits .
imcopy b442[1:1190,10:169] b442
!mv b442.fits J1431+3346+0.04b.lamp.fits

display J1431+3346+0.04b.lamp 1

apall J1431+3346+0.04b.fringe
apall J1431+3346+0.04b.sky refer=J1431+3346+0.04b.fringe int- rec- tra- back- fit-
apall J1431+3346+0.04b.lamp refer=J1431+3346+0.04b.fringe int- rec- tra- back- fit-

splot J1431+3346+0.04b.fringe.ms
splot J1431+3346+0.04b.sky.ms
splot J1431+3346+0.04b.lamp.ms

identify J1431+3346+0.04b.lamp.ms
# reidentify J1427+3431-1.22b.lamp.ms lamp_b.ms.fits
reidentify lamp_b.ms J1431+3346+0.04b.lamp.ms

refspec J1431+3346+0.04b.sky.ms reference=J1431+3346+0.04b.lamp.ms
dispcor J1431+3346+0.04b.sky.ms J1431+3346+0.04b.sky.w
splot J1431+3346+0.04b.sky.w
refspec J1431+3346+0.04b.fringe.ms reference=J1431+3346+0.04b.lamp.ms
dispcor J1431+3346+0.04b.fringe.ms J1431+3346+0.04b.fringe.w

calibrate J1431+3346+0.04b.fringe.w J1431+3346+0.04b.fringe.f observa=lick sensiti=sens_02may_kastb.0001
splot J1431+3346+0.04b.fringe.f

### Write out spectra

wspectext J1431+3346+0.04b.fringe.f[*,1,1] J1431+3346+0.04b.fringe.txt
calibrate J1431+3346+0.04b.sky.w J1431+3346+0.04b.sky.f observa=lick sensiti=sens_02may_kastb.0001
wspectext J1431+3346+0.04b.sky.f[*,1,1] J1431+3346+0.04b.sky.txt

wspectext J1431+3346+0.04r.fringe.f[*,1,1] J1431+3346+0.04r.fringe.txt
calibrate J1431+3346+0.04r.sky.w J1431+3346+0.04r.sky.f observa=lick sensiti=sens_02may_kastr.0001
wspectext J1431+3346+0.04r.sky.f[*,1,1] J1431+3346+0.04r.sky.txt

wspectext J1431+3346+0.04b.fringe.f[*,1,1] J1431+3346+0.04b.fringe_ap1.txt
wspectext J1431+3346+0.04b.fringe.f[*,2,1] J1431+3346+0.04b.fringe_ap2.txt
wspectext J1431+3346+0.04b.fringe.f[*,3,1] J1431+3346+0.04b.fringe_ap3.txt
wspectext J1431+3346+0.04b.fringe.f[*,4,1] J1431+3346+0.04b.fringe_ap4.txt

wspectext J1431+3346+0.04r.fringe.f[*,1,1] J1431+3346+0.04r.fringe_ap1.txt
wspectext J1431+3346+0.04r.fringe.f[*,2,1] J1431+3346+0.04r.fringe_ap2.txt
wspectext J1431+3346+0.04r.fringe.f[*,3,1] J1431+3346+0.04r.fringe_ap3.txt
wspectext J1431+3346+0.04r.fringe.f[*,4,1] J1431+3346+0.04r.fringe_ap4.txt