#######################################################################################################################################
#                                                                                                                                     #
#         P A R A D O X E   D U   C O N T R A S T E   S I M U L T A N E  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.PARA.3.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____hMire                    1
$Z                                      # Introduit le 20031015123629.                                                                #

$Z                  SETParam            _____SMire                    $NEXIST
$Z                                      # Introduit le 20140324094818.                                                                #

$Z                  setParam            _____Niveau                   $GRIS_5

$Z                  setParam            _____Translation              0.25

$Z                  setParam            _____Format1                  "$formatR_Puq"
$Z                  setParam            _____Format2                  "$format_Puq"
$Z                                      # Introduit le 20240627093751.                                                                #

#20240627093225____:$Z                  Pal                                                                                           #

$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$NOIR                                                                                    \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/mire$X                                                                                                         \
$Z                                      absolue=FAUX                                                                                    \
$Z                                      h=$_____hMire                                                                                   \
$Z                                      R=$xTV/MIRE                                                                                     \
$Z                                                                                                  $formatI

$Z                  if                  ($_____SMire == $EXIST) then
$Z                                      $xci/seuil$X                                                                                    \
$Z                                                          A=$xTV/MIRE                                                                 \
$Z                                                          seuil=$GRIS_4                                                               \
$Z                                                          R=$xTV/MIRE                                                                 \
$Z                                                                                                                      $formatI
$Z                  else
$Z                  endif

#20240627093751____:$Z                  $xci/init$X                                                                                \  #
#20240627093751____:$Z                                      niveau=$_____Niveau                                                    \  #
#20240627093751____:$Z                                                                                   $formatI            |     \  #
#20240627093751____:$Z                  $xci/format.01$X                                                                           \  #
#20240627093751____:$Z                                      mode=0                                                                 \  #
#20240627093751____:$Z                                                                                   $formatI                  \  #
#20240627093751____:$Z                                                                                   $formatR_Puq        |     \  #
#20240627093751____:$Z                  $xci/format.01$X                                                                           \  #
#20240627093751____:$Z                                      mode=7                                                                 \  #
#20240627093751____:$Z                                      R=$xTV/CARRE                                                           \  #
#20240627093751____:$Z                                                                                   $format_Puq               \  #
#20240627093751____:$Z                                                                                   $formatR_Pal                 #

$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$_____Niveau                                                                             \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/format.01$X                                                                                                    \
$Z                                      mode=0                                                                                          \
$Z                                                                                                  $formatI                            \
$Z                                                                                                  $_____Format1                 |     \
$Z                  $xci/format.01$X                                                                                                    \
$Z                                      mode=7                                                                                          \
$Z                                      R=$xTV/CARRE                                                                                    \
$Z                                                                                                  $_____Format2                       \
$Z                                                                                                  $formatIR

$Z                  $xci/move$X                                                                                                         \
$Z                                      A=$xTV/CARRE                                                                                    \
$Z                                      xR=-$_____Translation                                                                           \
$Z                                      R=$xTV/CARRE$GAUCHE                                                                             \
$Z                                                                                                  $formatI
$Z                  $xci/move$X                                                                                                         \
$Z                                      A=$xTV/CARRE                                                                                    \
$Z                                      xR=+$_____Translation                                                                           \
$Z                                      R=$xTV/CARRE$DROITE                                                                             \
$Z                                                                                                  $formatI

$Z                  $xci/or_02$X                                                                                                        \
$Z                                      A1=$xTV/CARRE$GAUCHE                                                                            \
$Z                                      A2=$xTV/CARRE$DROITE                                                                            \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      A=$xTV/MIRE                                                                                     \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                  $formatI