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

$Z        source    $xrC/Definitions.01$vv$Y
$Z                                      # Introduit le 20130904221812...                                                              #

$Z        setParam            _____Methode                  "moyenne=VRAI"
$Z                                      # Parametre introduit le 20130620144653...                                                    #

$Z        SETParam            _____Seuiller                 $EXIST

$Z        setParam            _____Seuil                    `GetParam $xci/seuil$X seuil`
$Z                                      # Parametre introduit le 20130621105134...                                                    #

$Z        setParam            _____define                   "$K_VIDE"
$Z                                      # Parametre introduit le 20131218103031...                                                    #

$Z        xrC

$Z        set       PrOgRaMmE=$_____Programme$vv$c

$Z        set       _____ImAgER=$_____imageR.$PostFixeSerieDImages__

$Z        if        (-e $PrOgRaMmE) then
$Z                  $DELETE   $aPout

$Z                  set       DiMeNsIoN=`$xcg/MIN2.01$X x=$dimX y=$dimY`

$Z                  FilSTmpB  RImAgEs

$Z        set       LDeFiNeS=`$CA $PrOgRaMmE | $GRE " DEFINE_" | $SE -e "s/^#define *[^ ][^ ]*  *//g" -e "s/ *\(-D\)/\1/g" -e 's/"//g'`

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

$Z                  set       index=1

$Z                  foreach   DeFiNe ($LDeFiNeS)
$Z                            set       DeFiNe=`echo "$DeFiNe" | $SE -e "s/\(.\)\(-D\)/\1 \2/g"`

$Z                            set       DeFiNe="$DeFiNe"" -DxiirC=$K_QD$xiirC/$K_QD"
$Z                                      # Options introduite le 20140311164102...                                                     #

$Z                            $xCc                                                                                                      \
$Z                                      -lm                                                                                             \
$Z                                      $DeFiNe                                                                                         \
$Z                                      -DdimXY=$DiMeNsIoN                                                                              \
$Z                                      -DCONVERTIR_LE_FICHIER_IMAGE                                                                    \
#20130730113231____:$Z                                      -DSEUIL_DE_BINARISATION=$_____SeuilBinarisation                        \  # \
$Z                                      $_____define                                                                                    \
$Z                                      $PrOgRaMmE

#20130622082730____:$Z                            $aPout                                                                           \  #
#20130622082730____:$Z                                                                                        > $ImAgEs[$index]       #

$Z                            $aPout                                                                                              |     \
$Z                            $xci/neutre$X                                                                                             \
$Z                                      R=$ImAgEs[$index]                                                                               \
$Z                                                                                        $formatI

$Z                            $DELETE   $aPout

$Z                            @         index = $index + 1
$Z                  end

$Z                  set       MeThOdE="$_____Methode"

$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        if        ($_____Seuiller == $EXIST) then
$Z                  $xci/seuil$X                                                                                                        \
$Z                            A=$_____ImAgER                                                                                            \
$Z                            seuil=$_____Seuil                                                                                         \
$Z                            R=$_____ImAgER                                                                                            \
$Z                                                                                        $formatI
$Z        else
$Z        endif

$Z                  FilSTmpE  RImAgEs
$Z        else
$Z                  EROR      "Le programme '$PrOgRaMmE' n'existe pas."
$Z        endif