#############################################################
# DETECT.TCL: detector signal and noise response 
#############################################################
# Variable definition for detect.tcl
#
set detDef   "ideal.det
             1.0 1.0  1  \n";#	detector name,  		\
                                mAs, area, printFlag 		\
                               		   (Flag=1 for labels) 
#
# Execute detect 
set in "$detDef"
if [catch {exec $BIN/detect << $in} detResult] {
        puts stderr "ERROR in DETECT:\n $detResult"
} else {
	puts $detResult
}
	
#
