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/vtel/makehelium.cl | 51 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 noao/imred/vtel/makehelium.cl

(limited to 'noao/imred/vtel/makehelium.cl')

diff --git a/noao/imred/vtel/makehelium.cl b/noao/imred/vtel/makehelium.cl
new file mode 100644
index 00000000..5cab8696
--- /dev/null
+++ b/noao/imred/vtel/makehelium.cl
@@ -0,0 +1,51 @@
+#{ MAKEHELIUM --
+
+# getinroot,s,a,,,,Input root file name
+# getoutroot,s,a,,,,Root filename for output images
+# inroot,s,h
+# outroot,s,h
+
+{
+	inroot = getinroot
+	outroot = getoutroot
+
+	if (access(inroot//"1.imh")) {
+	    rmap (inroot//"1", outroot//"a1", outroot//"a3", outroot//"a2",
+		"H"//outroot//"a")
+	    imdelete (inroot//"1")
+	} else {
+	    print (inroot//"1 not accessable")
+	}
+
+	if (access(inroot//"2.imh")) {
+	    rmap (inroot//"2", outroot//"b1", outroot//"b3", outroot//"b2",
+		"H"//outroot//"b")
+	    imdelete (inroot//"2")
+	} else {
+	    print (inroot//"2 not accessable")
+	}
+
+	if (access(inroot//"3.imh")) {
+	    rmap (inroot//"3", outroot//"c1", outroot//"c3", outroot//"c2",
+		"H"//outroot//"c")
+	    imdelete (inroot//"3")
+	} else {
+	    print (inroot//"3 not accessable")
+	}
+
+	if (access(inroot//"4.imh")) {
+	    rmap (inroot//"4", outroot//"d1", outroot//"d3", outroot//"d2",
+		"H"//outroot//"d")
+	    imdelete (inroot//"4")
+	} else {
+	    print (inroot//"4 not accessable")
+	}
+
+	if (access(inroot//"5.imh")) {
+	    rmap (inroot//"5", outroot//"e1", outroot//"e3", outroot//"e2",
+		"H"//outroot//"e")
+	    imdelete (inroot//"5")
+	} else {
+	    print (inroot//"5 not accessable")
+	}
+}
-- 
cgit