#!/bin/csh
# getfluxes.csh

# source I 
set BOX = 'arcsec,box(0.5,-0.6,-0.2,0.3)'
implot in=$1 device=/xs region=$BOX units=s
imfit in=$1 object=gaussian region=$BOX clip=0

$<

# BN
set BOX = 'arcsec,box(-5.4,7.2,-6.4,8.2)'
implot in=$1 device=/xs region=$BOX units=s
imfit in=$1 object=gaussian region=$BOX clip=0
$<

# "C17" in Friedel and Widicus Weaver 
set BOX = 'arcsec,box(4.7,-.6,4.2,0.1)'
implot in=$1 device=/xs region=$BOX units=s
imfit in=$1 object=gaussian region=$BOX clip=0
$<

# noise in fairly empty quadrant
set BOX = 'arcsec,box(12,1,1,12)'  
imlist in=$1 options=stat region=$BOX
