| Last change
 on this file since 4061 was             3591, checked in by ansari, 17 years ago | 
        
          | 
Ajout script d'affichage/verification donnees fits BAORadio - Reza 03/04/2009
 | 
        
          | File size:
            716 bytes | 
      
      
| Rev | Line |  | 
|---|
| [3591] | 1 |  | 
|---|
|  | 2 | # Script pour lire un fichier FITS et afficher des lignes ( contenu des paquets) | 
|---|
|  | 3 | # Appel  /Dev/AcquisBAO/Script/dispbrp.pic NomFichierFits CutRow CutCols | 
|---|
|  | 4 | delobjs * | 
|---|
|  | 5 | set sigo signal0 | 
|---|
|  | 6 | set basedir /Raid/TestNancay_6avril2009/ | 
|---|
|  | 7 | # set file $1/$sigo.fits | 
|---|
|  | 8 | set file $basedir/Raw_$1/$sigo.fits | 
|---|
|  | 9 |  | 
|---|
|  | 10 | echo '----> Opening file ' $file | 
|---|
|  | 11 | readfits $file | 
|---|
|  | 12 |  | 
|---|
|  | 13 | listobjs | 
|---|
|  | 14 | set cutrow (r<1) | 
|---|
|  | 15 | set cutcol (c<5000) | 
|---|
|  | 16 | if ( $# > 1 )  then | 
|---|
|  | 17 | set cutrow $2 | 
|---|
|  | 18 | endif | 
|---|
|  | 19 | echo ' ---- CutRow= ' $cutrow | 
|---|
|  | 20 | if ( $# > 2 )  then | 
|---|
|  | 21 | set cutcol $3 | 
|---|
|  | 22 | endif | 
|---|
|  | 23 | echo ' ---- CutCol= ' $cutcol ' PAS UTILISE' | 
|---|
|  | 24 |  | 
|---|
|  | 25 |  | 
|---|
|  | 26 | setaxesatt 'font=helvetica,bold,16 autofontsize=0.05 minorticks' | 
|---|
|  | 27 | zone 1 2 | 
|---|
|  | 28 |  | 
|---|
|  | 29 | plot2d $sigo c val ${cutrow}&&c>23 'blue font=helvetica,bold,16 fixedfontsize connectpoints win' | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.