#######################################################################################################################################
#                                                                                                                                     #
#         C O N S T R U C T I O N   D ' U N   A R B R E   B I N A I R E  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.ACIS.61.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160307080151).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Iterations               2

$Z                  setParam            _____Facteur                  0.90

$Z                  setParam            _____NBifurcations            2

$Z                  setParam            _____TranslationY             -0.2
$Z                                      # Parametre introduit le 20160422174219...                                                    #

$Z                  setParam            _____Zoom                     0.6
$Z                                      # Parametre introduit le 20160422174219...                                                    #

$Z                  if                  ($?_____ArgsArbre == $NEXIST) then
$Z                                      set                 _____ArgsArbre="$K_VIDE"
$Z                                      set                 _____ArgsArbre="$_____ArgsArbre"" evasement_theta=1.6"
$Z                                      set                 _____ArgsArbre="$_____ArgsArbre"" facteurt=0.9"
$Z                  else
$Z                  endif

$m4                 _____include(_____xiirv/.TREE.91.1._____U)

$Z                  setParam            _____DistanceMin              0.40
$Z                                      # Test introduit le 20160601111211 car, en effet, il manquait...                              #

$Z                  set                 _____ParticulePara="$K_VIDE"
$Z                  set                 _____ParticulePara="$_____ParticulePara"" centrer_coordonnees=VRAI"
$Z                  set                 _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI"
$Z                  set                 _____ParticulePara="$_____ParticulePara"" lister_les_points=VRAI"
$Z                  set                 _____ParticulePara="$_____ParticulePara"" lister_les_points_apres=VRAI"

$Z                  $xrv/neutre$X       ne=$Nparticules_                                                                                \
$Z                                      fichier=$BLANC                                                                                  \
$Z                                                                                                  >  $LiStEPoInTs$ROUGE

$Z                  $xrv/neutre$X       ne=$Nparticules_                                                                                \
$Z                                      fichier=$BLANC                                                                                  \
$Z                                                                                                  >  $LiStEPoInTs$VERTE

$Z                  $xrv/neutre$X       ne=$Nparticules_                                                                                \
$Z                                      fichier=$BLANC                                                                                  \
$Z                                                                                                  >  $LiStEPoInTs$BLEUE

$Z                  set                 _____RayonMin=0.120
$Z                  set                 _____RayonMax=0.160
$m4                 _____include(_____xiirv/.TREE.C4.1._____U)

$Z                  FilSTmpB  LiStEPoInTs2
$Z                  set                 _____Redirection="$K_VIDE"
$Z                  set                 _____Redirection="$_____Redirection >> $LiStEPoInTs2"
$Z                  set                 _____ImageR=$xTV/TREE.C4.$NFeUiLlEs
$m4                 _____include(_____xiirv/.TREE.91.2._____U)
$Z                  FilSTmpB            LiStEPoInTs

$Z                  $CA                 $LiStEPoInTs2                                                                                   \
$Z                                                                                                  >> $LiStEPoInTs

$Z                  FilSTmpE            LiStEPoInTs2