1 files changed, 77 insertions, 0 deletions
diff --git a/noao/imred/quadred/src/quad/qnoproc.cl b/noao/imred/quadred/src/quad/qnoproc.cl
new file mode 100644
index 00000000..9f7d048f
--- /dev/null
+++ b/noao/imred/quadred/src/quad/qnoproc.cl
@@ -0,0 +1,77 @@
+procedure qnoproc (image_list)
+
+begin
+	string	image, buffer, imtype
+	int	i, len, nampsx, nampsy, nlines
+	bool	dofix, dotrim, doover
+
+	imtype = "." // envget ("imtype")
+	i = stridx (",", imtype)
+	if (i > 0)
+	    imtype = substr (imtype, 1, i-1)
+	i = strlen (imtype)
+
+	dofix  = fixpix
+	doover = overscan
+	dotrim = trim
+
+	fd = image_list
+	while (fscan (fd, image) != EOF) {
+
+	    len = strlen (image)
+	    if (substr(image, len-i+1, len) == imtype) {
+		image = substr (image, 1, len-i)
+	    }
+
+	    # Report what processing steps will be performed by qproc
+	    printf ("%s:", image)
+
+	    if (fixpix) {
+		ccdgetparam (image, "fixpix") | scan (buffer)
+		dofix =  (buffer == "UNDEFINED!")
+	    }
+
+	    if (overscan) {
+		ccdgetparam (image, "overscan") | scan (buffer)
+		doover = (buffer == "UNDEFINED!") 
+	    }
+
+	    if (trim) {
+		ccdgetparam (image, "trim") | scan (buffer)
+		dotrim = (buffer == "UNDEFINED!") 
+	    }
+
+	    if (dofix || dotrim || doover) {
+		ccdgetparam (image, "nampsyx") | scan (nampsy, nampsx)
+		if (nampsx == 2 && nampsy == 2) {
+		    printf (" (Quad-readout image)\n")
+		} else if (nampsx == 2 || nampsy == 2) {
+		    printf (" (Dual-readout image: nampsx=%d nampsy=%d)\n",
+		    nampsx, nampsy)
+		} else {
+		    printf ("\n")
+		}
+		
+		if (doover) {
+		    printf ("  [TO BE DONE] Trim section is:\n")
+		    #quadsections (image, window="trimsec", section="", 
+		    #template="%18tAMP$A $S\n", xskip1=xskip1, xskip2=xskip2,
+		    #xtrim1=xtrim1, xtrim2=xtrim2, ytrim1=ytrim1, ytrim2=ytrim2)
+		    quadsections (image, window="trimsec", section="", 
+		    template="%18tAMP$A $S\n")
+		}
+
+		if (dofix)
+		    printf ("  [TO BE DONE] Bad pixel file is %s\n", fixfile)
+
+		if (doover) {
+		    printf ("  [TO BE DONE] Overscan section is:\n")
+		    #quadsections (image, window="biassec", section="", 
+		    #template="%18tAMP$A $S\n", xskip1=xskip1, xskip2=xskip2,
+		    #xtrim1=xtrim1, xtrim2=xtrim2, ytrim1=ytrim1, ytrim2=ytrim2)
+		    quadsections (image, window="biassec", section="", 
+		    template="%18tAMP$A $S\n")
+		}
+	    }
+	}
+end