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

for $a (@ARGV) {   #  Berem, dokler ni datoteka zaprta
    printf "$a\n";
    #  Obdelam slike
    #`starcount -l log.dat -s $prag -n 4.0  -o 10.0 -A -m $box $a`;
    $aless = $a;
    #  Odrezem koncnico fts
    $aless =~ s/\.fts//g;
    for ($j = 1; $j <= 5; $j++) {
	#  Naredim match s katalogom in vpisem prave koordinate
	`catalog -l log.dat -f $aless.dat -o $j -e 3 -m 12 -D 10 -b 100 -n 12 -r 4 -c gscn:/home/jure/astro/katalogi/gsc gscs:/home/jure/astro/katalogi/gsc -A`;
	`cp $aless.dat $aless-$j.dat`;
    }
}