3 files changed, 66 insertions, 0 deletions
diff --git a/noao/obsutil/lib/noao/kpno/kpno.cl b/noao/obsutil/lib/noao/kpno/kpno.cl
new file mode 100644
index 00000000..01b95349
--- /dev/null
+++ b/noao/obsutil/lib/noao/kpno/kpno.cl
@@ -0,0 +1,13 @@
+#{ KPNO.CL -- KPNO observing utilities package.
+
+package	kpno
+
+task	kpnofocus = "obsnoao$kpno/kpnofocus.cl"
+
+if (access ("spectimedb$")) {
+    set sptimeKPNO = "spectimedb$KPNO/"
+    task mars = "spectimedb$scripts/mars.cl"
+} else
+    ;
+
+clbye
diff --git a/noao/obsutil/lib/noao/kpno/kpnofocus.cl b/noao/obsutil/lib/noao/kpno/kpnofocus.cl
new file mode 100644
index 00000000..a719c81d
--- /dev/null
+++ b/noao/obsutil/lib/noao/kpno/kpnofocus.cl
@@ -0,0 +1,41 @@
+# KPNOFOCUS -- KPNO Focus measuring task.
+# This is customized to the header keywords provided by ICE.
+
+procedure kpnofocus (images)
+
+string	images		{prompt="List of focus images"}
+int	frame = 1	{prompt="Display frame to use"}
+real	level = 0.5	{prompt="Measurement level (fraction or percent)"}
+string	size = "FWHM"	{prompt="Size to display",
+			 enum="Radius|FWHM|GFWHM|MFWHM"}
+real	scale = 1.	{prompt="Pixel scale"}
+real	radius = 5.	{prompt="Measurement radius (pixels)"}
+real	sbuffer = 5.	{prompt="Sky buffer (pixels)"}
+real	swidth = 5.	{prompt="Sky width (pixels)"}
+real	saturation = INDEF {prompt="Saturation level"}
+bool	ignore_sat = no {prompt="Ignore objects with saturated pixels?"}
+int	iterations = 2	{prompt="Number of radius adjustment iterations",
+			 min=1}
+string	logfile = "logfile" {prompt="Logfile"}
+
+begin
+	string	ims
+
+	ims = images
+
+#print ("\nKPNOFOCUS: Estimate best focus from ICE focus images.")
+#print ("  The stars to mark are from the first focus exposure which are the")
+#print ("  top ones in each sequence unless the display is flipped.")
+#print ("  Specifically, they are those with the largest y value in the")
+#print ("  sequence and closest to the double step gap.\n")
+print ("Mark the top star (in unflipped display).")
+
+	starfocus (ims, focus="FOCSTART", fstep="FOCSTEP",
+	    nexposures="FOCNEXPO", step="FOCSHIFT", direction="-line",
+	    gap="beginning", coords="markall", wcs="logical", display=yes,
+	    frame=frame, imagecur="", graphcur="", level=level, size=size,
+	    beta=INDEF, scale=scale, radius=radius, sbuffer=sbuffer,
+	    swidth=swidth, saturation=saturation, ignore_sat=ignore_sat,
+	    xcenter=INDEF, ycenter=INDEF, logfile=logfile,
+	    iterations=iterations)
+end
diff --git a/noao/obsutil/lib/noao/scripts.cl b/noao/obsutil/lib/noao/scripts.cl
new file mode 100644
index 00000000..9b913863
--- /dev/null
+++ b/noao/obsutil/lib/noao/scripts.cl
@@ -0,0 +1,12 @@
+# Logical directories
+
+set obsnoao = (obsutil.custom)
+
+# Database directories.
+
+#set ccdtime = noaolib$ccdtime/
+#set spectimedb = /iraf/extern/noaospectime/
+
+task $kpno.pkg = obsnoao$kpno/kpno.cl
+
+keep