#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   M A T R I C E   D ' I M A G E S  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirC/.OBJC.NxN.1.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20140206133954).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Methode                  "moyenne=VRAI"

$Z                  FilSTmpB            RImAgEs

$Z                  set                 index=1
$Z                  set                 NImAgEs=$#ListeImages
$Z                  set                 ImAgEs=`$xci/nombres$X A=$RImAgEs. premiere=1 derniere=$NImAgEs`

$Z                  foreach             ImAgE ($ListeImages)
$Z                                      $xci/neutre$X                                                                                   \
$Z                                                          A=$ImAgE                                                                    \
$Z                                                          R=$ImAgEs[$index]                                                           \
$Z                                                                                                                      $formatI
$Z                                      @                   index = $index + 1
$Z                  end

$Z                  if        ($NImAgEs <= 4) then
$Z                            $xci/reduction_04$X                                                                                       \
$Z                                      A=$RImAgEs.                                                                                     \
$Z                                      premiere=1                                                                                      \
$Z                                      derniere=$NImAgEs                                                                               \
$Z                                      pas=1                                                                                           \
$Z                                      $_____Methode                                                                                   \
$Z                                      R=$_____imageR                                                                                  \
$Z                                                                                                  $formatI
$Z                  else
$Z                            if        ($NImAgEs <= 16) then
$Z                                      $xci/reduction_16$X                                                                             \
$Z                                                A=$RImAgEs.                                                                           \
$Z                                                premiere=1                                                                            \
$Z                                                derniere=$NImAgEs                                                                     \
$Z                                                pas=1                                                                                 \
$Z                                                $_____Methode                                                                         \
$Z                                                R=$_____imageR                                                                        \
$Z                                                                                                            $formatI
$Z                            else
$Z                                      if        ($NImAgEs <= 64) then
$Z                                                $xci/reduction_64$X                                                                   \
$Z                                                          A=$RImAgEs.                                                                 \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$NImAgEs                                                           \
$Z                                                          pas=1                                                                       \
$Z                                                          $_____Methode                                                               \
$Z                                                          R=$_____imageR                                                              \
$Z                                                                                                                      $formatI
$Z                                      else
$Z                                                EROR      "Le programme '$PrOgRaMmE' contient trop d'images ($NImAgEs) a generer."
$Z                                      endif
$Z                            endif
$Z                  endif

$Z                  FilSTmpE            RImAgEs