.compile derivedquant
.compile select_qas
.compile check_noplot

noscreen=0

rootdir='/b/segue2platedesign/august2008/'
cd, rootdir
yanny_read, 'seguetsDesignRun-0338-347.par', julydinfo
yanny_read, 'seguetsDesignRun-0321-0337.par', augdinfo

; do the platepair on stripe 1062 at l=31 first
; first is d337's redesign of d300 from aug08, then d338 redo of d301 from july08
select_all, (*augdinfo)[16], rootdir, 0.0, noscreen=noscreen
selectqas, (*augdinfo)[16], (*julydinfo)[0], rootdir, 0.0
select_all, (*julydinfo)[0], rootdir, 0.0, noscreen=noscreen

;d326 and d327
select_all, (*augdinfo)[5], rootdir, 0.0, noscreen=noscreen
selectqas, (*augdinfo)[5], (*augdinfo)[6], rootdir, 0.0
select_all, (*augdinfo)[6], rootdir, 0.0, noscreen=noscreen
;d328 and d329
select_all, (*augdinfo)[7], rootdir, 0.0, noscreen=noscreen
selectqas, (*augdinfo)[7], (*augdinfo)[8], rootdir, 0.0
select_all, (*augdinfo)[8], rootdir, 0.0, noscreen=noscreen
;d330 and d331
select_all, (*augdinfo)[9], rootdir, 0.0, noscreen=noscreen
selectqas, (*augdinfo)[9], (*augdinfo)[10], rootdir, 0.0
select_all, (*augdinfo)[10], rootdir, 0.0, noscreen=noscreen
;d332 and d333
select_all, (*augdinfo)[11], rootdir, 0.0, noscreen=noscreen
selectqas, (*augdinfo)[11], (*augdinfo)[12], rootdir, 0.0
select_all, (*augdinfo)[12], rootdir, 0.0, noscreen=noscreen

; these august plates need to have their QA files re-generated from existing SEGUE plates
;d334 
select_all, (*augdinfo)[13], rootdir, 0.0, casfileroot='seguetsCasObjAndFlatfileSpec', noscreen=noscreen
;d335
select_all, (*augdinfo)[14], rootdir, 0.0, noscreen=noscreen
; d321
select_all, (*augdinfo)[0], rootdir, 0.0, casfileroot='seguetsCasObjAndFlatfileSpec', noscreen=noscreen
; d322
select_all, (*augdinfo)[1], rootdir, 0.0, noscreen=noscreen
;d323
select_all, (*augdinfo)[2], rootdir, 0.0, casfileroot='seguetsCasObjAndFlatfileSpec', noscreen=noscreen


; now re-do plates from July, first other pairs that don't need QA files from existing plates
;d344 and d345, old d317 and d318
select_all, (*julydinfo)[6], rootdir, 0.0,  noscreen=noscreen
selectqas, (*julydinfo)[6], (*julydinfo)[7], rootdir, 0.0
select_all, (*julydinfo)[7], rootdir, 0.0,  noscreen=noscreen

; these need the Stetson fields re-written, too
; d346,d347 old d319,d320
select_all, (*julydinfo)[8], rootdir, 0.0,  noscreen=noscreen
selectqas, (*julydinfo)[8], (*julydinfo)[9], rootdir, 0.0
select_all, (*julydinfo)[9], rootdir, 0.0,  noscreen=noscreen
; do stetson stuff
calderivedquantities, (*julydinfo)[8], rootdir, infileroot='useCalibStetsonCasObj', outfileroot='useCalibStetsonCasObjAll', /nocheckspec
writestetsonplateinput, 'useCalibStetsonCasObjAll-0346-3146-0119.fits', (*julydinfo)[8], rootdir 
calderivedquantities, (*julydinfo)[9], rootdir, infileroot='useCalibStetsonCasObj', outfileroot='useCalibStetsonCasObjAll', /nocheckspec
writestetsonplateinput, 'useCalibStetsonCasObjAll-0347-3147-0120.fits', (*julydinfo)[9], rootdir 

; now the restof the July08 plates, should be 5 more.  all need qas re-written
; 
; d339
select_all, (*julydinfo)[1], rootdir, 0.0,  noscreen=noscreen
; d340
select_all, (*julydinfo)[2], rootdir, 0.0,  noscreen=noscreen, casfileroot='seguetsCasObjAndFlatfileSpec'
; d341
select_all, (*julydinfo)[3], rootdir, 0.0,  noscreen=noscreen, casfileroot='seguetsCasObjAndFlatfileSpec'
; d342
select_all, (*julydinfo)[4], rootdir, 0.0,  noscreen=noscreen
; d343
select_all, (*julydinfo)[5], rootdir, 0.0,  noscreen=noscreen