blob: e197a70e632370e660f800f96bc9fa0a133a2e81 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#{ OVERHANDLER -- VOTable SAMP message handler to overlay a catalog on the
# image display.
procedure overhandler (url)
string url { prompt = "VOTable URL" }
int fnum = 0 { prompt = "Test number" }
begin
string tcat
# Get the currently displayed image.
dispname (1)
if (dispname.status != 0)
error (0, "No image displayed")
else
wcsinfo (dispname.name)
tcat = mktemp ("/tmp/cat")
votpos (url, out="STDOUT", verb-, number+, header-, >& tcat)
taboverlay (dispname.name, tcat, lab=1, ra=2, dec=3)
delete (tcat, verify-, >& "dev$null")
end
|
