#######################################################################################################################################
#                                                                                                                                     #
#         M U L T I P L E X A G E   N O I R   E T   B L A N C / C O U L E U R S  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirC/.OBJC.A1e.3.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20160119134942).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____PaletteI                 $xiP/gris.01
$Z                                      # Argument introduit le 20160113094252...                                                     #

$Z                  setParam            _____PaletteA                 $xiP/cercle.35
$Z                                      # Argument introduit le 20160113094252...                                                     #

$Z                  FilSTmpB  FHiStOgRaMmE

$Z                  $xci/histogramme$X                                                                                                  \
$Z                                      A=$_____Image_RDN__                                                                             \
$Z                                      alpha_numerique=VRAI                                                                            \
$Z                                      Prme=VRAI                                                                                       \
$Z                                                                                        $formatI                                      \
$Z                                                                                                            >> $FHiStOgRaMmE


$Z                  set  NoIr=`$CA $FHiStOgRaMmE | $AW ' { print $1 } ' | $GRE "($NOIR)" | $SE -e 's/^.*=//' -e 's/^0*\(.\)$/\1/'`
$Z                  set  BlAnC=`$CA $FHiStOgRaMmE | $AW ' { print $1 } ' | $GRE "($BLANC)" | $SE -e 's/^.*=//' -e 's/^0*\(.\)$/\1/'`
$Z                  @         NoIr_BlAnC = $NoIr + $BlAnC

$Z                  FilSTmpE  FHiStOgRaMmE

#20160113102709____:$Z                  if                  ($_____Image_RDN__ == $xiirC/OBJC.K1___.11) then                          #
$Z                  if                  ($NoIr_BlAnC != $tailleI) then
$Z                                      # Cas ou '$_____Image_RDN__' utilise d'autres niveaux que le NOIR et le BLANC (test           #
$Z                                      # introduit le 20160113094252...).                                                            #
$Z                                      $xci/vraies_C$X                                                                                 \
$Z                                                          A=$xTV/IMMEUBLES                                                            \
$Z                                                          p=$_____PaletteI                                                            \
$Z                                                          R=$xTV/IMMEUBLES                                                            \
$Z                                                                                                            $formatI
$Z                                      $xci/vraies_C$X                                                                                 \
$Z                                                          A=$xTV/ALEATOIRES                                                           \
$Z                                                          p=$_____PaletteA                                                            \
$Z                                                          R=$xTV/ALEATOIRES                                                           \
$Z                                                                                                            $formatI

$Z                                      execRVB   $xci/or_02$X                                                                          \
$Z                                                                    A1=$xTV/IMMEUBLES%s                                               \
$Z                                                                    A2=$xTV/ALEATOIRES%s                                              \
$Z                                                                    R=$_____imageR%s                                                  \
$Z                                                                                                                      $formatI
$Z                                      # Dans le cas d'une '$_____Image_RDN__' utilisant tous les niveaux, on passe en vraies        #
$Z                                      # couleurs (introduit le 20160113094252)...                                                   #
$Z                  else
$Z                                      # Cas ou '$_____Image_RDN__' ne contient que du NOIR et du BLANC...                           #
$Z                  endif