1 files changed, 51 insertions, 0 deletions
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")
+	}
+}