#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   L I S T E S   D E S   V I T E S S E S   I N I T I A L E S                                     #
#         E N   C O O R D O N N E S   S P H E R I Q U E S  :                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.m.53.1.$U' :                                                                                  #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MVitesse                 0.02

$Z                  setParam            _____mVitesse                 $_____MVitesse
$Z                                      # Introduit le 20080415162850 pour plus de generalite...                                      #

$Z                  setParam            _____ThetaMin                 0.0

$Z                  setParam            _____ThetaMax                 $pi

$Z                  setParam            _____PhiMin                   0.0

$Z                  setParam            _____PhiMax                   $dpi

$Z                  setParam            _____NaissanceMin             0

$Z                  setParam            _____NaissanceMax             0

$Z                  setParam            _____CollageMin               $EXIST

$Z                  setParam            _____CollageMax               $EXIST

$Z                  setParam            _____KCollageMin              1

$Z                  setParam            _____KCollageMax              1

$Z                  setParam            _____CollisionMin             $EXIST

$Z                  setParam            _____CollisionMax             $EXIST

$Z                  SETParam            _____ImmobilisMin             $INFINI
$Z                                      # Pour eviter des problemes de debordement ulterieur...                                       #
$Z                                      #                                                                                             #
$Z                                      # Le 20081211121109, a cause de 'v $xEa/listG$vv$Y 20081211121312', les 'set's ont ete        #
$Z                                      # remplaces par des 'SET's car, en effet, '$_____ImmobilisMax' est reference dans un          #
$Z                                      # 'if(...)' ci-apres...                                                                       #
$Z                                      #                                                                                             #
$Z                                      # La nodification du 20191228113517 est due a 'v $Falias_listG Symbole.doublement.defini'...  #

$Z                  SETParam            _____ImmobilisMax             $INFINI
$Z                                      # Pour eviter des problemes de debordement ulterieur...                                       #
$Z                                      #                                                                                             #
$Z                                      # Le 20081211121109, a cause de 'v $xEa/listG$vv$Y 20081211121312', les 'set's ont ete        #
$Z                                      # remplaces par des 'SET's car, en effet, '$_____ImmobilisMax' est reference dans un          #
$Z                                      # 'if(...)' ci-apres...                                                                       #
$Z                                      #                                                                                             #
$Z                                      # La nodification du 20191228113517 est due a 'v $Falias_listG Symbole.doublement.defini'...  #

$Z                  $DELETE             $xTV/MODULE
$Z                  $DELETE             $xTV/THETA
$Z                  $DELETE             $xTV/PHI
$Z                  $DELETE             $xTV/VITESSES$COORD_X
$Z                  $DELETE             $xTV/VITESSES$COORD_Y
$Z                  $DELETE             $xTV/VITESSES$COORD_Z

$Z                  Gen                 $xTV/MODULE                   $_____mVitesse      $_____MVitesse
$Z                  GenR                $xTV/THETA                    $_____ThetaMin      $_____ThetaMax      g=3333
$Z                  GenR                $xTV/PHI                      $_____PhiMin        $_____PhiMax        g=5555

$Z                  Gen                 $xTV/COLLISION$COORD_X        1.0       1.0
$Z                  Gen                 $xTV/COLLISION$COORD_Y        1.0       1.0
$Z                  Gen                 $xTV/COLLISION$COORD_Z        1.0       1.0

$Z                  Gen                 $xTV/FAMILLE        $Part0    $PartN    cubique=FAUX                  entiers=VRAI epsilon=0.01
$Z                  GenR                $xTV/NAISSANCE      $_____NaissanceMin  $_____NaissanceMax  g=7171

$Z   GenR $xTV/COLLAGE        $_____CollageMin    $_____CollageMax    g=7575    entiers=VRAI epsilon=0.5 compatibilite_20030926=VRAI
$Z   GenR $xTV/K_COLLAGE      $_____KCollageMin   $_____KCollageMax   g=7373    entiers=VRAI epsilon=0.5 compatibilite_20030926=VRAI
$Z   GenR $xTV/COLLISIONNABLE $_____CollisionMin  $_____CollisionMax  g=7979    entiers=VRAI epsilon=0.5 compatibilite_20030926=VRAI
$Z                                      # L'option "compatibilite_20030926=VRAI" a ete introduite le 20041001103013...                #

$Z                  if        (    (`$xcg/IFGE.01$X x=$_____ImmobilisMin y=0` == $EXIST)                                                \
$Z                            &&   (`$xcg/IFGE.01$X x=$_____ImmobilisMax y=0` == $EXIST)                                                \
$Z                             ) then

$Z   GenR $xTV/IMMOBILISABLE  $_____ImmobilisMin  $_____ImmobilisMax  g=9797    entiers=VRAI epsilon=0.5 compatibilite_20030926=VRAI
$Z                                      # L'option "compatibilite_20030926=VRAI" a ete introduite le 20041001103013...                #

$Z                  else
$Z                            GenR      $xTV/IMMOBILISABLE  $_____ImmobilisMin  $_____ImmobilisMax  g=9797
$Z                  endif