From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 noao/imred/crutil/src/crfix.cl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 noao/imred/crutil/src/crfix.cl

(limited to 'noao/imred/crutil/src/crfix.cl')

diff --git a/noao/imred/crutil/src/crfix.cl b/noao/imred/crutil/src/crfix.cl
new file mode 100644
index 00000000..68947c7a
--- /dev/null
+++ b/noao/imred/crutil/src/crfix.cl
@@ -0,0 +1,20 @@
+# CRFIX -- Replace cosmic rays in an image using a cosmic ray mask.
+
+procedure crfix (input, output, crmask)
+
+file	input 			{prompt="Input image"}
+file	output 			{prompt="Output image"}
+file	crmask 			{prompt="Cosmic ray mask"}
+
+begin
+	file	in, out, crm
+
+	in = input
+	out = output
+	crm = crmask
+
+	if (in != out)
+	    imcopy (in, out, verbose=no)
+	fixpix (out, crm, linterp="INDEF", cinterp="INDEF", verbose=no,
+	    pixels=no)
+end
-- 
cgit