1 files changed, 59 insertions, 0 deletions
diff --git a/vo/votest/mkcache.cl b/vo/votest/mkcache.cl
new file mode 100644
index 00000000..2783e236
--- /dev/null
+++ b/vo/votest/mkcache.cl
@@ -0,0 +1,59 @@
+#{ MKCACHE.CL -- Execute queries that will load our cache for demos when
+#                we're not online.
+
+procedure mkcache ()
+
+bool	list 		= no		{ prompt = "List available tests"    }
+bool	verbose 	= yes		{ prompt = "Verbose output?"         }
+real	size		= 0.15		{ prompt = "search size"             }
+bool	do_sesame	= no		{ prompt = "Sesame cache?"	     }
+bool	do_dss  	= no		{ prompt = "DSS cache?"	     }
+bool	do_2mass	= yes		{ prompt = "2MASS cache?"	     }
+
+
+begin
+    real   sz
+    int    N
+
+    sz    = size
+
+
+
+    # Cache positions from Sesame.
+    # ----------------------------
+    if (do_sesame) {
+        for (N=1; N <= 110; N=N+1) { 		# 110 Messier Objects
+	    print ("Sesame: m" // N)
+	    sesame ("m"//N, verb+)
+	}
+        for (N=1; N <= 7840; N=N+1) { 		# 7840 NGC Objects
+	    print ("Sesame: NGC" // N)
+	    sesame ("ngc"//N, verb+)
+	}
+    }
+
+    # Cache images of Messier Catalog.
+    if (do_dss) {
+        for (N=1; N <= 110; N=N+1) {
+	    print ("DSS: m" // N)
+	    dss ("m" // N, size=sz)
+        }
+    }
+
+
+    # Cache images of Messier Catalog.
+    if (do_2mass) {
+	getcat.otype = "votable"
+	getcat.size  = sz
+        for (i=1; i <= 110; i=i+1) {
+	    print ("2MASS: m" // i)
+	    iferr {
+	        getcat ("2mass-psc", "m"//i, out="m"//i//"_psc")
+	    } then {
+		print ("Error")
+	    }
+	    #votpos ("m"//i//"_psc", out="m"//i//"_pos.txt")
+	    #taboverlay ("m"//i, "m"//i//"_pos.txt")
+        }
+    }
+end