#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   C O R R O S I T E   V A R I A B L E   P O U R   L A   M E R                               #
#         D U   G E N E R A T E U R   D E   C O T E S   B I D I M E N S I O N N E L L E S   E T   E R O S I O N  :                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.COT2.K1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ACorrosite_a             1.0

$Z                  setParam            _____ACorrosite_b             0.0

$Z                  set                 _____ImageC=$xTV/ANTI_CORROSITE

$Z                  Std

$Z                  $xci/format.01$X                                                                                                    \
$Z                                      A=$xiio/MIRE                                                                                    \
$Z                                      mode=0                                                                                          \
$Z                                                                                                  $formatI                            \
$Z                                      R=$_____ImageC                                                                                  \
$Z                                                                                                                      $formatR_Pal

$Z                  Pal

$Z                  $xci/acces$X                                                                                                        \
$Z                                      A=$_____ImageC                                                                                  \
$Z                                      convertir=VRAI                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/scale$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      extrema=FAUX                                                                                    \
$Z                                      a=$_____ACorrosite_a                                                                            \
$Z                                      b=$_____ACorrosite_b                                                                            \
$Z                                      R=$_____ImageC                                                                                  \
$Z                                                                                                                      $formatI