source: Sophya/trunk/AddOn/TAcq/dispbrpraw.pic@ 3709

# Script pour lire un fichier FITS et afficher des lignes ( contenu des paquets)
# Appel  /Dev/AcquisBAO/Script/dispbrp.pic NomFichierFits CutRow CutCols
delobjs *
set sigo signal0
set basedir /Raid/TestNancay_6avril2009/
# set file $1/$sigo.fits
set file $basedir/Raw_$1/$sigo.fits

echo '----> Opening file ' $file
readfits $file

listobjs 
set cutrow (r<1)
set cutcol (c<5000)
if ( $# > 1 )  then 
  set cutrow $2
endif
echo ' ---- CutRow= ' $cutrow
if ( $# > 2 )  then 
  set cutcol $3
endif
echo ' ---- CutCol= ' $cutcol ' PAS UTILISE'


setaxesatt 'font=helvetica,bold,16 autofontsize=0.05 minorticks'
zone 1 2

plot2d $sigo c val ${cutrow}&&c>23 'blue font=helvetica,bold,16 fixedfontsize connectpoints win'