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

for $a (@ARGV) {   #  Berem, dokler ni datoteka zaprta

    $match=`buffers $a |  grep "MATCHED"`;
    #printf $match;

    #if ($match gt "" ) {
    #    printf "$a je že narejeno.\n";
    #    next;
    #}
    #  Obdelam slike
    printf "$a\n";
    `starcount -l log.dat -s $prag -b 20 -c 4 -t 60000 -n 10.0 -o 15.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 -o 3 -m 15 -b 400 -n 20 -e 8.0 -D 20.0 -r 1.5 -E 0.5 -N 7 -X 17 -W -A -c gscs:/home/data/catalogs/gsc -c gscn:/home/data/catalogs/gsc -c usno:/home/data/catalogs/usno_A2`;
}

