#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I A T I O N   D E   D E U X                                                                                     #
#         A U T O M A T E S   C E L L U L A I R E S   M O N O D I M E N S I O N N E L S   B I N A I R E S                             #
#         E L E M E N T A I R E S   A L T E R N E S  :                                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.AC1B.8.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20081118103000).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Niveau1                  $GRIS_8

$Z                  setParam            _____Niveau2                  $GRIS_4

$Z                  set                 PaRaM="$K_VIDE"
$Z                  set                 PaRaM="$PaRaM"" normaliser=VRAI"
$Z                  set                 PaRaM="$PaRaM"" abscisse=FAUX"
$Z                  set                 PaRaM="$PaRaM"" ordonnee=VRAI"
$Z                  set                 PaRaM="$PaRaM"" profondeur=FAUX"
$Z                  set                 PaRaM="$PaRaM"" niveau=FAUX"
$Z                  set                 PaRaM="$PaRaM"" signe=$K_VIDE"

$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$NOIR                                                                                    \
$Z                                      R=$xTV/BANDES                                                                                   \
$Z                                                                                                  $formatI


$Z                  SformatI

$Z                  XYmaxNe             $Xmin $Xmax $Ymin $_____DYmax1

$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$_____Niveau1                                                                            \
$Z                                      ValiderAxes=FAUX                                                                                \
$Z                                      R=$xTV/BANDE.1                                                                                  \
$Z                                                                                                  $formatI

$Z                  XYmaxNe             $Xmin $Xmax $Ymin $_____DYmax2

$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$_____Niveau2                                                                            \
$Z                                      ValiderAxes=FAUX                                                                                \
$Z                                      R=$xTV/BANDE.2                                                                                  \
$Z                                                                                                  $formatI

$Z                  RformatI

$Z                  set                 _____Ymin=$Ymin

$Z                  while               ($_____Ymin < $Ymax)
$Z                                      @                   _____Ymax = $_____Ymin + $_____DYmax1

$Z                                      set                 Rtry=`$xci/coordonnees$X $PaRaM y=$_____Ymin`

$Z                                      SformatI
$Z                                      XYmaxNe             $Xmin $Xmax $Ymin $_____DYmax1

$Z                                      $xci/format.01$X                                                                                \
$Z                                                          A=$xTV/BANDE.1                                                              \
$Z                                                                                                                      $formatI        \
$Z                                                          mode=8                                                                      \
$Z                                                          Rtrx=0 Rtry=$Rtry                                                           \
$Z                                                          ValiderAxes=FAUX                                                            \
$Z                                                          R=$xTV/BANDE                                                                \
$Z                                                                                                                      $formatR_Pal

$Z                                      RformatI

$Z                                      $xci/or_02$X                                                                                    \
$Z                                                          A1=$xTV/BANDE                                                               \
$Z                                                          A2=$xTV/BANDES                                                              \
$Z                                                          R=$xTV/BANDES                                                               \
$Z                                                                                                                      $formatI

$Z                                      @                   _____Ymin = $_____Ymax + 1
$Z                                      @                   _____Ymax = $_____Ymin + $_____DYmax2

$Z                                      set                 Rtry=`$xci/coordonnees$X $PaRaM y=$_____Ymin`

$Z                                      SformatI
$Z                                      XYmaxNe             $Xmin $Xmax $Ymin $_____DYmax2

$Z                                      $xci/format.01$X                                                                                \
$Z                                                          A=$xTV/BANDE.2                                                              \
$Z                                                                                                                      $formatI        \
$Z                                                          mode=8                                                                      \
$Z                                                          Rtrx=0 Rtry=$Rtry                                                           \
$Z                                                          ValiderAxes=FAUX                                                            \
$Z                                                          R=$xTV/BANDE                                                                \
$Z                                                                                                                      $formatR_Pal

$Z                                      RformatI

$Z                                      $xci/or_02$X                                                                                    \
$Z                                                          A1=$xTV/BANDE                                                               \
$Z                                                          A2=$xTV/BANDES                                                              \
$Z                                                          R=$xTV/BANDES                                                               \
$Z                                                                                                                      $formatI

$Z                                      @                   _____Ymin = $_____Ymax + 1
$Z                  end

$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/BANDES                                                                                  \
$Z                                      A2=$_____ImageR                                                                                 \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                  $formatI