1 files changed, 66 insertions, 0 deletions
diff --git a/noao/imred/vtel/makeimages.cl b/noao/imred/vtel/makeimages.cl
new file mode 100644
index 00000000..1da6b832
--- /dev/null
+++ b/noao/imred/vtel/makeimages.cl
@@ -0,0 +1,66 @@
+#{ MAKEIMAGES --
+
+# 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("scratch$"//inroot//"001")) {
+	    readvt ("scratch$"//inroot//"001", inroot//"tmp1")
+	    quickfit (inroot//"tmp1001",verbose=yes)
+	    rmap (inroot//"tmp1001",outroot//"a1",outroot//"a3",
+		outroot//"a2","H"//outroot//"a")
+	    delete ("scratch$"//inroot//"001")
+	    imdelete (inroot//"tmp1001")
+	} else {
+	    print ("scratch$"//inroot//"001 not accessable")
+	}
+
+	if (access("scratch$"//inroot//"002")) {
+	    readvt ("scratch$"//inroot//"002", inroot//"tmp2")
+	    quickfit (inroot//"tmp2001",verbose=yes)
+	    rmap (inroot//"tmp2001",outroot//"b1",outroot//"b3",
+		outroot//"b2","H"//outroot//"b")
+	    delete ("scratch$"//inroot//"002")
+	    imdelete (inroot//"tmp2001")
+	} else {
+	    print ("scratch$"//inroot//"002 not accessable")
+	}
+
+	if (access("scratch$"//inroot//"003")) {
+	    readvt ("scratch$"//inroot//"003", inroot//"tmp3")
+	    quickfit (inroot//"tmp3001",verbose=yes)
+	    rmap (inroot//"tmp3001",outroot//"c1",outroot//"c3",
+		outroot//"c2","H"//outroot//"c")
+	    delete ("scratch$"//inroot//"003")
+	    imdelete (inroot//"tmp3001")
+	} else {
+	    print ("scratch$"//inroot//"003 not accessable")
+	}
+
+	if (access("scratch$"//inroot//"004")) {
+	    readvt ("scratch$"//inroot//"004", inroot//"tmp4")
+	    quickfit (inroot//"tmp4001",verbose=yes)
+	    rmap (inroot//"tmp4001",outroot//"d1",outroot//"d3",
+		outroot//"d2","H"//outroot//"d")
+	    delete ("scratch$"//inroot//"004")
+	    imdelete (inroot//"tmp4001")
+	} else {
+	    print ("scratch$"//inroot//"004 not accessable")
+	}
+
+	if (access("scratch$"//inroot//"005")) {
+	    readvt ("scratch$"//inroot//"005", inroot//"tmp5")
+	    quickfit (inroot//"tmp5001",verbose=yes)
+	    rmap (inroot//"tmp5001",outroot//"e1",outroot//"e3",
+		outroot//"e2","H"//outroot//"e")
+	    delete ("scratch$"//inroot//"005")
+	    imdelete (inroot//"tmp5001")
+	} else {
+	    print ("scratch$"//inroot//"005 not accessable")
+	}
+}