#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   L A   M I R E   P A R A D O X A L E  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PARADOXE.21.1.$U' :                                                                                      #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20161014125720).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Profile                  $NEXIST

$Z                  setParam            _____Facteur                  0.5

$Z                  set                 _____ImagesT=$xTV/MIRE

$Z                  if                  ($_____Profile == $NEXIST) then
$Z                                      $xci/vraies_C$X     A=$_____ImagesM                                                             \
$Z                                                          p=$xiP/dentscie.01                                                          \
$Z                                                          R=$_____ImagesT.0001                                                        \
$Z                                                                                                                      $formatI

$Z                                      $xci/vraies_C$X     A=$_____ImagesM                                                             \
$Z                                                          p=$xiP/dentscie.04                                                          \
$Z                                                          R=$_____ImagesT.0002                                                        \
$Z                                                                                                                      $formatI

$Z                                      $xci/vraies_C$X     A=$_____ImagesM                                                             \
$Z                                                          p=$xiP/dentscie.12                                                          \
$Z                                                          R=$_____ImagesT.0003                                                        \
$Z                                                                                                                      $formatI

$Z                                      $xci/vraies_C$X     A=$_____ImagesM                                                             \
$Z                                                          p=$xiP/cercle.22                                                            \
$Z                                                          R=$_____ImagesT.0004                                                        \
$Z                                                                                                                      $formatI
$Z                  else
$Z                                      S

$Z                                      GProfilP            $xiP/dentscie.01    $_____ImagesT.0001
$Z                                      GProfilP            $xiP/dentscie.04    $_____ImagesT.0002
$Z                                      GProfilP            $xiP/dentscie.12    $_____ImagesT.0003
$Z                                      GProfilP            $xiP/cercle.22      $_____ImagesT.0004
$Z                  endif

$Z        execRVB   $xci/reduction_04$X A=$xTV/MIRE.                                                                                    \
$Z                                      premiere=1 pas=1                                                                                \
$Z                                      postfixe=%s                                                                                     \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                                      $formatI

$Z                  $xci/scale$X        A=$xiio/CADRE.04                                                                                \
$Z                                      a=$_____Facteur                                                                                 \
$Z                                      R=$xTV/CADRE                                                                                    \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/cache$X        A=$_____ImageR%s                                                                                \
$Z                                      M=$xTV/CADRE                                                                                    \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                                      $formatI