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

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

$Z        SETParam            _____ImageOctet               $EXIST
$Z                                      # Parametre introduit le 20130821090702...                                                    #

$Z        SETParam            _____define                   "$K_VIDE"
$Z                                      # Parametre introduit le 20131218102717...                                                    #

$Z        xrC

$Z        set       PrOgRaMmE=$_____Programme$vv$c

$Z        set       _____ImAgER=$_____imageR.$PostFixeImageParDefaut

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

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

$Z                  if        ($_____ImageOctet == $EXIST) then
$Z                            set       OpTiOnS="-DCONVERTIR_LE_FICHIER_IMAGE"
$Z                  else
$Z                            set       OpTiOnS="-UCONVERTIR_LE_FICHIER_IMAGE"
$Z                  endif

$Z                  set       OpTiOnS="$OpTiOnS"" -DxiirC=$K_QD$xiirC/$K_QD"
$Z                                      # Options introduite le 20140311164052...                                                     #

$Z                  $xCc                                                                                                                \
$Z                            -lm                                                                                                       \
$Z                            -DdimXY=$DiMeNsIoN                                                                                        \
#20130821090702____:$Z                            -DCONVERTIR_LE_FICHIER_IMAGE                                                     \  #
$Z                            $OpTiOnS                                                                                                  \
#20130730113156____:$Z                            -DSEUIL_DE_BINARISATION=$_____SeuilBinarisation                                  \  #
$Z                            $_____define                                                                                              \
$Z                            $PrOgRaMmE

#20130622082723____:$Z                  $aPout                                                                                     \  #
#20130622082723____:$Z                                                                                             > $_____imageR     #

$Z                  if        ($_____ImageOctet == $EXIST) then
$Z                            $aPout                                                                                              |     \
$Z                            $xci/neutre$X                                                                                             \
$Z                                      R=$_____ImAgER                                                                                  \
$Z                                                                                                                      $formatI
$Z                  else
$Z                            $aPout                                                                                                    \
$Z                                                                                                                      > $_____ImAgER
$Z                                      # Possibilite introduite le 20130821090702 afin de voir comment est le fichier format "bit".  #
$Z                  endif

$Z                  $DELETE   $aPout
$Z        else
$Z                  EROR      "Le programme '$PrOgRaMmE' n'existe pas."
$Z        endif