blob: ac0c6bc1d9e377d2d9c7fe3a0b6cd8413097c10a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# ASTRADIUS -- Find images within a radius.
procedure astradius (images, racenter, deccenter, epcenter, radius)
string images = "" {prompt="List of images"}
string racenter = "" {prompt="RA center (hours)"}
string deccenter = "" {prompt="DEC center (degrees)"}
real epcenter = 2000. {prompt="Epoch of center"}
real radius = 60. {prompt="Radius in arc seconds"}
pset keywpars = "" {prompt="Keywords for RA, DEC, EPOCH\n"}
file commands = "astutil$astradius.dat" {prompt="ASTCALC file"}
begin
astcalc (commands=commands, images=images, table="", verbose=no)
end
|
