#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   C O N D I T I O N S   I N I T I A L E S                                                       #
#         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.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 LiStE_ImAgEs=`$xci/nombres$X premiere=$Premiere derniere=$Derniere`

$Z                  set                 PaRaM_GrAiNeS="inf=1000 sup=9999 graine=1234 e=VRAI compatibilite_20020306=VRAI CAL1=FAUX"
$Z                  set                 LiStE_GrAiNeS=`$xci/valeurs_alea$X premiere=$Premiere derniere=$Derniere $PaRaM_GrAiNeS`
$Z                                      # Le 20011218133414, la borne 'sup=' est passee de 10000 a 9999, suite a la modification      #
$Z                                      # 'v $xci/valeurs_alea$K 20011216160849'. Le 20020311144352 j'ai introduit l'option           #
$Z                                      # "compatibilite_20020306=VRAI" afin d'etre compatible avec les generations anterieures       #
$Z                                      # au 20020306171034 ('v $xci/valeurs_alea$K 20020306171034').                                 #

$Z                  set                 NiVeAu_MeR=+1
$Z                  set                 NiVeAu_TeRrE=-1
$Z                  set                 NiVeAu_MeDiAn=`calcul (($NiVeAu_TeRrE)+($NiVeAu_MeR))/2`

$Z                  set                 NuMeRo_MeR=1
$Z                                      # ATTENTION : '$NuMeRo_MeR' est un index dans '$LiStE_ImAgEs' et non pas un numero d'image.   #

$Z                  $xci/init$X                                                                                                         \
$Z                                      valeur=$NiVeAu_MeR                                                                              \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/INITIAL.$LiStE_ImAgEs[$NuMeRo_MeR]                                                       \
$Z                                                                                                  $formatI

$Z                  @                   NuMeRo_TeRrE = $NuMeRo_MeR + 1
$Z                                      # ATTENTION : '$NuMeRo_TeRrE' est un index dans '$LiStE_ImAgEs' et non pas un numero d'image. #

$Z                  while               ($NuMeRo_TeRrE <= $#LiStE_ImAgEs)
$Z                                      $xci/random.01$X                                                                                \
$Z                                                          inf=$NiVeAu_TeRrE                                                           \
$Z                                                          sup=$NiVeAu_MeDiAn                                                          \
$Z                                                          standard=FAUX                                                               \
$Z                                                          graine=$LiStE_GrAiNeS[$NuMeRo_TeRrE]                                        \
$Z                                                          R=$xTV/INITIAL.$LiStE_ImAgEs[$NuMeRo_TeRrE]                                 \
$Z                                                                                                                      $formatI
$Z
$Z                                      @                   NuMeRo_TeRrE = $NuMeRo_TeRrE + 1
$Z                  end