#!/usr/bin/perl

#programcek za snemanje serije slik, sproti posnete slike
#kopira v rezervno mapo, to so riginali za rezervo
#obdela dark, zero in flat
#prikaze sliko v ds9
# obdelane slike ostanejo v mapi data

$s=211;  #prva slika, ki naj jo posname
$slik=12;      #stevilo slik

$time=10;       #cas osvetlitve

$zadnja=$s+$slik;

while ( $s <= $zadnja ){
    $datoteka= "RTAnd" . $s . ".fts";
    print "tx ccd time=$time file=$datoteka object=RT_And \n";
    print `tx ccd time=$time file=$datoteka object=RT_And`;

    # ohrani original
    `cp $datoteka 2002-10-02_RTAnd`;

    # naredi kalibracijo
    `darkflat.sh $datoteka`;

    # pokazi sliko
    `cat $datoteka | xpaset ds9 fits` ;

    print $s,"\n";
    $s=$s+1;
}



