From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- vendor/voclient/libvoclient/examples/messier.cl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 vendor/voclient/libvoclient/examples/messier.cl (limited to 'vendor/voclient/libvoclient/examples/messier.cl') diff --git a/vendor/voclient/libvoclient/examples/messier.cl b/vendor/voclient/libvoclient/examples/messier.cl new file mode 100644 index 00000000..54926590 --- /dev/null +++ b/vendor/voclient/libvoclient/examples/messier.cl @@ -0,0 +1,22 @@ +# MESSIER -- Loop through the Messier catalog, displaying a DSS image of each. + +procedure messier () + +begin + int qr, stat + string svc, coords = "/tmp/coords" + + reset clobber = yes # Allow file overwrites + + svc = regResolver ("dss","sia") # Find the DSS SIA service + + for (i=1; i < 111; i=i+1) { # Loop over Messier objs + sesame ("M"//i,verb+) | scan (x,y) # Resolve name to coords + print ("30 30 0 :text M"//i, > coords) + + qr = dalSiapSvc (svc, x, y, 0.25) # Query for data + stat = dalGetData (qr, 0, "foo.fits") # Download 1st image + display ("foo.fits[0]", 1) # Display it + tvmark (1,"",commands=coords,txsiz=5,col=205) # Label it + } +end -- cgit