def fluxcalib_each(infile, outfile, sens, overwrite=False):
if not fi.check_version_f(infile):
return outfile, False
if os.path.isfile(outfile) and not overwrite:
print('\t Flux calibrated file already exits. ' + outfile)
print('\t This procedure is skipped.')
return outfile, True
if os.path.isfile(outfile) and overwrite:
try:
os.remove(outfile)
except:
pass
# Flux calibration
tempfile = iraf.mktemp('tmp_')
iraf.fluxcalib(infile, tempfile, sens, exposure='EXPTIME')
# Atmospheric extinction correction
iraf.extinct(tempfile, outfile, extinct=fi.filibdir + 'mkoextinct.dat')
# Changing BUNIT to 10^-20 erg/s/cm2/A
hdl = fits.open(outfile, mode='update')
hdl[0].data = hdl[0].data * 1e20
padding(hdl[0].data, blank=np.nan)
hdl[0].header['BUNIT'] = '1E-20 erg/s/cm2/A'
hdl.close()
try:
os.remove(tempfile + '.fits')
except:
pass
return outfile, True
def getfwhm(images='@imh.lis', coordlist='ref_stars', outfile='getfwhm.log',radius=4.0,buffer=7.0,width=5.0,rplot=15.0,center='no',verbose='no',imagelist=None,mode='al',DOLLARnargs=0,taskObj=None):
Vars = IrafParList('getfwhm')
Vars.addParam(makeIrafPar(images, datatype='string', name='images',mode='a',prompt='Input image(s)'))
Vars.addParam(makeIrafPar(coordlist, datatype='string', name='coordlist',mode='a',prompt='List of object positions'))
Vars.addParam(makeIrafPar(outfile, datatype='string', name='outfile',mode='a',prompt='Output file'))
Vars.addParam(makeIrafPar(radius, datatype='real', name='radius', mode='h',prompt='Object radius'))
Vars.addParam(makeIrafPar(buffer, datatype='real', name='buffer', mode='h',prompt='Background buffer width'))
Vars.addParam(makeIrafPar(width, datatype='real', name='width', mode='h',prompt='Background width'))
Vars.addParam(makeIrafPar(rplot, datatype='real', name='rplot', mode='h',prompt='Plotting radius'))
Vars.addParam(makeIrafPar(center, datatype='bool', name='center', mode='h',prompt='Center object in aperture?'))
Vars.addParam(makeIrafPar(verbose, datatype='bool', name='verbose',mode='h',prompt='Verbose output?'))
Vars.addParam(makeIrafPar(imagelist, datatype='struct', name='imagelist',list_flag=1,mode='h'))
Vars.addParam(makeIrafPar(mode, datatype='string', name='mode', mode='h'))
Vars.addParam(makeIrafPar(DOLLARnargs, datatype='int', name='$nargs',mode='h'))
Vars.addParam(makeIrafPar(None, datatype='int', name='len', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='image', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='imagefile',mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='imlist', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='coords', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='outputfile',mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='rad', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='buff', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='wid', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='rpl', mode='u'))
Vars.imlist = Vars.images
Vars.imagefile = iraf.mktemp('tmp$getfwhm')
iraf.sections(Vars.imlist, option = 'fullname', Stdout=Vars.imagefile)
Vars.imagelist = Vars.imagefile
Vars.coords = Vars.coordlist
Vars.outputfile = Vars.outfile
Vars.rad = Vars.radius
Vars.buff = Vars.buffer
Vars.wid = Vars.width
Vars.rpl = Vars.rplot
iraf.rimexam.radius = Vars.rad
iraf.rimexam.buffer = Vars.buff
iraf.rimexam.width = Vars.wid
iraf.rimexam.rplot = Vars.rpl
if (Vars.center == yes):
iraf.rimexam.center = yes
else:
iraf.rimexam.center = no
iraf.rimexam.fittype = 'gaussian'
iraf.rimexam.iterati = 1
iraf.clPrint('# RIMEXAM Parameter Settings: Radius=', Vars.rad,', Buffer=',Vars.buff,', Width=',Vars.wid,StdoutAppend=Vars.outputfile)
while (iraf.fscan(locals(), 'Vars.imagelist', 'Vars.image') != EOF):
Vars.len = iraf.strlen(Vars.image)
if (iraf.substr(Vars.image, Vars.len - 3, Vars.len) == '.imh'):
Vars.image = iraf.substr(Vars.image, 1, Vars.len - 4)
if (Vars.verbose):
iraf.clPrint('...processing ', Vars.image)
iraf.clPrint(Vars.image)
iraf.imexamine(Vars.image, logfile = Vars.outputfile, keeplog = yes,defkey = 'a',imagecur = Vars.coords,wcs = 'world',use_display = no)
def wirc_flatscale(infiles,inflat,outflat,clipfrac=0.03,
clobber=globclob):
# "infiles" is a list of filenames
inlist=','.join(infiles)
bpmfile=get_head(infiles[0],'BPM')
# Make a median combination of input files
imcmb1=iraf.mktemp("iqwircc")+".fits"
iraf.imcombine(inlist,imcmb1,combine="median",reject="none",
project=no,outtype="real",outlimits="",offsets="",
masktype="none",blank=0.0,scale="!SKYBKG",zero="none",
weight="none",statsec="",lthreshold="INDEF",
hthreshold="INDEF",nkeep=1)
[naxis1,naxis2]=get_head(imcmb1,['NAXIS1','NAXIS2'])
npixall=float(naxis1)*float(naxis2)
# Calculate sky background & divide, subtract 1
skybkg=wirc_sky(imcmb1,bpmfile)
imcmb2=iraf.mktemp("iqwircc")+".fits"
iraf.imarith(imcmb1,'/',skybkg,imcmb2,verbose=no,noact=no)
iraf.imdel(imcmb1,verify=no,go_ahead=yes)
iraf.imarith(imcmb2,'-',1.0,imcmb1,verbose=no,noact=no)
# Surface fit to median image
imsurf1=iraf.mktemp("iqwircs")+".fits"
iraf.imsurfit(imcmb1,imsurf1,xorder=6,yorder=6,type_output="fit",
function="chebyshev",cross_terms=yes,
xmedian=21,ymedian=21,median_percent=50.0,
lower=0.0,upper=0.0,ngrow=0,niter=0,
regions="all",rows="*",columns="*",border=50,
sections="",circle="",div_min="INDEF")
# Corresponding bad pixel mask
imbpm1=iraf.mktemp("iqwircb")+".pl"
iraf.imexpr("abs(x)>%.3f ? 0 : 1" % clipfrac,imbpm1,x=imsurf1)
# Subtract 1.0 from flatfield
imflat1=iraf.mktemp("iqwircf")+".fits"
iraf.imarith(inflat,'-',1.0,imflat1,verbose=no,noact=no)
# Surface fit to the flatfield
imsurf2=iraf.mktemp("iqwircs")+".fits"
iraf.imsurfit(imflat1,imsurf2,xorder=6,yorder=6,type_output="fit",
function="chebyshev",cross_terms=yes,
xmedian=21,ymedian=21,median_percent=50.0,
lower=0.0,upper=0.0,ngrow=0,niter=0,
regions="all",rows="*",columns="*",border=50,
sections="",circle="",div_min="INDEF")
# Corresponding bad pixel mask
imbpm2=iraf.mktemp("iqwircb")+".pl"
iraf.imexpr("abs(x)>%.3f ? 0 : 1" % clipfrac,imbpm2,x=imsurf2)
# Combine bad pixel masks for median + flat
imbpm3=iraf.mktemp("iqwircb")+".pl"
iraf.imexpr("(x>0 || y>0) ? 1 : 0",imbpm3,x=imbpm1,y=imbpm2)
# Calculate the ratio image
imratio=iraf.mktemp("iqwircr")+".fits"
iraf.imexpr("z>0 ? 0 : x/y",imratio,x=imsurf1,y=imsurf2,z=imbpm3)
# Mimstat on the ratio image
mimstat=iraf.mimstatistics(imratio,imasks=imbpm3,omasks="",
fields='image,npix,mean,stddev,min,max,mode',
lower='INDEF',upper='INDEF',nclip=4,
lsigma=5.0,usigma=5.0,binwidth=0.1,
format=no,Stdout=1,Stderr=1)
mimels=mimstat[0].split()
npix=float(mimels[1])
xmult=float(mimels[2])
# Check that a reasonable number of pixels have made the grade
check_exist(outflat,'w',clobber=clobber)
if npix<0.05*npixall:
print "Less than 5% of pixels passed the cut... preserving flatfield"
iraf.imcopy(inflat,outflat,verbose=no)
xmult=1.0
else:
# Create the final flatfield image
iraf.imexpr("x*%.3f + 1" % xmult,outflat,x=imflat1)
# Update header keywords
update_head(outflat,'RESCALE',1,"Flatfield has been rescaled")
update_head(outflat,'ORIGFLAT',inflat,
"Input flatfield name (before rescaling)")
update_head(outflat,'XMULT',xmult,
"Multiplied ORIGFLAT by this factor to rescale")
# Clean up
iraf.imdel(imcmb1,verify=no,go_ahead=yes)
iraf.imdel(imcmb2,verify=no,go_ahead=yes)
iraf.imdel(imsurf1,verify=no,go_ahead=yes)
iraf.imdel(imsurf2,verify=no,go_ahead=yes)
iraf.imdel(imbpm1,verify=no,go_ahead=yes)
iraf.imdel(imbpm2,verify=no,go_ahead=yes)
iraf.imdel(imbpm3,verify=no,go_ahead=yes)
iraf.imdel(imflat1,verify=no,go_ahead=yes)
iraf.imdel(imratio,verify=no,go_ahead=yes)
def saofocus(inpat,prepfile=yes,endhow="never",endwhen="",
clobber=globclob,verbose=globver):
""" derive best focus from an SAOFOCUS run on P60 """
# Defaults
twait=30
reduced={}
bpmname="BPM.pl"
saokey="IMGTYPE"
saore="SAOFOCUS"
fseqkey="SAOFVALS"
sigma=2.0
satval=50000.0
masksfx="mask"
pix=0.3787 # arcsec per pixel
mindiff=2 # minimum tolerable diff b/ best and worst seeing (pix)
# Parse end-condition "time"
if endhow=="time":
re1=re.search("^(\d+):(\d+)",endwhen)
if re1:
tnow=time.gmtime()
# Force UT calculation w/ ignoring of DST issues
reftime=time.mktime([tnow[0],tnow[1],tnow[2],
int(re1.group(1)),int(re1.group(2)),0,
tnow[6],tnow[7],0]) - time.timezone
if reftime<time.time():
reftime+=86400
if verbose:
print "Running until %s" % \
time.strftime("%d %b %H:%M",time.gmtime(reftime))
else:
print "Failed to parse %s as UT time" % endwhen
print "Running until stopped..."
endhow="never"
##################################################
# Big Loop
done=no
while not done:
# Parse inputs
allfiles=glob.glob(inpat)
newfiles=[]
for image in allfiles:
if not reduced.has_key(image):
# Interested only in SAOFOCUS images
saoval=get_head(image,saokey)
if re.search(saore,saoval,re.I):
reduced[image]=no
newfiles.append(image)
else:
# Skip
reduced[image]=yes
for image in newfiles:
if verbose:
print "Processing new SAOFOCUS image %s" % image
# Only attempt reduction once for each image
reduced[image]=yes
# Demosaic
ccdproc=iraf.ccdproc
ccdproc.overscan=yes
ccdproc.trim=yes
ccdproc.zerocor=no
iraf.iqmosaic(image,outpfx="",biassec="!BIASSEC",
trimsec="!TRIMSEC",joinkeys="DETSEC",
splitkeys="AMPSEC,CCDSEC,TRIM,OVERSCAN",
clobber=yes,verbose=verbose)
# Fix the WCS that IRAF has now clobbered
iraf.add_wcs(image,instrument="p60new")
# Get some important keywords
[raoff,decoff,saonseq,saoshift] = \
get_head(image,['RAOFF','DECOFF','NUMFOC',
'SAOSHIFT'])
# Type conversions
saonseq=int(saonseq)
saoshift=float(saoshift)
# No bias-subtraction or flat-fielding
# Subtract stair-step background if requested
if prepfile:
qtmp=iraf.mktemp("saofoc")+".fits"
iraf.imcopy(image,qtmp,verbose=no)
for iamp in [-1,1]:
for istep in range(saonseq):
qsec=iraf.mktemp("saofsc")+".fits"
y1=1024+iamp*(1+istep*saoshift)+max(0,iamp)
y2=y1+iamp*(saoshift-1)
if istep==0:
y1-=iamp
elif istep==saonseq-1:
y2=1+max(0,iamp)*2047
ymin=min(y1,y2)
ymax=max(y1,y2)
statsec='[*,%d:%d]' % (ymin,ymax)
iraf.iterstat(image+statsec,nsigrej=5,
maxiter=10,prin=no,verbose=no)
medreg=float(iraf.iterstat.median)
iraf.imarith(image+statsec,'-',medreg,
qsec,verbose=no,noact=no)
iraf.imcopy(qsec,qtmp+statsec,verbose=no)
iraf.imdel(qsec,verify=no,go_ahead=yes)
iraf.imdel(image,verify=no,go_ahead=yes)
iraf.imrename(qtmp,image,verbose=no)
# No renaming of the file
# No Bad Pixel Masking or rudimentary WCS
# Object-detection
doobj=1
if check_head(image,'STARFILE'):
if os.path.exists(get_head(image,'STARFILE')):
doobj=0
if doobj:
iraf.iqobjs(image,sigma,satval,skyval="0.0",
masksfx=masksfx,wtimage="none",minlim=no,
clobber=yes,verbose=verbose)
# Establish our "region of interest" for pixels
pixrough=800
pixminx=1024-float(decoff)/pix-pixrough/2
pixmaxx=pixminx+pixrough
pixmaxy=1023
pixminy=pixmaxy-float(raoff)/pix-(1+saonseq)*saoshift-pixrough/2
# The array of focus positions (from low Y to high Y)
farrkeys=[]
for i in range(saonseq):
farrkeys.append("SAOFOC%02d" % (i+1))
farr=get_head(image,farrkeys)
# Starlist from Sextractor
starfile=get_head(image,'STARFILE')
stars=Starlist(starfile)
stars.mag_sort()
# Find some of the stars in the sequence
xvals=[]
yvals=[]
good1=[]
for star in stars:
# We're going in order from bright to faint
if star.xval>pixminx and star.xval<pixmaxx and \
star.yval<pixmaxy and star.yval>pixminy and \
star.elong<3:
good1.append(star)
xvals.append(star.xval)
yvals.append(star.yval)
if len(good1)>=1.2*saonseq:
break
# Sanity checking
if len(xvals)<1:
print "No stars found in search region"
update_head(image,'SAOFOCUS',0,
"saofocus processing failed for this image")
continue
# Guess for x is median of the xvals of the goodstars
xctr=median(xvals,pick=1)
# First guess for y is median of the goodstars that fall
# within +/- (pixfine) pix of this X value
pixfine=8
yval2=[]
good2=[]
for star in good1:
if abs(star.xval-xctr)<pixfine:
good2.append(star)
yval2.append(star.yval)
# Sanity checking
if len(yval2)<1:
print "No stars found in refined search region"
update_head(image,'SAOFOCUS',0,
"saofocus processing failed for this image")
continue
yctr=median(yval2,pick=1)
# This will be our reference star
usestar=good2[yval2.index(yctr)]
[refx,refy]=[usestar.xval,usestar.yval]
# Identify additional stars, working out from the
# reference star
usestars=[usestar]
# Search increasing & decreasing in Y
# (we use a bigger box in Y, and correct for the last star
# position, because of potential for tracking errors)
for isgn in [+1,-1]:
shifty=refy
for i in range(1,saonseq):
shifty += isgn*saoshift
tgtstars=stars.starsinbox([[refx-pixfine,refx+pixfine],
[shifty-1.5*pixfine,
shifty+1.5*pixfine]])
if len(tgtstars)>0:
minmag=99.99
# Pick the brightest in the box
for tstar in tgtstars:
if tstar.mag<minmag:
svstar=tstar
minmag=tstar.mag
usestars.append(svstar)
shifty=svstar.yval
else:
# Quit searching when there are no stars in box
break
# Exclude faint stars if we have too many
# (could also drop stars until we reach the number, but
# then we would want to check that all the y-values are in
# strict succession...)
magrough=2.0
if len(usestars)>saonseq:
usemags=[]
for star in usestars:
usemags.append(star.mag)
minmag=min(usemags)
use2=[]
for star in usestars:
if star.mag<minmag+magrough:
use2.append(star)
if len(use2)==saonseq:
usestars=use2
# Check for the right number
if len(usestars)!=saonseq:
print "Failed to get right number of target stars"
update_head(image,'SAOFOCUS',0,
"saofocus processing failed for this image")
continue
# Construct the array of x- and y-values
xval3=[]
yval3=[]
for star in usestars:
xval3.append(star.xval)
yval3.append(star.yval)
# Choose a single x-value for the run
xctr2="%.3f" % median(xval3)
# Increasing y-value means increasing index in farr
yval3.sort()
ylis=','.join(map(str,yval3))
flis=','.join(map(str,farr))
# Run iqfocus
iraf.iqfocus(image,xctr2,ylis,flis,method="acorr",
boxsize=saoshift,focuskey="BESTFOC",
seekey="SEEING",fseekey="SAOSEE",
update=yes,clobber=yes,verbose=verbose)
# Check for successful iqfocus run
if not check_head(image,'BESTFOC'):
print "iqfocus run failed to find good focus"
update_head(image,'SAOFOCUS',0,
"saofocus processing failed for this image")
continue
# Grab focus positions and seeing values
bestfoc,saosee=get_head(image,['BESTFOC','SAOSEE'])
# Some information
if verbose:
print "Focus settings: "+flis
print "Seeing values: "+saosee
print "Best focus: %.3f" % bestfoc
# Check for best-focus "near edge" condition
for i in range(saonseq):
if ("%.3f" % bestfoc)==("%.3f" % float(farr[i])):
ibest=i
break
if (saonseq>3 and (ibest==0 or ibest==saonseq-1)) or \
(saonseq>5 and (ibest==1 or ibest==saonseq-2)):
update_head(image,'SAOEDGE',1,
"Best seeing is near edge of focus run")
# Check for insufficient variation across the focus run
maxsee=0
minsee=0.5*saoshift
saoseevals=eval(saosee)
for seeval in saoseevals:
minsee=min(minsee,seeval)
maxsee=max(maxsee,seeval)
if (maxsee-minsee) < mindiff:
print "Failed to observe significant variation "+\
"across focus run"
update_head(image,'SAOFOCUS',0,
"saofocus processing failed for this image")
continue
# Convert seeing value to arcsec
seepix=get_head(image,'SEEPIX')
update_head(image,'BESTSEE',seepix,
"Best seeing in pixels for this series")
try:
seeasec=float(seepix)*pix
update_head(image,'SEEING',seeasec,
"Best seeing in arcsec for this series")
except:
print "Failed to convert seeing to arcsec for %s" % image
# Successful processing
update_head(image,'SAOFOCUS',1,
"saofocus processing succeeded for this image")
##############################
# Test end conditions
if endhow=="never":
done=no
elif endhow=="once":
done=yes
elif endhow=="time":
if time.time()>reftime:
done=yes
# Wait a little while
if not done:
time.sleep(twait)
def fastfocus(inpat,
prepfile=yes,
endhow="never",
endwhen="",
clobber=globclob,
verbose=globver):
""" derive best focus from an SAOFOCUS run on P60 """
# Defaults
twait = 30
reduced = {}
bpmname = "BPM.pl"
saokey = "IMGTYPE"
saore = "SAOFOCUS"
fseqkey = "SAOFVALS"
sigma = 10.0
satval = 50000.0
masksfx = "mask"
pix = 0.3787 # arcsec per pixel
mindiff = 2 # minimum tolerable diff b/ best and worst seeing (pix)
# Parse end-condition "time"
if endhow == "time":
re1 = re.search("^(\d+):(\d+)", endwhen)
if re1:
tnow = time.gmtime()
# Force UT calculation w/ ignoring of DST issues
reftime = time.mktime([
tnow[0], tnow[1], tnow[2],
int(re1.group(1)),
int(re1.group(2)), 0, tnow[6], tnow[7], 0
]) - time.timezone
if reftime < time.time():
reftime += 86400
if verbose:
print "Running until %s" % \
time.strftime("%d %b %H:%M",time.gmtime(reftime))
else:
print "Failed to parse %s as UT time" % endwhen
print "Running until stopped..."
endhow = "never"
# Open fake OCS
fakeocs = ocs_ooriented(TEST=1)
fakeocs.read_foctable()
##################################################
# Big Loop
done = no
while not done:
# Parse inputs
allfiles = glob.glob(inpat)
newfiles = []
for image in allfiles:
if not reduced.has_key(image):
# Interested only in SAOFOCUS images
saoval = get_head(image, saokey)
if re.search(saore, saoval, re.I):
reduced[image] = no
newfiles.append(image)
else:
# Skip
reduced[image] = yes
for image in newfiles:
if verbose:
print "Processing new SAOFOCUS image %s" % image
# Only attempt reduction once for each image
reduced[image] = yes
# Demosaic
ccdproc = iraf.ccdproc
ccdproc.overscan = yes
ccdproc.trim = yes
ccdproc.zerocor = no
iraf.iqmosaic(image,
outpfx="",
biassec="!BIASSEC",
trimsec="!TRIMSEC",
joinkeys="DETSEC",
splitkeys="AMPSEC,CCDSEC,TRIM,OVERSCAN",
clobber=yes,
verbose=verbose)
# Fix the WCS that IRAF has now clobbered
iraf.add_wcs(image, instrument="p60new")
# Get some important keywords
[raoff,decoff,saonseq,saoshift] = \
get_head(image,['RAOFF','DECOFF','NUMFOC',
'SAOSHIFT'])
# Type conversions
saonseq = int(saonseq)
saoshift = float(saoshift)
# No bias-subtraction or flat-fielding
# Subtract stair-step background if requested
if prepfile:
qtmp = iraf.mktemp("saofoc") + ".fits"
iraf.imcopy(image, qtmp, verbose=no)
for iamp in [-1, 1]:
for istep in range(saonseq):
qsec = iraf.mktemp("saofsc") + ".fits"
y1 = 1024 + iamp * (1 + istep * saoshift) + max(
0, iamp)
y2 = y1 + iamp * (saoshift - 1)
if istep == 0:
y1 -= iamp
elif istep == saonseq - 1:
y2 = 1 + max(0, iamp) * 2047
ymin = min(y1, y2)
ymax = max(y1, y2)
statsec = '[*,%d:%d]' % (ymin, ymax)
iraf.iterstat(image + statsec,
nsigrej=5,
maxiter=10,
prin=no,
verbose=no)
medreg = float(iraf.iterstat.median)
iraf.imarith(image + statsec,
'-',
medreg,
qsec,
verbose=no,
noact=no)
iraf.imcopy(qsec, qtmp + statsec, verbose=no)
iraf.imdel(qsec, verify=no, go_ahead=yes)
iraf.imdel(image, verify=no, go_ahead=yes)
iraf.imrename(qtmp, image, verbose=no)
# No renaming of the file
# No Bad Pixel Masking or rudimentary WCS
# Object-detection
doobj = 1
if check_head(image, 'STARFILE'):
if os.path.exists(get_head(image, 'STARFILE')):
doobj = 0
if doobj:
iraf.iqobjs(image,
sigma,
satval,
skyval="0.0",
masksfx=masksfx,
wtimage="none",
minlim=no,
clobber=yes,
verbose=verbose)
# Establish our "region of interest" for pixels
pixrough = 800
pixminx = 1024 - float(decoff) / pix - pixrough / 2
pixmaxx = pixminx + pixrough
pixmaxy = 1023
pixminy = pixmaxy - float(raoff) / pix - (
1 + saonseq) * saoshift - pixrough / 2
# The array of focus positions (from low Y to high Y)
farrkeys = []
for i in range(saonseq):
farrkeys.append("SAOFOC%02d" % (i + 1))
farr = get_head(image, farrkeys)
# Starlist from Sextractor
starfile = get_head(image, 'STARFILE')
stars = Starlist(starfile)
stars.mag_sort()
# Find some of the stars in the sequence
xvals = []
yvals = []
good1 = []
for star in stars:
# We're going in order from bright to faint
if star.xval>pixminx and star.xval<pixmaxx and \
star.yval<pixmaxy and star.yval>pixminy and \
star.elong<3:
good1.append(star)
xvals.append(star.xval)
yvals.append(star.yval)
if len(good1) >= 1.2 * saonseq:
break
# Sanity checking
if len(xvals) < 1:
print "No stars found in search region"
update_head(image, 'SAOFOCUS', 0,
"saofocus processing failed for this image")
continue
# Guess for x is median of the xvals of the goodstars
xctr = median(xvals, pick=1)
# First guess for y is median of the goodstars that fall
# within +/- (pixfine) pix of this X value
#pixfine=10
pixfine = 20
yval2 = []
good2 = []
for star in good1:
if abs(star.xval - xctr) < pixfine:
good2.append(star)
yval2.append(star.yval)
# Sanity checking
if len(yval2) < 1:
print "No stars found in refined search region"
update_head(image, 'SAOFOCUS', 0,
"saofocus processing failed for this image")
continue
yctr = median(yval2, pick=1)
# This will be our reference star
usestar = good2[yval2.index(yctr)]
[refx, refy] = [usestar.xval, usestar.yval]
# Identify additional stars, working out from the
# reference star
usestars = [usestar]
# Search increasing & decreasing in Y
# (we use a bigger box in Y, and correct for the last star
# position, because of potential for tracking errors)
for isgn in [+1, -1]:
shifty = refy
for i in range(1, saonseq):
shifty += isgn * saoshift
tgtstars = stars.starsinbox(
[[refx - pixfine, refx + pixfine],
[shifty - pixfine, shifty + pixfine]])
#[shifty-1.5*pixfine,
#shifty+1.5*pixfine]])
if len(tgtstars) > 0:
minmag = 99.99
# Pick the brightest in the box
for tstar in tgtstars:
if tstar.mag < minmag:
svstar = tstar
minmag = tstar.mag
usestars.append(svstar)
shifty = svstar.yval
else:
# Quit searching when there are no stars in box
break
# Exclude faint stars if we have too many
# (could also drop stars until we reach the number, but
# then we would want to check that all the y-values are in
# strict succession...)
magrough = 2.0
if len(usestars) > saonseq:
usemags = []
for star in usestars:
usemags.append(star.mag)
minmag = min(usemags)
use2 = []
for star in usestars:
if star.mag < minmag + magrough:
use2.append(star)
if len(use2) == saonseq:
usestars = use2
# Check for the right number
if len(usestars) != saonseq:
print "Failed to get right number of target stars"
update_head(image, 'SAOFOCUS', 0,
"saofocus processing failed for this image")
continue
# Construct the array of x- and y-values
xval3 = []
yval3 = []
for star in usestars:
xval3.append(star.xval)
yval3.append(star.yval)
# Choose a single x-value for the run
xctr2 = "%.3f" % median(xval3)
# Increasing y-value means increasing index in farr
yval3.sort()
ylis = ','.join(map(str, yval3))
flis = ','.join(map(str, farr))
# Run iqfocus
iraf.iqfocus(image,
xctr2,
ylis,
flis,
method="acorr",
boxsize=saoshift,
focuskey="BESTFOC",
seekey="SEEPIX",
fseekey="SAOSEE",
update=yes,
clobber=yes,
verbose=verbose)
# Check for successful iqfocus run
if not check_head(image, 'BESTFOC'):
print "iqfocus run failed to find good focus"
update_head(image, 'SAOFOCUS', 0,
"saofocus processing failed for this image")
continue
# Grab focus positions and seeing values
bestfoc, saosee = get_head(image, ['BESTFOC', 'SAOSEE'])
# Some information
if verbose:
print "Focus settings: " + flis
print "Seeing values: " + saosee
print "Best focus: %.3f" % bestfoc
# Check for best-focus "near edge" condition
for i in range(saonseq):
if ("%.3f" % bestfoc) == ("%.3f" % float(farr[i])):
ibest = i
break
if (saonseq>3 and (ibest==0 or ibest==saonseq-1)) or \
(saonseq>5 and (ibest==1 or ibest==saonseq-2)):
update_head(image, 'SAOEDGE', 1,
"Best seeing is near edge of focus run")
# Check for insufficient variation across the focus run
maxsee = 0
minsee = 0.5 * saoshift
saoseevals = eval(saosee)
for seeval in saoseevals:
minsee = min(minsee, seeval)
maxsee = max(maxsee, seeval)
if (maxsee - minsee) < mindiff:
print "Failed to observe significant variation "+\
"across focus run"
update_head(image, 'SAOFOCUS', 0,
"saofocus processing failed for this image")
continue
# Convert seeing value to arcsec
seepix = get_head(image, 'SEEPIX')
update_head(image, 'BESTSEE', seepix,
"Best seeing in pixels for this series")
try:
seeasec = float(seepix) * pix
update_head(image, 'SEEING', seeasec,
"Best seeing in arcsec for this series")
except:
print "Failed to convert seeing to arcsec for %s" % image
# Successful processing
update_head(image, 'SAOFOCUS', 1,
"saofocus processing succeeded for this image")
# Get other necessary keywords
[filter, btubtemp, airmass] = get_head(image, \
['FILTER','BTUBTEMP','AIRMASS'])
# Update focus file
fakeocs.focus = [filter, bestfoc, float(btubtemp), float(airmass)]
fakeocs.write_foctable()
##############################
# Test end conditions
if endhow == "never":
done = no
elif endhow == "once":
done = yes
elif endhow == "time":
if time.time() > reftime:
done = yes
# Wait a little while
if not done:
time.sleep(twait)
def iqp60(inpat,endhow="never",endwhen="",focmode="all",
logfile="",clobber=globclob,verbose=globver):
""" intelligent processing of P60 data files """
# Defaults
twait=30
reduced={}
filtkey="FILTER"
biaskey="IMGTYPE"
biasre="BIAS"
biasroot="Bias"
biaspfx="b"
flatkey="IMGTYPE"
flatre="DOMEFLAT"
flatpre="Flat-"
flatpfx="f"
bpm0root="BPM0"
bpmroot="BPM"
binkey="CCDSUM"
detseckey="DETSEC"
binroikey="BINROI"
binroidef="A"
nfocus=10
focuskey="IMGTYPE"
focusre="^FOCUS"
fseqkey="FOCUSSEQ"
skipkey="IMGTYPE"
skipre="SAOFOCUS"
statsec=""
reqkeys=['IMGTYPE','OBJECT','FILTER','BINROI',
'CCDSUM','DETSEC','ROISEC']
sigma=3.0
minraw=0.0
maxraw=65535.0
satval=50000.0
masksfx="mask"
rawpix=0.3787
zptkey="ZEROPT"
zpukey="ZEROPTU"
# For now:
#catmags={'B':'BMAG','V':'BMAG','g':'BMAG',
# 'R':'RMAG','r':'RMAG','I':'IMAG',
# 'i':'IMAG','ip':'IMAG','z':'IMAG',
# 'zp':'IMAG','zl':'IMAG','zs':'IMAG'}
## In the future, once Sloan mags are written to the ubcone output:
catmags={'B':'BMAG','V':'VMAG','g':'GPMAG',
'R':'RMAG','r':'RPMAG','I':'IMAG',
'i':'IMAG','ip':'IPMAG','z':'ZPMAG',
'zp':'ZPMAG','zl':'ZPMAG','zs':'ZPMAG',
'upr':'UPMAG','gpr':'GPMAG','rpr':'RPMAG',
'ipr':'IPMAG','zpr':'ZPMAG'}
exptmkey="EXPTIME"
exptmstd=60.0
minzpts={}
minskys={}
fwhm0=1.5
gain=2.3
readn=7.5
crsfx="crm"
statfile="Status_Science.txt"
# Parse end-condition "time"
if endhow=="time":
re1=re.search("^(\d+):(\d+)",endwhen)
if re1:
tnow=time.gmtime()
# Force UT calculation w/ ignoring of DST issues
reftime=time.mktime([tnow[0],tnow[1],tnow[2],
int(re1.group(1)),int(re1.group(2)),0,
tnow[6],tnow[7],0]) - time.timezone
if reftime<time.time():
reftime+=86400
if verbose:
print "Running until %s" % \
time.strftime("%d %b %H:%M",time.gmtime(reftime))
else:
print "Failed to parse %s as UT time" % endwhen
print "Running until stopped..."
endhow="never"
# Parse focmode setting
fonly=0
if focmode=="nofocus":
skipre="FOCUS"
elif focmode=="focus":
fonly=1
skipre="SCIENCE"
# Parse logfile setting
if len(logfile)>0:
check_exist(logfile,'w',yes)
try:
log=open(logfile,'w')
sys.stdout=log
except:
print "Failed to open logfile %s for writing" % logfile
# Setup ccdproc options
ccdproc=iraf.ccdred.ccdproc
ccdproc.overscan=yes
ccdproc.trim=yes
ccdproc.zerocor=no
ccdproc.interactive=no
ccdproc.function="chebyshev"
ccdproc.order=3
ccdproc.sample="*"
ccdproc.naverage=3
ccdproc.niterate=2
ccdproc.low_reject=3.0
ccdproc.high_reject=3.0
ccdproc.grow=0.0
# Demosaic all the files
allfiles=glob.glob(inpat)
alllist=','.join(allfiles)
iraf.iqmosaic(alllist,outpfx="",biassec="!BIASSEC",
trimsec="!TRIMSEC",joinkeys="CCDSIZE,DETSEC,ROISEC",
splitkeys="AMPSEC,CCDSEC,TRIM,OVERSCAN,CCDPROC",
clobber=yes,verbose=verbose)
iraf.add_wcs(alllist,instrument="p60new",binkey=binkey)
# Set ccdproc params for bias-subtraction only
ccdproc.overscan=no
ccdproc.trim=no
ccdproc.zerocor=yes
# Determine if we need to make calibration files
dobias=no
doflats=no
for image in allfiles:
# Criteria for bias image
biasval,flatval=get_head(image,[biaskey,flatkey])
if re.search(biasre,biasval,re.I):
dobias=yes
reduced[image]=yes
elif re.search(flatre,flatval,re.I):
doflats=yes
reduced[image]=yes
# Calibrations
if (dobias or doflats) and not fonly:
iraf.iqcals(alllist,dobias=dobias,biasproc=no,
biaskey=biaskey,biasre=biasre,biasroot=biasroot,
doflats=doflats,flatproc=yes,flatkey=flatkey,
flatre=flatre,filtkey=filtkey,flatpre=flatpre,
flatscale="mode",statsec="",normflat=yes,
dobpm=no,bpmroot=bpmroot,classkey=binroikey,
classdef=binroidef,mosaic=no,
clobber=clobber,verbose=verbose)
# Delete binroi-specific BPMs and flatfields
oldbpms=glob.glob(bpmroot+'-'+'*.pl')
for oldbpm in oldbpms:
iraf.imdel(oldbpm,verify=no,go_ahead=yes)
oldflats=glob.glob(flatpre+'*-*.fits')
for oldflat in oldflats:
iraf.imdel(oldflat,verify=no,go_ahead=yes)
# Clip all flatfields and update BPM as we go
bpm0name=bpm0root+'.pl'
bpmname=bpmroot+'.pl'
if os.path.exists(bpmname):
check_exist(bpm0name,'w',clobber=yes)
iraf.imrename(bpmname,bpm0name,verbose=no)
allflats=glob.glob(flatpre+'*.fits')
for flatimg in allflats:
iraf.iqclip(flatimg,lthresh=0.75,hthresh=1.25,bookend=no,
replace=1.0,maskin=bpm0name,maskout=bpmname,
maskval=1,clobber=yes,verbose=no)
iraf.imdel(bpm0name,verify=no,go_ahead=yes)
iraf.imrename(bpmname,bpm0name,verbose=no)
update_head(flatimg,"CLIPFLAT",1,"Has flatfield been clipped?")
update_head(flatimg,"CLIPREPL",1.0,
"Replacement value for clipped pixels")
iraf.imrename(bpm0name,bpmname,verbose=no)
##################################################
# Lists of focusfiles
allfocus=[]
focusfiles=[]
# Should additional calibrations be taken later on...
biasfiles=[]
flatfiles=[]
# Big Loop
done=no
while not done:
# Parse inputs
allfiles=glob.glob(inpat)
newfiles=[]
for image in allfiles:
if not reduced.has_key(image):
# Exclude Bias & Flats
if re.search(biasroot,image,re.I) or \
re.search(flatpre,image,re.I):
reduced[image]=yes
continue
# Exclude calibration files (for now)
biasval,flatval=get_head(image,[biaskey,flatkey])
if re.search(biasre,biasval,re.I):
biasfiles.append(image)
reduced[image]=yes
elif re.search(flatre,flatval,re.I):
flatfiles.append(image)
reduced[image]=yes
# Exclude "skippable" files
skipval=get_head(image,skipkey)
if re.search(skipre,skipval,re.I):
reduced[image]=yes
# Queue file for processing
else:
reduced[image]=no
newfiles.append(image)
elif not reduced[image]:
# Attempted reduction before, but failed?
newfiles.append(image)
if newfiles:
# Brief pause to avoid file conflicts (?)
time.sleep(3.0)
# Demosaic
newlist=','.join(newfiles)
ccdproc.overscan=yes
ccdproc.trim=yes
ccdproc.zerocor=no
iraf.iqmosaic(newlist,outpfx="",biassec="!BIASSEC",
trimsec="!TRIMSEC",joinkeys="DETSEC",
splitkeys="AMPSEC,CCDSEC,TRIM,OVERSCAN",
clobber=yes,verbose=verbose)
iraf.add_wcs(newlist,instrument="p60new",binkey=binkey)
# Reset ccdproc params for bias-subtraction only
ccdproc.overscan=no
ccdproc.biassec=""
ccdproc.trim=no
ccdproc.trimsec=""
ccdproc.zerocor=yes
ccdproc.flatcor=no
##############################
# Process new images
for image in newfiles:
# Required keyword check
if not check_head(image,reqkeys):
print "Image %s is missing required keywords" % image
continue
# Attempt processing only once per image
reduced[image]=yes
if verbose:
print "Reducing new image %s" % image
# Track useful status information
scistat={}
# Prepare for processing
pix=rawpix
binroi=binroidef
biasname=biasroot+'.fits'
bpmname=bpmroot+'.pl'
filt=get_head(image,filtkey)
flatname=flatpre+filt+".fits"
# Calibration files for BINROI setting
if check_head(image,binroikey):
binroi=get_head(image,binroikey)
if binroi != binroidef:
# Get the right calibration files
fullbias=biasname
biasname=biasroot+'-'+binroi+'.fits'
fullbpm =bpmroot+'.pl'
bpmname =bpmroot+'-'+binroi+'.pl'
fullflat=flatname
flatname=flatpre+filt+'-'+binroi+".fits"
# Details of this binning/roi combo
[binval,detsec]=get_head(image,[binkey,detseckey])
binning=p60parsebin(binval)
roi=p60parseroi(detsec)
# Pixel scale (no anisotropic binning, sorry)
pix=binning[0]*rawpix
# Check for existance of bias; make it if we have to
if not os.path.exists(biasname):
print ("Failed to find bias for %s=%s; "+ \
"constructing one from full-frame bias") % \
(binroikey,binroi)
p60roiflat(fullbias,biasname,binning,roi)
# Produce the flatfield if necessary
if not os.path.exists(flatname):
p60roiflat(fullflat,flatname,binning,roi)
# Produce the bad-pixel mask if necessary
if not os.path.exists(bpmname):
# Get BPM into FITS format
bpm1=iraf.mktemp("iqbpm")+".fits"
iraf.imcopy(fullbpm,bpm1,verbose=no)
# Adjust BPM for binning/ROI
bpm2=iraf.mktemp("iqbpm")+".fits"
p60roibpm(bpm1,bpm2,binning,roi)
# Convert BPM to PL format
iraf.imcopy(bpm2,bpmname,verbose=no)
# Delete temporary files
iraf.imdel(bpm1,verify=no,go_ahead=yes)
iraf.imdel(bpm2,verify=no,go_ahead=yes)
# Bias subtraction
check_exist(biasname,"r")
ccdproc.zero=biasname
image1=biaspfx+image
check_exist(image1,'w',clobber)
iraf.ccdproc(image,output=image1,Stdout=1)
# Flatfielding
check_exist(flatname,"r")
iraf.iqflatten(image1,flatname,outpfx=flatpfx,
normflat=no,clipflat=no,
statsec=statsec,subsky=yes,
vignflat=no,clobber=yes,verbose=no)
imagef=flatpfx+image1
# Clip (bookend) flattened & sky-subtracted image
skybkg=float(get_head(image1,'SKYBKG'))
iraf.iqclip(image1,lthresh=minraw-skybkg,hthresh=maxraw-skybkg,
bookend=yes,maskin="",maskout="",clobber=yes,
verbose=no)
# Rename the file, if everything is well-behaved
reim=re.search('^%s%s(.+[^r])r?\.fits' % (flatpfx,biaspfx),
imagef,re.I)
if reim:
image2=reim.group(1)+'p.fits'
check_exist(image2,"w",yes)
iraf.imrename(imagef,image2,verbose=verbose)
else:
image2=imagef
# Set bad pixels to zero
update_head(image2,'BPM',bpmname,"Bad Pixel Mask")
iraf.iqmask(image2,mask='!BPM',method='constant',value='0.0',
clobber=yes,verbose=no)
# Defringing happens later, in bunches
# Cosmic Ray Rejection
tmpimg=iraf.mktemp("iqcr")+".fits"
check_exist("%s_%s.fits" % (image2[:15],crsfx),"w",clobber)
iraf.lacos_im(image2,tmpimg,"%s_%s.fits" % (image2[:15],crsfx),
gain=gain,readn=readn,skyval=skybkg,sigclip=4.5,
sigfrac=0.5,objlim=1.0,niter=1)
iraf.imdel(image2,verify=no,go_ahead=yes)
iraf.imcopy(tmpimg,image2,verbose=no)
iraf.imdel(tmpimg,verify=no,go_ahead=yes)
# Object-detection
if scistat.has_key("SEEING_%s" % file):
try:
fwhm=float(scistat["SEEING_%s" % file])
except:
fwhm=fwhm0
else:
fwhm=fwhm0
iraf.iqobjs(image2,sigma,satval,skyval="!SKYBKG",masksfx=masksfx,
wtimage="",fwhm=fwhm,pix=rawpix,aperture=2*fwhm/rawpix,
gain=gain,minlim=no,clobber=yes,verbose=no)
# Track some status information
nstars=get_head(image2,'NSTARS')
scistat['NSTARS']=nstars
if minskys.has_key(filt):
minsky=minskys[filt]
scistat["SKYBKG_%s" % filt]=skybkg/minsky
# Is it a focus frame?
focusval=get_head(image2,focuskey)
# Focus frame actions
if re.search(focusre,focusval,re.I):
focusfiles.append(image2)
# Find its place in the sequence
focusseq=get_head(image2,fseqkey)
ref=re.search("(\d+)of(\d+)",focusseq,re.I)
if ref:
ifocus=int(ref.group(1))
nfocus=int(ref.group(2))
# Non-focus frame actions
else:
# Make a new keyword for mosaic objects
objkey='OBJECT'
if check_head(image2,'MSCSIZE'):
mscsize=get_head(image2,'MSCSIZE')
mscdims=mscsize.split(',')
if int(mscdims[0])>1 or int(mscdims[1])>1:
object=get_head(image2,'OBJECT')
mscposn=get_head(image2,'MSCPOSN')
objmsc=object+'-'+mscposn
update_head(image2,'OBJMSC',objmsc,
'Object Name/Mosaic Position')
objkey='OBJMSC'
# Refine WCS (also calculates seeing in arcsec)
iraf.iqwcs(image2,objkey=objkey,rakey='RA',
deckey='DEC',pixtol=0.05,starfile='!STARFILE',
nstar=40,catalog='web',ubhost="localhost",
diffuse=yes,clobber=yes,verbose=verbose,
nstarmax=40)
# Retry if unsuccessful
if not check_head(image2,'IQWCS'):
iraf.iqwcs(image2,objkey=objkey,rakey='RA',
deckey='DEC',pixtol=0.05,starfile="!STARFILE",
nstar=40,catalog='web',ubhost="localhost",
diffuse=yes,clobber=yes,verbose=verbose,
nstarmax=1000)
# Calculate further quantities if WCS was successful
extinct='INDEF'
if check_head(image2,'IQWCS'):
scistat['WCSGOOD'] = 1
scistat["SEEING_%s" % filt]=get_head(image2,'SEEING')
[rapt,dcpt,lenx,leny]=get_head(image2,
['RA','DEC','NAXIS1','NAXIS2'])
[[ractr,dcctr]]=impix2wcs(image2,0.5*(1+float(lenx)),
0.5*(1+float(leny)))
coopt=astrocoords(rapt,dcpt)
cooctr=astrocoords(ractr,dcctr)
[offra,offdc]=radecdiff(coopt.radeg(),coopt.dcdeg(),
cooctr.radeg(),cooctr.dcdeg())
update_head(image2,'PTOFFSET',"%.2f %.2f" % \
(offra,offdc),
"Offset from nominal pointing (arcsec)")
scistat['PTOFFSET']="%.2f,%.2f" % (offra,offdc)
# Get zero-point against SDSS/NOMAD/USNO-B
if catmags.has_key(filt):
if check_head(image2,'OBJMSC'):
object=get_head(image2,'OBJMSC')
else:
object=get_head(image2,'OBJECT')
zpcat=""
# See if attempt already made for SDSS
if not (os.path.exists("%s.sdss" % object)):
getsdss(image2, "%s.sdss" % object)
# If successful, set to SDSS
sdssfile=open("%s.sdss" % object)
if (len(sdssfile.readlines())>2):
catalog="%s.sdss" % object
zpcat="SDSS"
# If SDSS unsuccessful, update USNO-B
if not zpcat:
update_usnob("%s.cat" % object,
outfile="%s.reg" % object)
catalog="%s.reg" % object
zpcat="USNO-B"
# Update image header
update_head(image2,"ZPCAT",zpcat)
# Run the zeropoint calculation
iraf.iqzeropt(image2,catmags[filt],
starfile="!STARFILE",catalog=catalog,
pixtol=3.0,useflags=yes,maxnum=50,
method="mean",rejout=1,fencelim=0.50,
sigma=1.5,maxfrac=0.25,
zptkey=zptkey,zpukey=zpukey,
clobber=yes,verbose=verbose)
# Use that to get an extinction estimate
zeropt,zeroptu,exptime=get_head(image2,[zptkey,
zpukey,exptmkey])
zeropt=float(zeropt)
zeroptu=float(zeroptu)
exptime=float(exptime)
scistat["ZEROPT_%s" % filt] = \
zeropt - 2.5*math.log10(exptime/exptmstd)
if minzpts.has_key(filt):
extinct = zeropt - \
2.5*math.log10(exptime/exptmstd) - \
minzpts[filt]
scistat["EXTINCT_%s" % filt]=extinct
# Fix the SEEING keyword if WCS fit was not successful
else:
scistat['WCSGOOD'] = 0
try:
seepix=float(get_head(image2,'SEEPIX'))
seeing= "%.3f" % (pix*seepix)
except:
seeing='INDEF'
update_head(image2,'SEEING',seeing,
"Estimated seeing in arcsec or INDEF")
# Write Archive Keywords
update_head(image2,'PROCESSD',1,
"Image has been processed by iqp60")
update_head(image2,'PROCVER',version,
"Version number of iqp60 used")
update_head(image2,'EXTINCT',extinct,
"Estimated mags extinction or INDEF")
update_head(image2,'PROCPROB','None',
"Problems encountered in iqp60 processing")
# Update status file
p60status(statfile,image2,scistat)
# Clean up
check_exist(image1,"w",yes)
##############################
# If a set of focus images have been processed, find best focus
if len(focusfiles)>=nfocus:
print "%d focus images have been processed" % len(focusfiles)
# Pick a starfile
focusfiles.sort()
medfile=focusfiles[len(focusfiles)/2]
starfile=get_head(medfile,'STARFILE')
# Update seeing values in all images based on good
# stars in the starfile.
ffiles=','.join(focusfiles)
iraf.iqseeing(ffiles,stars=starfile,
seekey="SEEING",method="acorr",useflags=yes,
skipstars=0,usestars=10,boxsize=64,
strictbox=no,imgsec="[940:1980,64:1980]",
update=yes,clobber=yes,verbose=no)
# Grab focus positions and seeing values
focx=[]
focy=[]
for image in focusfiles:
[fpos,seep]=list2float(get_head(image,['FOCUSPOS','SEEING']))
fpos=float(fpos)
seep=float(seep)
focx.append(fpos)
pix=rawpix
if check_head(image,binkey):
binval=get_head(image,binkey)
binels=binval.split()
binning=[int(binels[0]),int(binels[1])]
# Let's hope we don't ever do asymmetric binning
pix=binning[0]*rawpix
focy.append(pix*seep)
update_head(image,'SEEING',pix*seep,
"Estimated seeing in arcsec")
# Choose best-seeing as minimum of these
bestsee=min(focy)
bestfoc=focx[focy.index(bestsee)]
# This was too much verbosity for Brad
if verbose and 0:
print "Focus settings: "+liststr(focx,"%.2f")
print "Seeing values: "+liststr(focy,"%.1f")
print
print "Best focus: %.2f" % bestfoc
# Expunge the focusfiles list
allfocus.append(focusfiles)
focusfiles=[]
##############################
# Test end conditions
if endhow=="never":
done=no
elif endhow=="once":
done=yes
elif endhow=="time":
if time.time()>reftime:
done=yes
# Wait a little while
if not done:
time.sleep(twait)
def mscimage(input=None, output=None, format='image', pixmask=no,verbose=')_.verbose',wcssource='image',reference='',ra=INDEF,dec=INDEF,scale=INDEF,rotation=INDEF,blank=0.0,interpolant='poly5',minterpolant='linear',boundary='reflect',constant=0.0,fluxconserve=no,ntrim=8,nxblock=INDEF,nyblock=INDEF,interactive=no,nx=10,ny=20,fitgeometry='general',xxorder=4,xyorder=4,xxterms='half',yxorder=4,yyorder=4,yxterms='half',fd_in='',fd_ext='',fd_coord='',mode='ql',DOLLARnargs=0,taskObj=None):
Vars = IrafParList('mscimage')
Vars.addParam(makeIrafPar(input, datatype='string', name='input', mode='a',prompt='List of input mosaic exposures'))
Vars.addParam(makeIrafPar(output, datatype='string', name='output',mode='a',prompt='List of output images'))
Vars.addParam(makeIrafPar(format, datatype='string', name='format',enum=['image', 'mef'],mode='h',prompt='Output format (image|mef)'))
Vars.addParam(makeIrafPar(pixmask, datatype='bool', name='pixmask',mode='h',prompt='Create pixel mask?'))
Vars.addParam(makeIrafPar(verbose, datatype='bool', name='verbose',mode='h',prompt='Verbose output?\n\n# Output WCS parameters'))
Vars.addParam(makeIrafPar(wcssource, datatype='string', name='wcssource',enum=['image', 'parameters', 'match'],mode='h',prompt='Output WCS source (image|parameters|match)'))
Vars.addParam(makeIrafPar(reference, datatype='file', name='reference',mode='h',prompt='Reference image'))
Vars.addParam(makeIrafPar(ra, datatype='real', name='ra', max=24.0,min=0.0,mode='h',prompt='RA of tangent point (hours)'))
Vars.addParam(makeIrafPar(dec, datatype='real', name='dec', max=90.0,min=-90.0,mode='h',prompt='DEC of tangent point (degrees)'))
Vars.addParam(makeIrafPar(scale, datatype='real', name='scale', mode='h',prompt='Scale (arcsec/pixel)'))
Vars.addParam(makeIrafPar(rotation, datatype='real', name='rotation',max=360.0,min=-360.0,mode='h',prompt='Rotation of DEC from N to E (degrees)\n\n# Resampling parmeters'))
Vars.addParam(makeIrafPar(blank, datatype='real', name='blank', mode='h',prompt='Blank value'))
Vars.addParam(makeIrafPar(interpolant, datatype='string',name='interpolant',mode='h',prompt='Interpolant for data'))
Vars.addParam(makeIrafPar(minterpolant, datatype='string',name='minterpolant',mode='h',prompt='Interpolant for mask'))
Vars.addParam(makeIrafPar(boundary, datatype='string', name='boundary',enum=['nearest', 'constant', 'reflect', 'wrap'],mode='h',prompt='Boundary extension'))
Vars.addParam(makeIrafPar(constant, datatype='real', name='constant',mode='h',prompt='Constant boundary extension value'))
Vars.addParam(makeIrafPar(fluxconserve, datatype='bool',name='fluxconserve',mode='h',prompt='Preserve flux per unit area?'))
Vars.addParam(makeIrafPar(ntrim, datatype='int', name='ntrim', min=0,mode='h',prompt='Edge trim in each extension'))
Vars.addParam(makeIrafPar(nxblock, datatype='int', name='nxblock',mode='h',prompt='X dimension of working block size in pixels'))
Vars.addParam(makeIrafPar(nyblock, datatype='int', name='nyblock',mode='h',prompt='Y dimension of working block size in pixels\n\n# Geometric mapping parameters'))
Vars.addParam(makeIrafPar(interactive, datatype='bool', name='interactive',mode='h',prompt='Fit mapping interactively?'))
Vars.addParam(makeIrafPar(nx, datatype='int', name='nx', mode='h',prompt='Number of x grid points'))
Vars.addParam(makeIrafPar(ny, datatype='int', name='ny', mode='h',prompt='Number of y grid points'))
Vars.addParam(makeIrafPar(fitgeometry, datatype='string',name='fitgeometry',enum=['shift', 'xyscale', 'rotate', 'rscale', 'rxyscale', 'general'],mode='h',prompt='Fitting geometry'))
Vars.addParam(makeIrafPar(xxorder, datatype='int', name='xxorder', min=2,mode='h',prompt='Order of x fit in x'))
Vars.addParam(makeIrafPar(xyorder, datatype='int', name='xyorder', min=2,mode='h',prompt='Order of x fit in y'))
Vars.addParam(makeIrafPar(xxterms, datatype='string', name='xxterms',mode='h',prompt='X fit cross terms type'))
Vars.addParam(makeIrafPar(yxorder, datatype='int', name='yxorder', min=2,mode='h',prompt='Order of y fit in x'))
Vars.addParam(makeIrafPar(yyorder, datatype='int', name='yyorder', min=2,mode='h',prompt='Order of y fit in y'))
Vars.addParam(makeIrafPar(yxterms, datatype='string', name='yxterms',mode='h',prompt='Y fit cross terms type\n\n'))
Vars.addParam(makeIrafPar(fd_in, datatype='struct', name='fd_in',list_flag=1,mode='h',prompt=''))
Vars.addParam(makeIrafPar(fd_ext, datatype='struct', name='fd_ext',list_flag=1,mode='h',prompt=''))
Vars.addParam(makeIrafPar(fd_coord, datatype='struct', name='fd_coord',list_flag=1,mode='h',prompt=''))
Vars.addParam(makeIrafPar(mode, datatype='string', name='mode', mode='h',prompt=''))
Vars.addParam(makeIrafPar(DOLLARnargs, datatype='int', name='$nargs',mode='h'))
Vars.addParam(makeIrafPar(None, datatype='file', name='in', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='out', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='ref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='pl', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='image', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='trimsec', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='outsec', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='plsec', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='inlists', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='extlist', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='pllist', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='coord', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='db', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='wcsref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='outtemp', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='pltemp', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nc', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nl', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='ncref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nlref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='cmin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='cmax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='lmin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='lmax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nimage', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nimages', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nxblk', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nyblk', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='x', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='y', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='rval', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='xmin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='xmax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='ymin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='ymax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='crpix1', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='crpix2', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='extname',mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='str', mode='u'))
iraf.cache('mscextensions', 'mscgmask')
Vars.inlists = iraf.mktemp('tmp$iraf')
Vars.extlist = iraf.mktemp('tmp$iraf')
Vars.pllist = iraf.mktemp('tmp$iraf')
Vars.coord = iraf.mktemp('tmp$iraf')
Vars.db = iraf.mktemp('tmp$iraf')
Vars.outtemp = iraf.mktemp('tmp')
Vars.wcsref = iraf.mktemp('tmp')
Vars.pltemp = iraf.mktemp('tmp')
iraf.joinlists(Vars.input, Vars.output, output = Vars.inlists, delim = ' ',short=yes,type = 'image')
Vars.fd_in = Vars.inlists
while (iraf.fscan(locals(), 'Vars.fd_in', 'Vars.PYin', 'Vars.out') != EOF):
if (iraf.imaccess(Vars.out)):
iraf.printf('Warning: Image already exists (%s)\n', Vars.out)
continue
if (Vars.pixmask):
Vars.pl = Vars.out
Vars.nc = iraf.strlen(Vars.pl)
if (Vars.nc > 5 and iraf.substr(Vars.pl, Vars.nc - 4, Vars.nc) == '.fits'):
Vars.pl = iraf.substr(Vars.pl, 1, Vars.nc - 5)
elif (Vars.nc > 4 and iraf.substr(Vars.out, Vars.nc - 3, Vars.nc) == '.imh'):
Vars.pl = iraf.substr(Vars.pl, 1, Vars.nc - 4)
Vars.pl = Vars.pl + '_bpm'
if (Vars.format == 'image' and iraf.imaccess(Vars.pl)):
iraf.printf('Warning: Mask already exists (%s)\n', Vars.pl)
continue
else:
Vars.pl = ''
iraf.mscextensions(Vars.PYin, output = 'file', index = '0-',extname = '',extver = '',lindex = no,lname = yes,lver = no,ikparams = '',Stdout=Vars.extlist)
Vars.nimages = int(iraf.mscextensions.nimages)
Vars.nimage = 0
if (Vars.nimages < 1):
iraf.printf("WARNING: No input image data found in `%s'.\
",Vars.PYin)
iraf.delete(Vars.extlist, verify = no)
continue
if (not iraf.imaccess(Vars.wcsref)):
Vars.ref = Vars.reference
if (Vars.wcssource == 'match'):
Vars.wcsref = Vars.ref
else:
iraf.mscwtemplate('@' + Vars.extlist, Vars.wcsref,wcssource = Vars.wcssource,reference = Vars.ref,ra = Vars.ra,dec = Vars.dec,scale = Vars.scale,rotation = Vars.rotation,projection = '',verbose = Vars.verbose)
Vars.fd_ext = Vars.extlist
while (iraf.fscan(locals(), 'Vars.fd_ext', 'Vars.image') != EOF):
Vars.nimage = Vars.nimage + 1
if (Vars.nimages > 1):
Pipe1 = iraf.hselect(Vars.image, 'extname', yes, Stdout=1)
iraf.scan(locals(), 'Vars.extname', Stdin=Pipe1)
del Pipe1
if (iraf.nscan() == 0):
Vars.extname = 'im' + str(Vars.nimage)
Pipe1 = iraf.printf('%s[%s,append]\n', Vars.outtemp,Vars.extname,Stdout=1)
iraf.scan(locals(), 'Vars.outsec', Stdin=Pipe1)
del Pipe1
Pipe1 = iraf.printf('%s%s\n', Vars.pl, Vars.extname, Stdout=1)
iraf.scan(locals(), 'Vars.plsec', Stdin=Pipe1)
del Pipe1
else:
Vars.extname = ''
Vars.outsec = Vars.outtemp
Vars.plsec = Vars.pl
if (Vars.pixmask and iraf.imaccess(Vars.plsec)):
iraf.delete(Vars.coord, verify = no)
iraf.delete(Vars.db, verify = no)
iraf.printf('Warning: Mask already exists (%s)\n', Vars.plsec)
continue
if (Vars.verbose):
iraf.printf('Resampling %s ...\n', Vars.image)
Pipe1 = iraf.hselect(Vars.image, 'naxis1,naxis2', yes, Stdout=1)
iraf.scan(locals(), 'Vars.nc', 'Vars.nl', Stdin=Pipe1)
del Pipe1
Vars.cmin = 1 + Vars.ntrim
Vars.cmax = Vars.nc - Vars.ntrim
Vars.lmin = 1 + Vars.ntrim
Vars.lmax = Vars.nl - Vars.ntrim
Pipe1 = iraf.printf('[%d:%d,%d:%d]\n', Vars.cmin, Vars.cmax,Vars.lmin,Vars.lmax,Stdout=1)
iraf.scan(locals(), 'Vars.trimsec', Stdin=Pipe1)
del Pipe1
if (Vars.wcssource == 'match'):
Pipe1 = iraf.hselect(Vars.ref, 'naxis1,naxis2', yes, Stdout=1)
iraf.scan(locals(), 'Vars.ncref', 'Vars.nlref', Stdin=Pipe1)
del Pipe1
Vars.xmin = (Vars.ncref - 1.) / (Vars.nx - 1.)
Vars.ymin = (Vars.nlref - 1.) / (Vars.ny - 1.)
Vars.ymax = 1
while (Vars.ymax <= Vars.nlref + 1):
Vars.xmax = 1
while (Vars.xmax <= Vars.ncref + 1):
iraf.clPrint(Vars.xmax, Vars.ymax, Vars.xmax,Vars.ymax,StdoutAppend=Vars.coord)
Vars.xmax = Vars.xmax + Vars.xmin
Vars.ymax = Vars.ymax + Vars.ymin
iraf.mscctran(Vars.coord, Vars.db, Vars.ref, 'logical','world',columns = '3 4',units = '',formats = '%.4H %.3h',min_sigdigit = 10,verbose = no)
iraf.delete(Vars.coord, verify=no)
iraf.wcsctran(Vars.db, Vars.coord, Vars.image + Vars.trimsec,inwcs = 'world',outwcs = 'logical',columns = '3 4',units = 'hours native',formats = '',min_sigdigit = 10,verbose = no)
iraf.delete(Vars.db, verify=no)
else:
Vars.nc = Vars.cmax - Vars.cmin + 1
Vars.nl = Vars.lmax - Vars.lmin + 1
Vars.xmin = (Vars.nc - 1.) / (Vars.nx - 1.)
Vars.ymin = (Vars.nl - 1.) / (Vars.ny - 1.)
Vars.ymax = 1
while (Vars.ymax <= Vars.nl + 1):
Vars.xmax = 1
while (Vars.xmax <= Vars.nc + 1):
iraf.clPrint(Vars.xmax, Vars.ymax, Vars.xmax,Vars.ymax,StdoutAppend=Vars.coord)
Vars.xmax = Vars.xmax + Vars.xmin
Vars.ymax = Vars.ymax + Vars.ymin
iraf.mscctran(Vars.coord, Vars.db, Vars.image + Vars.trimsec,'logical','world',columns = '1 2',units = '',formats = '%.4H %.3h',min_sigdigit = 10,verbose = no)
iraf.delete(Vars.coord, verify=no)
iraf.wcsctran(Vars.db, Vars.coord, Vars.wcsref,inwcs = 'world',outwcs = 'logical',columns = '1 2',units = 'hours native',formats = '',min_sigdigit = 10,verbose = no)
iraf.delete(Vars.db, verify=no)
Vars.xmax = 0.
Vars.xmin = 1.
Vars.ymax = 0.
Vars.ymin = 1.
Vars.fd_coord = Vars.coord
while (iraf.fscan(locals(), 'Vars.fd_coord', 'Vars.x', 'Vars.y') != EOF):
if (iraf.nscan() < 2):
continue
if (Vars.xmax < Vars.xmin):
Vars.xmin = Vars.x
Vars.xmax = Vars.x
Vars.ymin = Vars.y
Vars.ymax = Vars.y
else:
Vars.xmin = float(iraf.minimum(Vars.x, Vars.xmin))
Vars.xmax = float(iraf.maximum(Vars.x, Vars.xmax))
Vars.ymin = float(iraf.minimum(Vars.y, Vars.ymin))
Vars.ymax = float(iraf.maximum(Vars.y, Vars.ymax))
Vars.fd_coord = ''
if (Vars.xmax <= Vars.xmin or Vars.ymax <= Vars.ymin):
iraf.error(1, 'No overlap for matching reference')
Vars.cmin = int(iraf.nint(Vars.xmin - 1.5))
Vars.cmax = int(iraf.nint(Vars.xmax + 1.5))
Vars.lmin = int(iraf.nint(Vars.ymin - 1.5))
Vars.lmax = int(iraf.nint(Vars.ymax + 1.5))
iraf.geomap(Vars.coord, Vars.db, Vars.cmin, Vars.cmax, Vars.lmin,Vars.lmax,transforms = '',results = '',fitgeometry = Vars.fitgeometry,function = 'chebyshev',xxorder = Vars.xxorder,xyorder = Vars.xyorder,xxterms = Vars.xxterms,yxorder = Vars.yxorder,yyorder = Vars.yyorder,yxterms = Vars.yxterms,reject = INDEF,calctype = 'double',verbose = no,interactive = Vars.interactive,graphics = 'stdgraph',cursor = '')
if (Vars.wcssource == 'match'):
Vars.cmin = 1
Vars.lmin = 1
Vars.cmax = Vars.ncref
Vars.lmax = Vars.nlref
if (Vars.nxblock == INDEF):
Vars.nxblk = Vars.cmax - Vars.cmin + 3
else:
Vars.nxblk = Vars.nxblock
if (Vars.nyblock == INDEF):
Vars.nyblk = Vars.lmax - Vars.lmin + 3
else:
Vars.nyblk = Vars.nyblock
iraf.geotran(Vars.image + Vars.trimsec, Vars.outsec, Vars.db,Vars.coord,geometry = 'geometric',xin = INDEF,yin = INDEF,xshift = INDEF,yshift = INDEF,xout = INDEF,yout = INDEF,xmag = INDEF,ymag = INDEF,xrotation = INDEF,yrotation = INDEF,xmin = Vars.cmin,xmax = Vars.cmax,ymin = Vars.lmin,ymax = Vars.lmax,xsample = 10.,ysample = 10.,xscale = 1.,yscale = 1.,ncols = INDEF,nlines = INDEF,interpolant = Vars.interpolant,boundary = 'constant',constant = Vars.constant,fluxconserve = Vars.fluxconserve,nxblock = Vars.nxblk,nyblock = Vars.nyblk,verbose = no)
iraf.wcscopy(Vars.outsec, Vars.wcsref, verbose=no)
Vars.xmin = 0.
Vars.ymin = 0.
Pipe1 = iraf.hselect(Vars.outsec, 'crpix1,crpix2', yes, Stdout=1)
iraf.scan(locals(), 'Vars.xmin', 'Vars.ymin', Stdin=Pipe1)
del Pipe1
Vars.xmin = Vars.xmin - Vars.cmin + 1
Vars.ymin = Vars.ymin - Vars.lmin + 1
if (Vars.nimage == 1):
Vars.crpix1 = Vars.xmin
Vars.crpix2 = Vars.ymin
else:
Vars.crpix1 = float(iraf.maximum(Vars.crpix1, Vars.xmin))
Vars.crpix2 = float(iraf.maximum(Vars.crpix2, Vars.ymin))
iraf.hedit(Vars.outsec, 'crpix1', Vars.xmin, add=yes, verify=no,show=no,update=yes)
iraf.hedit(Vars.outsec, 'crpix2', Vars.ymin, add=yes, verify=no,show=no,update=yes)
if (Vars.pixmask):
Pipe1 = iraf.printf('%s%s\n', Vars.pl, Vars.extname, Stdout=1)
iraf.scan(locals(), 'Vars.plsec', Stdin=Pipe1)
del Pipe1
iraf.mscgmask(Vars.image + Vars.trimsec, Vars.pltemp + '.pl','BPM',mval = 10000)
iraf.geotran(Vars.pltemp, Vars.plsec + '.fits', Vars.db,Vars.coord,geometry = 'geometric',xin = INDEF,yin = INDEF,xshift = INDEF,yshift = INDEF,xout = INDEF,yout = INDEF,xmag = INDEF,ymag = INDEF,xrotation = INDEF,yrotation = INDEF,xmin = Vars.cmin,xmax = Vars.cmax,ymin = Vars.lmin,ymax = Vars.lmax,xsample = 10.,ysample = 10.,interpolant = Vars.minterpolant,boundary = 'constant',constant = 20000.,fluxconserve = no,nxblock = Vars.nxblk,nyblock = Vars.nyblk,verbose = no)
iraf.imdelete(Vars.pltemp, verify=no)
iraf.mscpmask(Vars.plsec + '.fits', Vars.plsec + '.pl')
iraf.imdelete(Vars.plsec + '.fits', verify=no)
iraf.hedit(Vars.outsec, 'BPM', Vars.plsec + '.pl', add=yes,show=no,verify=no,update=yes)
iraf.wcscopy(Vars.plsec, Vars.outsec, verbose=no)
iraf.clPrint(Vars.plsec, StdoutAppend=Vars.pllist)
else:
iraf.hedit(Vars.outsec, 'BPM', PYdel=yes, add=no, addonly=no,show=no,verify=no,update=yes)
iraf.delete(Vars.coord, verify = no)
iraf.delete(Vars.db, verify = no)
Vars.fd_ext = ''
iraf.delete(Vars.extlist, verify = no)
if (Vars.nimages > 1 and Vars.format == 'image'):
if (Vars.verbose):
iraf.printf('Creating image %s ...\n', Vars.out)
iraf.mscextensions(Vars.outtemp, output = 'file', index = '',extname = '',extver = '',lindex = no,lname = yes,lver = no,ikparams = '',Stdout=Vars.extlist)
if (Vars.pixmask):
iraf.combine('@' + Vars.pllist, Vars.pltemp + '.pl',headers = '',bpmasks = Vars.pl,rejmasks = '',nrejmasks = '',expmasks = '',sigmas = '',imcmb = '',ccdtype = '',amps = no,subsets = no,delete = no,combine = 'average',reject = 'none',project = no,outtype = 'real',outlimits = '',offsets = 'wcs',masktype = 'none',maskvalue = '0',blank = 0.,scale = 'none',zero = 'none',weight = 'none',statsec = '',lthreshold = INDEF,hthreshold = 0.99,nlow = 1,nhigh = 1,nkeep = 1,mclip = yes,lsigma = 3.,hsigma = 3.,rdnoise = '0.',gain = '1.',snoise = '0.',sigscale = 0.1,pclip = - 0.5,grow = 0.,Stdout='dev$null')
iraf.imdelete(Vars.pltemp, verify=no)
iraf.combine('@' + Vars.extlist, Vars.out, headers = '',bpmasks = '',rejmasks = '',nrejmasks = '',expmasks = '',sigmas = '',imcmb = '',ccdtype = '',amps = no,subsets = no,delete = no,combine = 'average',reject = 'none',project = no,outtype = 'real',outlimits = '',offsets = 'wcs',masktype = 'badvalue',maskvalue = '2',blank = 0.,scale = 'none',zero = 'none',weight = 'none',statsec = '',lthreshold = INDEF,hthreshold = INDEF,nlow = 1,nhigh = 1,nkeep = 1,mclip = yes,lsigma = 3.,hsigma = 3.,rdnoise = '0.',gain = '1.',snoise = '0.',sigscale = 0.1,pclip = - 0.5,grow = 0.,Stdout='dev$null')
iraf.hedit(Vars.out, 'BPM', Vars.pl, add=yes, verify=no,show=no,update=yes)
iraf.hedit(Vars.pl, 'IMCMB???,PROCID??', add=no, addonly=no,PYdel=yes,update=yes,verify=no,show=no)
else:
iraf.combine('@' + Vars.extlist, Vars.out, headers = '',bpmasks = '',rejmasks = '',nrejmasks = '',expmasks = '',sigmas = '',imcmb = '',ccdtype = '',amps = no,subsets = no,delete = no,combine = 'average',reject = 'none',project = no,outtype = 'real',outlimits = '',offsets = 'wcs',masktype = 'none',maskvalue = '2',blank = 0.,scale = 'none',zero = 'none',weight = 'none',statsec = '',lthreshold = INDEF,hthreshold = INDEF,nlow = 1,nhigh = 1,nkeep = 1,mclip = yes,lsigma = 3.,hsigma = 3.,rdnoise = '0.',gain = '1.',snoise = '0.',sigscale = 0.1,pclip = - 0.5,grow = 0.,Stdout='dev$null')
Pipe2 = iraf.hselect('@' + Vars.extlist, 'gain', yes, Stdout=1)
Pipe1 = iraf.average(data_value = 0., Stdin=Pipe2, Stdout=1)
del Pipe2
iraf.scan(locals(), 'Vars.rval', Stdin=Pipe1)
del Pipe1
iraf.hedit(Vars.out, 'gain', Vars.rval, add=yes, PYdel=no,update=yes,verify=no,show=no)
Pipe2 = iraf.hselect('@' + Vars.extlist, 'rdnoise', yes, Stdout=1)
Pipe1 = iraf.average(data_value = 0., Stdin=Pipe2, Stdout=1)
del Pipe2
iraf.scan(locals(), 'Vars.rval', Stdin=Pipe1)
del Pipe1
iraf.hedit(Vars.out, 'rdnoise', Vars.rval, add=yes, PYdel=no,update=yes,verify=no,show=no)
iraf.hedit(Vars.out, 'IMCMB???,PROCID??', add=no, addonly=no,PYdel=yes,update=yes,verify=no,show=no)
iraf.hedit(Vars.out,'NEXTEND,DETSEC,CCDSEC,AMPSEC,IMAGEID,DATASEC,TRIMSEC,BIASSEC',add=no,addonly=no,PYdel=yes,update=yes,verify=no,show=no)
iraf.imdelete(Vars.outtemp, verify=no)
if (iraf.access(Vars.pllist)):
iraf.imdelete('@' + Vars.pllist, verify=no)
iraf.delete(Vars.pllist, verify=no)
iraf.delete(Vars.extlist, verify = no)
elif (Vars.nimages > 1):
iraf.imrename(Vars.outtemp, Vars.out, verbose=no)
iraf.mscextensions(Vars.out, output = 'file', index = '',extname = '',extver = '',lindex = no,lname = yes,lver = no,ikparams = '',Stdout=Vars.extlist)
Vars.fd_ext = Vars.extlist
while (iraf.fscan(locals(), 'Vars.fd_ext', 'Vars.image') != EOF):
Pipe1 = iraf.hselect(Vars.image, 'naxis1,naxis2,crpix1,crpix2',yes,Stdout=1)
iraf.scan(locals(), 'Vars.nc', 'Vars.nl', 'Vars.xmin','Vars.ymin',Stdin=Pipe1)
del Pipe1
Vars.cmin = int(iraf.nint(Vars.crpix1 - Vars.xmin + 1))
Vars.lmin = int(iraf.nint(Vars.crpix2 - Vars.ymin + 1))
Vars.cmax = Vars.nc + Vars.cmin - 1
Vars.lmax = Vars.nl + Vars.lmin - 1
Pipe1 = iraf.printf('[%d:%d,%d:%d]\n', Vars.cmin, Vars.cmax,Vars.lmin,Vars.lmax,Stdout=1)
iraf.scan(locals(), 'Vars.str', Stdin=Pipe1)
del Pipe1
iraf.hedit(Vars.image, 'DETSEC', Vars.str, add=yes, verify=no,show=no,update=yes)
iraf.hedit(Vars.image, 'DTM1_1', 1., add=yes, verify=no,show=no,update=yes)
iraf.hedit(Vars.image, 'DTM2_2', 1., add=yes, verify=no,show=no,update=yes)
Vars.cmin = Vars.cmin - 1
Vars.lmin = Vars.lmin - 1
iraf.hedit(Vars.image, 'DTV1', Vars.cmin, add=yes, verify=no,show=no,update=yes)
iraf.hedit(Vars.image, 'DTV2', Vars.lmin, add=yes, verify=no,show=no,update=yes)
iraf.hedit(Vars.image,'CCDSUM,CCDSEC,AMPSEC,ATM1_1,ATM2_2,ATV1,ATV2',PYdel=yes,add=no,addonly=no,verify=no,show=no,update=yes)
Vars.fd_ext = ''
iraf.delete(Vars.extlist, verify=no)
else:
iraf.imrename(Vars.outsec, Vars.out, verbose=no)
if (iraf.access(Vars.pllist)):
iraf.delete(Vars.pllist, verify=no)
Vars.fd_in = ''
iraf.delete(Vars.inlists, verify = no)
if (Vars.wcssource != 'match' and iraf.imaccess(Vars.wcsref)):
iraf.imdelete(Vars.wcsref, verify=no)
def mscimage(input=None,
output=None,
format='image',
pixmask=no,
verbose=')_.verbose',
wcssource='image',
reference='',
ra=INDEF,
dec=INDEF,
scale=INDEF,
rotation=INDEF,
blank=0.0,
interpolant='poly5',
minterpolant='linear',
boundary='reflect',
constant=0.0,
fluxconserve=no,
ntrim=8,
nxblock=INDEF,
nyblock=INDEF,
interactive=no,
nx=10,
ny=20,
fitgeometry='general',
xxorder=4,
xyorder=4,
xxterms='half',
yxorder=4,
yyorder=4,
yxterms='half',
fd_in='',
fd_ext='',
fd_coord='',
mode='ql',
DOLLARnargs=0,
taskObj=None):
Vars = IrafParList('mscimage')
Vars.addParam(
makeIrafPar(input,
datatype='string',
name='input',
mode='a',
prompt='List of input mosaic exposures'))
Vars.addParam(
makeIrafPar(output,
datatype='string',
name='output',
mode='a',
prompt='List of output images'))
Vars.addParam(
makeIrafPar(format,
datatype='string',
name='format',
enum=['image', 'mef'],
mode='h',
prompt='Output format (image|mef)'))
Vars.addParam(
makeIrafPar(pixmask,
datatype='bool',
name='pixmask',
mode='h',
prompt='Create pixel mask?'))
Vars.addParam(
makeIrafPar(verbose,
datatype='bool',
name='verbose',
mode='h',
prompt='Verbose output?\n\n# Output WCS parameters'))
Vars.addParam(
makeIrafPar(wcssource,
datatype='string',
name='wcssource',
enum=['image', 'parameters', 'match'],
mode='h',
prompt='Output WCS source (image|parameters|match)'))
Vars.addParam(
makeIrafPar(reference,
datatype='file',
name='reference',
mode='h',
prompt='Reference image'))
Vars.addParam(
makeIrafPar(ra,
datatype='real',
name='ra',
max=24.0,
min=0.0,
mode='h',
prompt='RA of tangent point (hours)'))
Vars.addParam(
makeIrafPar(dec,
datatype='real',
name='dec',
max=90.0,
min=-90.0,
mode='h',
prompt='DEC of tangent point (degrees)'))
Vars.addParam(
makeIrafPar(scale,
datatype='real',
name='scale',
mode='h',
prompt='Scale (arcsec/pixel)'))
Vars.addParam(
makeIrafPar(
rotation,
datatype='real',
name='rotation',
max=360.0,
min=-360.0,
mode='h',
prompt=
'Rotation of DEC from N to E (degrees)\n\n# Resampling parmeters'))
Vars.addParam(
makeIrafPar(blank,
datatype='real',
name='blank',
mode='h',
prompt='Blank value'))
Vars.addParam(
makeIrafPar(interpolant,
datatype='string',
name='interpolant',
mode='h',
prompt='Interpolant for data'))
Vars.addParam(
makeIrafPar(minterpolant,
datatype='string',
name='minterpolant',
mode='h',
prompt='Interpolant for mask'))
Vars.addParam(
makeIrafPar(boundary,
datatype='string',
name='boundary',
enum=['nearest', 'constant', 'reflect', 'wrap'],
mode='h',
prompt='Boundary extension'))
Vars.addParam(
makeIrafPar(constant,
datatype='real',
name='constant',
mode='h',
prompt='Constant boundary extension value'))
Vars.addParam(
makeIrafPar(fluxconserve,
datatype='bool',
name='fluxconserve',
mode='h',
prompt='Preserve flux per unit area?'))
Vars.addParam(
makeIrafPar(ntrim,
datatype='int',
name='ntrim',
min=0,
mode='h',
prompt='Edge trim in each extension'))
Vars.addParam(
makeIrafPar(nxblock,
datatype='int',
name='nxblock',
mode='h',
prompt='X dimension of working block size in pixels'))
Vars.addParam(
makeIrafPar(
nyblock,
datatype='int',
name='nyblock',
mode='h',
prompt=
'Y dimension of working block size in pixels\n\n# Geometric mapping parameters'
))
Vars.addParam(
makeIrafPar(interactive,
datatype='bool',
name='interactive',
mode='h',
prompt='Fit mapping interactively?'))
Vars.addParam(
makeIrafPar(nx,
datatype='int',
name='nx',
mode='h',
prompt='Number of x grid points'))
Vars.addParam(
makeIrafPar(ny,
datatype='int',
name='ny',
mode='h',
prompt='Number of y grid points'))
Vars.addParam(
makeIrafPar(fitgeometry,
datatype='string',
name='fitgeometry',
enum=[
'shift', 'xyscale', 'rotate', 'rscale', 'rxyscale',
'general'
],
mode='h',
prompt='Fitting geometry'))
Vars.addParam(
makeIrafPar(xxorder,
datatype='int',
name='xxorder',
min=2,
mode='h',
prompt='Order of x fit in x'))
Vars.addParam(
makeIrafPar(xyorder,
datatype='int',
name='xyorder',
min=2,
mode='h',
prompt='Order of x fit in y'))
Vars.addParam(
makeIrafPar(xxterms,
datatype='string',
name='xxterms',
mode='h',
prompt='X fit cross terms type'))
Vars.addParam(
makeIrafPar(yxorder,
datatype='int',
name='yxorder',
min=2,
mode='h',
prompt='Order of y fit in x'))
Vars.addParam(
makeIrafPar(yyorder,
datatype='int',
name='yyorder',
min=2,
mode='h',
prompt='Order of y fit in y'))
Vars.addParam(
makeIrafPar(yxterms,
datatype='string',
name='yxterms',
mode='h',
prompt='Y fit cross terms type\n\n'))
Vars.addParam(
makeIrafPar(fd_in,
datatype='struct',
name='fd_in',
list_flag=1,
mode='h',
prompt=''))
Vars.addParam(
makeIrafPar(fd_ext,
datatype='struct',
name='fd_ext',
list_flag=1,
mode='h',
prompt=''))
Vars.addParam(
makeIrafPar(fd_coord,
datatype='struct',
name='fd_coord',
list_flag=1,
mode='h',
prompt=''))
Vars.addParam(
makeIrafPar(mode, datatype='string', name='mode', mode='h', prompt=''))
Vars.addParam(
makeIrafPar(DOLLARnargs, datatype='int', name='$nargs', mode='h'))
Vars.addParam(makeIrafPar(None, datatype='file', name='in', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='out', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='ref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='pl', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='image', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='trimsec', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='outsec', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='plsec', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='inlists', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='extlist', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='pllist', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='coord', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='db', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='wcsref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='outtemp', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='file', name='pltemp', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nc', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nl', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='ncref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nlref', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='cmin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='cmax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='lmin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='lmax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nimage', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nimages', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nxblk', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='int', name='nyblk', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='x', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='y', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='rval', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='xmin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='xmax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='ymin', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='ymax', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='crpix1', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='crpix2', mode='u'))
Vars.addParam(
makeIrafPar(None, datatype='string', name='extname', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='str', mode='u'))
iraf.cache('mscextensions', 'mscgmask')
Vars.inlists = iraf.mktemp('tmp$iraf')
Vars.extlist = iraf.mktemp('tmp$iraf')
Vars.pllist = iraf.mktemp('tmp$iraf')
Vars.coord = iraf.mktemp('tmp$iraf')
Vars.db = iraf.mktemp('tmp$iraf')
Vars.outtemp = iraf.mktemp('tmp')
Vars.wcsref = iraf.mktemp('tmp')
Vars.pltemp = iraf.mktemp('tmp')
iraf.joinlists(Vars.input,
Vars.output,
output=Vars.inlists,
delim=' ',
short=yes,
type='image')
Vars.fd_in = Vars.inlists
while (iraf.fscan(locals(), 'Vars.fd_in', 'Vars.PYin', 'Vars.out') != EOF):
if (iraf.imaccess(Vars.out)):
iraf.printf('Warning: Image already exists (%s)\n', Vars.out)
continue
if (Vars.pixmask):
Vars.pl = Vars.out
Vars.nc = iraf.strlen(Vars.pl)
if (Vars.nc > 5
and iraf.substr(Vars.pl, Vars.nc - 4, Vars.nc) == '.fits'):
Vars.pl = iraf.substr(Vars.pl, 1, Vars.nc - 5)
elif (Vars.nc > 4
and iraf.substr(Vars.out, Vars.nc - 3, Vars.nc) == '.imh'):
Vars.pl = iraf.substr(Vars.pl, 1, Vars.nc - 4)
Vars.pl = Vars.pl + '_bpm'
if (Vars.format == 'image' and iraf.imaccess(Vars.pl)):
iraf.printf('Warning: Mask already exists (%s)\n', Vars.pl)
continue
else:
Vars.pl = ''
iraf.mscextensions(Vars.PYin,
output='file',
index='0-',
extname='',
extver='',
lindex=no,
lname=yes,
lver=no,
ikparams='',
Stdout=Vars.extlist)
Vars.nimages = int(iraf.mscextensions.nimages)
Vars.nimage = 0
if (Vars.nimages < 1):
iraf.printf("WARNING: No input image data found in `%s'.\
", Vars.PYin)
iraf.delete(Vars.extlist, verify=no)
continue
if (not iraf.imaccess(Vars.wcsref)):
Vars.ref = Vars.reference
if (Vars.wcssource == 'match'):
Vars.wcsref = Vars.ref
else:
iraf.mscwtemplate('@' + Vars.extlist,
Vars.wcsref,
wcssource=Vars.wcssource,
reference=Vars.ref,
ra=Vars.ra,
dec=Vars.dec,
scale=Vars.scale,
rotation=Vars.rotation,
projection='',
verbose=Vars.verbose)
Vars.fd_ext = Vars.extlist
while (iraf.fscan(locals(), 'Vars.fd_ext', 'Vars.image') != EOF):
Vars.nimage = Vars.nimage + 1
if (Vars.nimages > 1):
Pipe1 = iraf.hselect(Vars.image, 'extname', yes, Stdout=1)
iraf.scan(locals(), 'Vars.extname', Stdin=Pipe1)
del Pipe1
if (iraf.nscan() == 0):
Vars.extname = 'im' + str(Vars.nimage)
Pipe1 = iraf.printf('%s[%s,append]\n',
Vars.outtemp,
Vars.extname,
Stdout=1)
iraf.scan(locals(), 'Vars.outsec', Stdin=Pipe1)
del Pipe1
Pipe1 = iraf.printf('%s%s\n', Vars.pl, Vars.extname, Stdout=1)
iraf.scan(locals(), 'Vars.plsec', Stdin=Pipe1)
del Pipe1
else:
Vars.extname = ''
Vars.outsec = Vars.outtemp
Vars.plsec = Vars.pl
if (Vars.pixmask and iraf.imaccess(Vars.plsec)):
iraf.delete(Vars.coord, verify=no)
iraf.delete(Vars.db, verify=no)
iraf.printf('Warning: Mask already exists (%s)\n', Vars.plsec)
continue
if (Vars.verbose):
iraf.printf('Resampling %s ...\n', Vars.image)
Pipe1 = iraf.hselect(Vars.image, 'naxis1,naxis2', yes, Stdout=1)
iraf.scan(locals(), 'Vars.nc', 'Vars.nl', Stdin=Pipe1)
del Pipe1
Vars.cmin = 1 + Vars.ntrim
Vars.cmax = Vars.nc - Vars.ntrim
Vars.lmin = 1 + Vars.ntrim
Vars.lmax = Vars.nl - Vars.ntrim
Pipe1 = iraf.printf('[%d:%d,%d:%d]\n',
Vars.cmin,
Vars.cmax,
Vars.lmin,
Vars.lmax,
Stdout=1)
iraf.scan(locals(), 'Vars.trimsec', Stdin=Pipe1)
del Pipe1
if (Vars.wcssource == 'match'):
Pipe1 = iraf.hselect(Vars.ref, 'naxis1,naxis2', yes, Stdout=1)
iraf.scan(locals(), 'Vars.ncref', 'Vars.nlref', Stdin=Pipe1)
del Pipe1
Vars.xmin = (Vars.ncref - 1.) / (Vars.nx - 1.)
Vars.ymin = (Vars.nlref - 1.) / (Vars.ny - 1.)
Vars.ymax = 1
while (Vars.ymax <= Vars.nlref + 1):
Vars.xmax = 1
while (Vars.xmax <= Vars.ncref + 1):
iraf.clPrint(Vars.xmax,
Vars.ymax,
Vars.xmax,
Vars.ymax,
StdoutAppend=Vars.coord)
Vars.xmax = Vars.xmax + Vars.xmin
Vars.ymax = Vars.ymax + Vars.ymin
iraf.mscctran(Vars.coord,
Vars.db,
Vars.ref,
'logical',
'world',
columns='3 4',
units='',
formats='%.4H %.3h',
min_sigdigit=10,
verbose=no)
iraf.delete(Vars.coord, verify=no)
iraf.wcsctran(Vars.db,
Vars.coord,
Vars.image + Vars.trimsec,
inwcs='world',
outwcs='logical',
columns='3 4',
units='hours native',
formats='',
min_sigdigit=10,
verbose=no)
iraf.delete(Vars.db, verify=no)
else:
Vars.nc = Vars.cmax - Vars.cmin + 1
Vars.nl = Vars.lmax - Vars.lmin + 1
Vars.xmin = (Vars.nc - 1.) / (Vars.nx - 1.)
Vars.ymin = (Vars.nl - 1.) / (Vars.ny - 1.)
Vars.ymax = 1
while (Vars.ymax <= Vars.nl + 1):
Vars.xmax = 1
while (Vars.xmax <= Vars.nc + 1):
iraf.clPrint(Vars.xmax,
Vars.ymax,
Vars.xmax,
Vars.ymax,
StdoutAppend=Vars.coord)
Vars.xmax = Vars.xmax + Vars.xmin
Vars.ymax = Vars.ymax + Vars.ymin
iraf.mscctran(Vars.coord,
Vars.db,
Vars.image + Vars.trimsec,
'logical',
'world',
columns='1 2',
units='',
formats='%.4H %.3h',
min_sigdigit=10,
verbose=no)
iraf.delete(Vars.coord, verify=no)
iraf.wcsctran(Vars.db,
Vars.coord,
Vars.wcsref,
inwcs='world',
outwcs='logical',
columns='1 2',
units='hours native',
formats='',
min_sigdigit=10,
verbose=no)
iraf.delete(Vars.db, verify=no)
Vars.xmax = 0.
Vars.xmin = 1.
Vars.ymax = 0.
Vars.ymin = 1.
Vars.fd_coord = Vars.coord
while (iraf.fscan(locals(), 'Vars.fd_coord', 'Vars.x', 'Vars.y') !=
EOF):
if (iraf.nscan() < 2):
continue
if (Vars.xmax < Vars.xmin):
Vars.xmin = Vars.x
Vars.xmax = Vars.x
Vars.ymin = Vars.y
Vars.ymax = Vars.y
else:
Vars.xmin = float(iraf.minimum(Vars.x, Vars.xmin))
Vars.xmax = float(iraf.maximum(Vars.x, Vars.xmax))
Vars.ymin = float(iraf.minimum(Vars.y, Vars.ymin))
Vars.ymax = float(iraf.maximum(Vars.y, Vars.ymax))
Vars.fd_coord = ''
if (Vars.xmax <= Vars.xmin or Vars.ymax <= Vars.ymin):
iraf.error(1, 'No overlap for matching reference')
Vars.cmin = int(iraf.nint(Vars.xmin - 1.5))
Vars.cmax = int(iraf.nint(Vars.xmax + 1.5))
Vars.lmin = int(iraf.nint(Vars.ymin - 1.5))
Vars.lmax = int(iraf.nint(Vars.ymax + 1.5))
iraf.geomap(Vars.coord,
Vars.db,
Vars.cmin,
Vars.cmax,
Vars.lmin,
Vars.lmax,
transforms='',
results='',
fitgeometry=Vars.fitgeometry,
function='chebyshev',
xxorder=Vars.xxorder,
xyorder=Vars.xyorder,
xxterms=Vars.xxterms,
yxorder=Vars.yxorder,
yyorder=Vars.yyorder,
yxterms=Vars.yxterms,
reject=INDEF,
calctype='double',
verbose=no,
interactive=Vars.interactive,
graphics='stdgraph',
cursor='')
if (Vars.wcssource == 'match'):
Vars.cmin = 1
Vars.lmin = 1
Vars.cmax = Vars.ncref
Vars.lmax = Vars.nlref
if (Vars.nxblock == INDEF):
Vars.nxblk = Vars.cmax - Vars.cmin + 3
else:
Vars.nxblk = Vars.nxblock
if (Vars.nyblock == INDEF):
Vars.nyblk = Vars.lmax - Vars.lmin + 3
else:
Vars.nyblk = Vars.nyblock
iraf.geotran(Vars.image + Vars.trimsec,
Vars.outsec,
Vars.db,
Vars.coord,
geometry='geometric',
xin=INDEF,
yin=INDEF,
xshift=INDEF,
yshift=INDEF,
xout=INDEF,
yout=INDEF,
xmag=INDEF,
ymag=INDEF,
xrotation=INDEF,
yrotation=INDEF,
xmin=Vars.cmin,
xmax=Vars.cmax,
ymin=Vars.lmin,
ymax=Vars.lmax,
xsample=10.,
ysample=10.,
xscale=1.,
yscale=1.,
ncols=INDEF,
nlines=INDEF,
interpolant=Vars.interpolant,
boundary='constant',
constant=Vars.constant,
fluxconserve=Vars.fluxconserve,
nxblock=Vars.nxblk,
nyblock=Vars.nyblk,
verbose=no)
iraf.wcscopy(Vars.outsec, Vars.wcsref, verbose=no)
Vars.xmin = 0.
Vars.ymin = 0.
Pipe1 = iraf.hselect(Vars.outsec, 'crpix1,crpix2', yes, Stdout=1)
iraf.scan(locals(), 'Vars.xmin', 'Vars.ymin', Stdin=Pipe1)
del Pipe1
Vars.xmin = Vars.xmin - Vars.cmin + 1
Vars.ymin = Vars.ymin - Vars.lmin + 1
if (Vars.nimage == 1):
Vars.crpix1 = Vars.xmin
Vars.crpix2 = Vars.ymin
else:
Vars.crpix1 = float(iraf.maximum(Vars.crpix1, Vars.xmin))
Vars.crpix2 = float(iraf.maximum(Vars.crpix2, Vars.ymin))
iraf.hedit(Vars.outsec,
'crpix1',
Vars.xmin,
add=yes,
verify=no,
show=no,
update=yes)
iraf.hedit(Vars.outsec,
'crpix2',
Vars.ymin,
add=yes,
verify=no,
show=no,
update=yes)
if (Vars.pixmask):
Pipe1 = iraf.printf('%s%s\n', Vars.pl, Vars.extname, Stdout=1)
iraf.scan(locals(), 'Vars.plsec', Stdin=Pipe1)
del Pipe1
iraf.mscgmask(Vars.image + Vars.trimsec,
Vars.pltemp + '.pl',
'BPM',
mval=10000)
iraf.geotran(Vars.pltemp,
Vars.plsec + '.fits',
Vars.db,
Vars.coord,
geometry='geometric',
xin=INDEF,
yin=INDEF,
xshift=INDEF,
yshift=INDEF,
xout=INDEF,
yout=INDEF,
xmag=INDEF,
ymag=INDEF,
xrotation=INDEF,
yrotation=INDEF,
xmin=Vars.cmin,
xmax=Vars.cmax,
ymin=Vars.lmin,
ymax=Vars.lmax,
xsample=10.,
ysample=10.,
interpolant=Vars.minterpolant,
boundary='constant',
constant=20000.,
fluxconserve=no,
nxblock=Vars.nxblk,
nyblock=Vars.nyblk,
verbose=no)
iraf.imdelete(Vars.pltemp, verify=no)
iraf.mscpmask(Vars.plsec + '.fits', Vars.plsec + '.pl')
iraf.imdelete(Vars.plsec + '.fits', verify=no)
iraf.hedit(Vars.outsec,
'BPM',
Vars.plsec + '.pl',
add=yes,
show=no,
verify=no,
update=yes)
iraf.wcscopy(Vars.plsec, Vars.outsec, verbose=no)
iraf.clPrint(Vars.plsec, StdoutAppend=Vars.pllist)
else:
iraf.hedit(Vars.outsec,
'BPM',
PYdel=yes,
add=no,
addonly=no,
show=no,
verify=no,
update=yes)
iraf.delete(Vars.coord, verify=no)
iraf.delete(Vars.db, verify=no)
Vars.fd_ext = ''
iraf.delete(Vars.extlist, verify=no)
if (Vars.nimages > 1 and Vars.format == 'image'):
if (Vars.verbose):
iraf.printf('Creating image %s ...\n', Vars.out)
iraf.mscextensions(Vars.outtemp,
output='file',
index='',
extname='',
extver='',
lindex=no,
lname=yes,
lver=no,
ikparams='',
Stdout=Vars.extlist)
if (Vars.pixmask):
iraf.combine('@' + Vars.pllist,
Vars.pltemp + '.pl',
headers='',
bpmasks=Vars.pl,
rejmasks='',
nrejmasks='',
expmasks='',
sigmas='',
imcmb='',
ccdtype='',
amps=no,
subsets=no,
delete=no,
combine='average',
reject='none',
project=no,
outtype='real',
outlimits='',
offsets='wcs',
masktype='none',
maskvalue='0',
blank=0.,
scale='none',
zero='none',
weight='none',
statsec='',
lthreshold=INDEF,
hthreshold=0.99,
nlow=1,
nhigh=1,
nkeep=1,
mclip=yes,
lsigma=3.,
hsigma=3.,
rdnoise='0.',
gain='1.',
snoise='0.',
sigscale=0.1,
pclip=-0.5,
grow=0.,
Stdout='dev$null')
iraf.imdelete(Vars.pltemp, verify=no)
iraf.combine('@' + Vars.extlist,
Vars.out,
headers='',
bpmasks='',
rejmasks='',
nrejmasks='',
expmasks='',
sigmas='',
imcmb='',
ccdtype='',
amps=no,
subsets=no,
delete=no,
combine='average',
reject='none',
project=no,
outtype='real',
outlimits='',
offsets='wcs',
masktype='badvalue',
maskvalue='2',
blank=0.,
scale='none',
zero='none',
weight='none',
statsec='',
lthreshold=INDEF,
hthreshold=INDEF,
nlow=1,
nhigh=1,
nkeep=1,
mclip=yes,
lsigma=3.,
hsigma=3.,
rdnoise='0.',
gain='1.',
snoise='0.',
sigscale=0.1,
pclip=-0.5,
grow=0.,
Stdout='dev$null')
iraf.hedit(Vars.out,
'BPM',
Vars.pl,
add=yes,
verify=no,
show=no,
update=yes)
iraf.hedit(Vars.pl,
'IMCMB???,PROCID??',
add=no,
addonly=no,
PYdel=yes,
update=yes,
verify=no,
show=no)
else:
iraf.combine('@' + Vars.extlist,
Vars.out,
headers='',
bpmasks='',
rejmasks='',
nrejmasks='',
expmasks='',
sigmas='',
imcmb='',
ccdtype='',
amps=no,
subsets=no,
delete=no,
combine='average',
reject='none',
project=no,
outtype='real',
outlimits='',
offsets='wcs',
masktype='none',
maskvalue='2',
blank=0.,
scale='none',
zero='none',
weight='none',
statsec='',
lthreshold=INDEF,
hthreshold=INDEF,
nlow=1,
nhigh=1,
nkeep=1,
mclip=yes,
lsigma=3.,
hsigma=3.,
rdnoise='0.',
gain='1.',
snoise='0.',
sigscale=0.1,
pclip=-0.5,
grow=0.,
Stdout='dev$null')
Pipe2 = iraf.hselect('@' + Vars.extlist, 'gain', yes, Stdout=1)
Pipe1 = iraf.average(data_value=0., Stdin=Pipe2, Stdout=1)
del Pipe2
iraf.scan(locals(), 'Vars.rval', Stdin=Pipe1)
del Pipe1
iraf.hedit(Vars.out,
'gain',
Vars.rval,
add=yes,
PYdel=no,
update=yes,
verify=no,
show=no)
Pipe2 = iraf.hselect('@' + Vars.extlist, 'rdnoise', yes, Stdout=1)
Pipe1 = iraf.average(data_value=0., Stdin=Pipe2, Stdout=1)
del Pipe2
iraf.scan(locals(), 'Vars.rval', Stdin=Pipe1)
del Pipe1
iraf.hedit(Vars.out,
'rdnoise',
Vars.rval,
add=yes,
PYdel=no,
update=yes,
verify=no,
show=no)
iraf.hedit(Vars.out,
'IMCMB???,PROCID??',
add=no,
addonly=no,
PYdel=yes,
update=yes,
verify=no,
show=no)
iraf.hedit(
Vars.out,
'NEXTEND,DETSEC,CCDSEC,AMPSEC,IMAGEID,DATASEC,TRIMSEC,BIASSEC',
add=no,
addonly=no,
PYdel=yes,
update=yes,
verify=no,
show=no)
iraf.imdelete(Vars.outtemp, verify=no)
if (iraf.access(Vars.pllist)):
iraf.imdelete('@' + Vars.pllist, verify=no)
iraf.delete(Vars.pllist, verify=no)
iraf.delete(Vars.extlist, verify=no)
elif (Vars.nimages > 1):
iraf.imrename(Vars.outtemp, Vars.out, verbose=no)
iraf.mscextensions(Vars.out,
output='file',
index='',
extname='',
extver='',
lindex=no,
lname=yes,
lver=no,
ikparams='',
Stdout=Vars.extlist)
Vars.fd_ext = Vars.extlist
while (iraf.fscan(locals(), 'Vars.fd_ext', 'Vars.image') != EOF):
Pipe1 = iraf.hselect(Vars.image,
'naxis1,naxis2,crpix1,crpix2',
yes,
Stdout=1)
iraf.scan(locals(),
'Vars.nc',
'Vars.nl',
'Vars.xmin',
'Vars.ymin',
Stdin=Pipe1)
del Pipe1
Vars.cmin = int(iraf.nint(Vars.crpix1 - Vars.xmin + 1))
Vars.lmin = int(iraf.nint(Vars.crpix2 - Vars.ymin + 1))
Vars.cmax = Vars.nc + Vars.cmin - 1
Vars.lmax = Vars.nl + Vars.lmin - 1
Pipe1 = iraf.printf('[%d:%d,%d:%d]\n',
Vars.cmin,
Vars.cmax,
Vars.lmin,
Vars.lmax,
Stdout=1)
iraf.scan(locals(), 'Vars.str', Stdin=Pipe1)
del Pipe1
iraf.hedit(Vars.image,
'DETSEC',
Vars.str,
add=yes,
verify=no,
show=no,
update=yes)
iraf.hedit(Vars.image,
'DTM1_1',
1.,
add=yes,
verify=no,
show=no,
update=yes)
iraf.hedit(Vars.image,
'DTM2_2',
1.,
add=yes,
verify=no,
show=no,
update=yes)
Vars.cmin = Vars.cmin - 1
Vars.lmin = Vars.lmin - 1
iraf.hedit(Vars.image,
'DTV1',
Vars.cmin,
add=yes,
verify=no,
show=no,
update=yes)
iraf.hedit(Vars.image,
'DTV2',
Vars.lmin,
add=yes,
verify=no,
show=no,
update=yes)
iraf.hedit(Vars.image,
'CCDSUM,CCDSEC,AMPSEC,ATM1_1,ATM2_2,ATV1,ATV2',
PYdel=yes,
add=no,
addonly=no,
verify=no,
show=no,
update=yes)
Vars.fd_ext = ''
iraf.delete(Vars.extlist, verify=no)
else:
iraf.imrename(Vars.outsec, Vars.out, verbose=no)
if (iraf.access(Vars.pllist)):
iraf.delete(Vars.pllist, verify=no)
Vars.fd_in = ''
iraf.delete(Vars.inlists, verify=no)
if (Vars.wcssource != 'match' and iraf.imaccess(Vars.wcsref)):
iraf.imdelete(Vars.wcsref, verify=no)
def getfwhm(images='@imh.lis',
coordlist='ref_stars',
outfile='getfwhm.log',
radius=4.0,
buffer=7.0,
width=5.0,
rplot=15.0,
center='no',
verbose='no',
imagelist=None,
mode='al',
DOLLARnargs=0,
taskObj=None):
Vars = IrafParList('getfwhm')
Vars.addParam(
makeIrafPar(images,
datatype='string',
name='images',
mode='a',
prompt='Input image(s)'))
Vars.addParam(
makeIrafPar(coordlist,
datatype='string',
name='coordlist',
mode='a',
prompt='List of object positions'))
Vars.addParam(
makeIrafPar(outfile,
datatype='string',
name='outfile',
mode='a',
prompt='Output file'))
Vars.addParam(
makeIrafPar(radius,
datatype='real',
name='radius',
mode='h',
prompt='Object radius'))
Vars.addParam(
makeIrafPar(buffer,
datatype='real',
name='buffer',
mode='h',
prompt='Background buffer width'))
Vars.addParam(
makeIrafPar(width,
datatype='real',
name='width',
mode='h',
prompt='Background width'))
Vars.addParam(
makeIrafPar(rplot,
datatype='real',
name='rplot',
mode='h',
prompt='Plotting radius'))
Vars.addParam(
makeIrafPar(center,
datatype='bool',
name='center',
mode='h',
prompt='Center object in aperture?'))
Vars.addParam(
makeIrafPar(verbose,
datatype='bool',
name='verbose',
mode='h',
prompt='Verbose output?'))
Vars.addParam(
makeIrafPar(imagelist,
datatype='struct',
name='imagelist',
list_flag=1,
mode='h'))
Vars.addParam(makeIrafPar(mode, datatype='string', name='mode', mode='h'))
Vars.addParam(
makeIrafPar(DOLLARnargs, datatype='int', name='$nargs', mode='h'))
Vars.addParam(makeIrafPar(None, datatype='int', name='len', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='image', mode='u'))
Vars.addParam(
makeIrafPar(None, datatype='string', name='imagefile', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='imlist',
mode='u'))
Vars.addParam(makeIrafPar(None, datatype='string', name='coords',
mode='u'))
Vars.addParam(
makeIrafPar(None, datatype='string', name='outputfile', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='rad', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='buff', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='wid', mode='u'))
Vars.addParam(makeIrafPar(None, datatype='real', name='rpl', mode='u'))
Vars.imlist = Vars.images
Vars.imagefile = iraf.mktemp('tmp$getfwhm')
iraf.sections(Vars.imlist, option='fullname', Stdout=Vars.imagefile)
Vars.imagelist = Vars.imagefile
Vars.coords = Vars.coordlist
Vars.outputfile = Vars.outfile
Vars.rad = Vars.radius
Vars.buff = Vars.buffer
Vars.wid = Vars.width
Vars.rpl = Vars.rplot
iraf.rimexam.radius = Vars.rad
iraf.rimexam.buffer = Vars.buff
iraf.rimexam.width = Vars.wid
iraf.rimexam.rplot = Vars.rpl
if (Vars.center == yes):
iraf.rimexam.center = yes
else:
iraf.rimexam.center = no
iraf.rimexam.fittype = 'gaussian'
iraf.rimexam.iterati = 1
iraf.clPrint('# RIMEXAM Parameter Settings: Radius=',
Vars.rad,
', Buffer=',
Vars.buff,
', Width=',
Vars.wid,
StdoutAppend=Vars.outputfile)
while (iraf.fscan(locals(), 'Vars.imagelist', 'Vars.image') != EOF):
Vars.len = iraf.strlen(Vars.image)
if (iraf.substr(Vars.image, Vars.len - 3, Vars.len) == '.imh'):
Vars.image = iraf.substr(Vars.image, 1, Vars.len - 4)
if (Vars.verbose):
iraf.clPrint('...processing ', Vars.image)
iraf.clPrint(Vars.image)
iraf.imexamine(Vars.image,
logfile=Vars.outputfile,
keeplog=yes,
defkey='a',
imagecur=Vars.coords,
wcs='world',
use_display=no)
