#!/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   C O L O N N E   D ' U N E   I M A G E  :        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xci/StatColon.01$Z <imageA> [<Niveau> [<NumeroColonne> [<Display>]]]                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/StatColon.01$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20081119161846).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

setArgum  Niveau                        $BLANC

setArgum  NumeroColonne                 $Xmin

setArgum  Display                       $NEXIST

FileTmpB  TeMpOrAiRe
                                        # Image de manoeuvre...                                                                       #

$xci/DuplColon.01$Z $imageA $TeMpOrAiRe $NumeroColonne
                                        # Mis sous cette forme le 20081127105204...                                                   #

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

#20081121133623____:set       FoRmAt="signe=$K_VIDE format=f decimales=2"                                                             #
#20081121140013____: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_Y_=`$xcg/DIVZ.01$X x=$NoMbRe_XY y=$dimX $FoRmAt entier=VRAI`
set       PoUrCeNtAgE=`$xcg/SCAL.01$X x=$NoMbRe_Y_ n=$dimY pourcentage=VRAI convertir_pourcentage=VRAI $FoRmAt`

echo      "Il y a $NoMbRe_Y_ points (soit $PoUrCeNtAgE%) de niveau $Niveau sur la colonne $NumeroColonne de l'image '$imageA'."

FileTmpE  TeMpOrAiRe
                                        # Image de manoeuvre...                                                                       #