#!/bin/csh
####################################################
#	Get one strip from Tycho2
####################################################
# Structure of output:
# Tnum  Tycho-2 RAmas SDPmas
####################################################

if ($#argv < 1) then
    echo "Usage: $0 strip_number..."
    exit 0
endif

while ($#argv>0)
    set z = `echo $1 | gawk '{print $1/10 - 90 + 0.05}'`
    shift
    echo "-source=1259" > tycho.in
    echo "-out.max=99999" >> tycho.in
    echo "-out=recno,TYC1,TYC2,TYC3,_RAJ,_DEJ" >> tycho.in
    echo2 "DE(ICRS)=$z+/-0.06"
    echo "DE(ICRS)=$z+/-0.06" >> tycho.in
    vizquery -mime=tsv < tycho.in | gawk '\
     /^#Name:.*_1/{o=2539913}\
     /^#Name:.*_2/{o=2557501}\
     /^recno/{getline; getline; getline; n=1}\
     /^$/{n=0} { if(n>0) {\
       a = int($5*3.6e6); s = int(($6+90.)*3.6e6); \
       print $1+o, $2 "-" $3 "-" $4, a, s; \
     }}' 
end