#######################################################################################################################################
#                                                                                                                                     #
#         C H A N G E M E N T   D E   F O R M A T   D E S   C O U P E S   D E   L A   S U R F A C E                                   #
#         D U   G E N E R A T E U R   D E   C O T E S   T R 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/.COT3.21.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $xci/acces_3D.11$X                                                                                                  \
$Z                                      A=$_____ImageF                                                                                  \
$Z                                      premiere=`expr $Premiere + 1`                                                                   \
$Z                                      Zmin=$Premiere Zmax=`expr $Derniere - 1`                                                        \
$Z                                      extrema=VRAI                                                                                    \
$Z                                      tronquer=FAUX                                                                                   \
$Z                                      R=$xTV/COT3.3.                                                                                  \
$Z                                                                                                  $formatI

$Z                  @                   NuMeRo_TeRrE = $NuMeRo_MeR + 1
$Z                                      # L'image qui correspondait initialement a la mer ('$NuMeRo_MeR') n'est pas a traiter car,    #
$Z                                      # en effet, son contenu est d'une nature differente de celui des images suivantes qui         #
$Z                                      # donnent l'historique de l'erosion grace a {$_____PointsErodes,$_____DPointsErodes}.         #
$Z                                      #                                                                                             #
$Z                                      # ATTENTION : '$NuMeRo_TeRrE' est un index dans '$LiStE_ImAgEs' et non pas un numero d'image. #
$Z                  @                   Premiere = $Premiere + 1
$Z                                      # Meme remarque que ci dessus et ce en vue du '$xci/accumule.02$X' qui va suivre...           #

$Z                  while               ($NuMeRo_TeRrE <= $#LiStE_ImAgEs)
$Z                                      $xci/complement$X                                                                               \
$Z                                                          A=$xTV/COT3.3.$LiStE_ImAgEs[$NuMeRo_TeRrE]                                  \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/format.01$X                                                                                \
$Z                                                          $formatI                                                                    \
$Z                                                          mode=2                                                                      \
$Z                                                          R=$xTV/COT3.1.$LiStE_ImAgEs[$NuMeRo_TeRrE]                                  \
$Z                                                                                                                      $formatR_Pal
$Z
$Z                                      @                   NuMeRo_TeRrE = $NuMeRo_TeRrE + 1
$Z                  end