#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         S T A T I S T I Q U E   R E L A T I F   A   U N   N I V E A U   D ' U N E   L I G N E   D ' U N E   I M A G E  :            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xci/StatLigne.01$Z <imageA> [<Niveau> [<NumeroLigne> [<Display>]]]                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/StatLigne.01$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20081119133850).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       Niveau=$2
set       NumeroLigne=$3
set       Display=$4
                                        # Parametre introduit le 20081121132944...                                                    #

setArgum  Niveau                        $BLANC

setArgum  NumeroLigne                   $Ymin

setArgum  Display                       $NEXIST

FileTmpB  TeMpOrAiRe
                                        # Image de manoeuvre...                                                                       #

$xci/DuplLigne.01$Z $imageA $TeMpOrAiRe $NumeroLigne
                                        # Mis sous cette forme le 20081127105211...                                                   #

if        ($Display == $EXIST) then
          v         $TeMpOrAiRe
                                        # Possibilite introduite le 20081121132937 et qui permet donc de visualiser la ligne          #
                                        # argument qui occupe alors, par duplication, toute l'image...                                #
else
endif

#20081121133614____:set       FoRmAt="signe=$K_VIDE format=f decimales=2"                                                             #
#20081121140022____:set       FoRmAt="signe=$K_VIDE format=f decimales=3"                                                             #
set       FoRmAt="signe=$K_VIDE format=f decimales=2"

set       NoMbRe_XY=`$xci/comptage$X A=$TeMpOrAiRe origine=$Niveau extremite=$Niveau NL=FAUX $formatI Prme=VRAI`
set       NoMbRe_X_=`$xcg/DIVZ.01$X x=$NoMbRe_XY y=$dimY $FoRmAt entier=VRAI`
set       PoUrCeNtAgE=`$xcg/SCAL.01$X x=$NoMbRe_X_ n=$dimX pourcentage=VRAI convertir_pourcentage=VRAI $FoRmAt`

echo      "Il y a $NoMbRe_X_ points (soit $PoUrCeNtAgE%) de niveau $Niveau sur la ligne $NumeroLigne de l'image '$imageA'."

FileTmpE  TeMpOrAiRe
                                        # Image de manoeuvre...                                                                       #