#!/usr/bin/perl
# writewcs.pl
# Program, ki v podane datoteke vpise prave WCS koordinate
#  Jure Skvarc, Marec 1999
#   Definicije parametrov
#=========================
#  Starcount
$prag =10;    # Prag zaznave
$box = 30;    # Velikost okna, v katerem dolocam povprecno vrednost ozadja

$usno   ="/misc/catalogs/usno_SA2";
$catname="/misc/catalogs/gsc";
$tycho  ="/misc/catalogs/Tycho2/data";
$order  = 1;


for $a (@ARGV) {   #  Berem, dokler ni datoteka zaprta
    printf "$a\n";
    #  Obdelam slike
    `starcount -l log.dat -s $prag -n 3.0 -o 10.0 -A -m $box $a`;
    $aless = $a;
    #  Odrezem koncnico fts
    $aless =~ s/\.fts//g;
    #  Naredim match s katalogom in vpisem prave koordinate
    #`catalog -f $aless.dat -e 5.0 -m 10 -D 10 -r 2.5 -b 80 -n 15 -W -A -c tycho2:$tycho -c gscn:$catname -c gscs:$catname -c usno:$usno`;
    #`catalog -f $aless.dat -e 1.0 -m 8 -D 10 -r 0.9 -b 90 -n 15 -W -A -c tycho2:$tycho -c gscn:$catname -c gscs:$catname -c usno:$usno`;
    #`catalog -f $aless.dat -o $order -e 6.0 -m 12 -D 10 -r 0.9 -b 120 -n 15 -W -A -c gscn:$catname -c gscs:$catname -c usno:$usno -c tycho2:$tycho`;
    `catalog -f $aless.dat -o $order -e 6.0 -m 12 -D 10 -r 0.9 -b 120 -n 15 -W -A -c tycho2:$tycho -c gscn:$catname -c gscs:$catname`;
}

