#######################################################################################################################################
#                                                                                                                                     #
#         E P A I S S I S S E M E N T   V A R I A B L E   D E   ' $xrv/store_album$X '  :                                             #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.TREE.B5.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20200419101957).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinDistance              2

$Z                  setParam            _____MaxDistance              40

$Z                  $CA                 $LiStEPoInTs                                                                              |     \
$Z                  $SE                 -e 's/^.*X=\([^ ]*\) .*$/\1/'                                                                   \
$Z                                                                                                            >  $LiStEPoInTs$COORD_X

$Z                  $CA                 $LiStEPoInTs                                                                              |     \
$Z                  $SE                 -e 's/^.*Y=\([^ ]*\) .*$/\1/'                                                                   \
$Z                                                                                                            >  $LiStEPoInTs$COORD_Y

$Z                  $CA                 $LiStEPoInTs                                                                              |     \
$Z                  $SE                 -e 's/^.*Z=\([^ ]*\) .*$/\1/'                                                                   \
$Z                                                                                                            >  $LiStEPoInTs$COORD_Z

$Z                  set                 Npoints_X=`$CA $LiStEPoInTs$COORD_X | $WCl`
$Z                  set                 Npoints_Y=`$CA $LiStEPoInTs$COORD_Y | $WCl`
$Z                  set                 Npoints_Z=`$CA $LiStEPoInTs$COORD_Z | $WCl`

#20220615103523____:$Z                  set                 Npoints=`$xcg/MAX3.01$X x=$Npoints_X y=$Npoints_Y z=$Npoints_Z`           #
$Z                  set                 Npoints=`$xcg/MIN3.01$X x=$Npoints_X y=$Npoints_Y z=$Npoints_Z`

$Z                  set                 OrigineX=`GetParam $xci/valeurs_Arbre.01$X X1`
$Z                  set                 OrigineY=`GetParam $xci/valeurs_Arbre.01$X Y1`
$Z                  set                 OrigineZ=`GetParam $xci/valeurs_Arbre.01$X Z1`
                                        # Definition de la racine AVANT projection...                                                 #

$Z                  set                 ArGuMeNtS_O="$K_VIDE"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" LISTE_X=$OrigineX"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" LISTE_Y=$OrigineY"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" LISTE_Z=$OrigineZ"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" lister_les_points=VRAI"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" lister_les_points_apres=VRAI"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" centrer_coordonnees=VRAI"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" TRANSLATION_OX=$_____TranslationX"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" TRANSLATION_OY=$_____TranslationY"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" TRANSLATION_OZ=$_____TranslationZ"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" ZOOM=$_____Zoom"
$Z                  set                 ArGuMeNtS_O="$ArGuMeNtS_O"" iterations=1"

$Z                  set                 RaCiNe=`$xrv/particule.10.x np=1 $ArGuMeNtS_O R=$xTG/RACINE.`
$Z                  set                 RaCiNe_X=`echo "$RaCiNe" | $SE -e "s/^.*X=//" -e 's/ .*$//'`
$Z                  set                 RaCiNe_Y=`echo "$RaCiNe" | $SE -e "s/^.*Y=//" -e 's/ .*$//'`
$Z                  set                 RaCiNe_Z=`echo "$RaCiNe" | $SE -e "s/^.*Z=//" -e 's/ .*$//'`
                                        # Calcul de la position de la racine APRES projection...                                      #

$Z                  $xrv/distance.11$X  ne=$Npoints                                                                                     \
$Z                                      LISTE_X=$LiStEPoInTs$COORD_X                                                                    \
$Z                                      LISTE_Y=$LiStEPoInTs$COORD_Y                                                                    \
$Z                                      LISTE_Z=$LiStEPoInTs$COORD_Z                                                                    \
$Z                                      X0=$RaCiNe_X                                                                                    \
$Z                                      Y0=$RaCiNe_Y                                                                                    \
$Z                                      Z0=$RaCiNe_Z                                                                              |     \
$Z                  $xrv/ADD2.11$X      ne=$Npoints                                                                                     \
$Z                                      fichier1==                                                                                      \
$Z                                      fichier2=1                                                                                |     \
$Z                  $xrv/INVZ.01$X      ne=$Npoints                                                                                     \
$Z                                      fichier==                                                                                 |     \
$Z                  $xrv/normalise.01$X ne=$Npoints                                                                                     \
$Z                                      fichier==                                                                                       \
$Z                                      origine=$_____MinDistance                                                                       \
$Z                                      extremite=$_____MaxDistance                                                                     \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                                                            >  $LiStEPoInTs.distances
                                        # C'est la distance a la racine qui va servir a parametrer 'v $xrv/store_album$K' ci-apres... #

$Z                  $DELETE             $LiStEPoInTs$COORD_X
$Z                  $DELETE             $LiStEPoInTs$COORD_Y
$Z                  $DELETE             $LiStEPoInTs$COORD_Z