#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D ' U N   A R B R E   A   P R I O R I   B I N A I R E  :                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.TREE.91.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160210170803).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Cubique                  `GetParam $xrv/particule.10$X cubique`
$Z                                      # Parametre introduit le 202004221734011...                                                   #

$Z                  setParam            _____DeriveeX                 0
$Z                                      # Parametre introduit le 202004221720281...                                                   #

$Z                  setParam            _____DeriveeY                 0
$Z                                      # Parametre introduit le 202004221720281...                                                   #

$Z                  setParam            _____DeriveeZ                 0
$Z                                      # Parametre introduit le 202004221720281...                                                   #

$Z                  setParam            _____RotationX                `GetParam $xrv/particule.10$X ROTATION_OX`
$Z                                      # Parametre introduit le 201603031325571...                                                   #

$Z                  setParam            _____RotationY                `GetParam $xrv/particule.10$X ROTATION_OY`
$Z                                      # Parametre introduit le 201603031325571...                                                   #

$Z                  setParam            _____RotationZ                `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z                                      # Parametre introduit le 201603031325571...                                                   #

$Z                  setParam            _____TranslationX             `GetParam $xrv/particule.10$X TRANSLATION_OX`
$Z                                      # Parametre introduit le 201603031325571...                                                   #

$Z                  setParam            _____TranslationY             `GetParam $xrv/particule.10$X TRANSLATION_OY`
$Z                                      # Parametre introduit le 201603031325571...                                                   #

$Z                  setParam            _____TranslationZ             `GetParam $xrv/particule.10$X TRANSLATION_OZ`
$Z                                      # Parametre introduit le 201603031325571...                                                   #

$Z                  setParam            _____Zoom                     1.0
$Z                                      # Parametre introduit le 20160219154247...                                                    #

$Z                  setParam            _____DistanceMin              0.02
$Z                                      # Parametre introduit le 20160303133625...                                                    #

$Z                  setParam            _____NAuCarre                 VRAI
$Z                                      # Parametre introduit le 20161124134338...                                                    #

$Z                  setParam            _____ParticulePara            "$K_VIDE"
$Z                                      # Parametre introduit le 20160303133625...                                                    #

$Z                  setParam            _____Redirection              "$K_VIDE"
$Z                                      # Parametre introduit le 20160306113302...                                                    #

$Z                  set                 PArGuMeNtS="$K_VIDE"

$Z                  if                  ($_____Cartesiennes == VRAI) then
$Z                                      # Test introduit le 20160215120449...                                                         #
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" cartesiennes=VRAI"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" LISTE_X=$LiStEPoInTs$COORD_X"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" LISTE_Y=$LiStEPoInTs$COORD_Y"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" LISTE_Z=$LiStEPoInTs$COORD_Z"
$Z                  else
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" cartesiennes=FAUX"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" LISTE_RHO=$LiStEPoInTs.RHO_"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" LISTE_PHI=$LiStEPoInTs.PHI_"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" LISTE_THETA=$LiStEPoInTs.THETA"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" AXYZ=1 AX=2 AY=2  AZ=1"
$Z                                      set                 PArGuMeNtS="$PArGuMeNtS"" BXYZ=0 BX=0 BY=-1 BZ=0"
$Z                                      # Les translations "BX=0" et "BY=-1" viennent respectivement du fait que l'arbre possede      #
$Z                                      # une symetrie d'axe vertical ; il est donc deja centre horizontalement (d'ou le "BX=0").     #
$Z                                      # Par contre, il ne possede pas de symetrie d'axe horizontal ; il faut donc le recentrer      #
$Z                                      # verticalement (d'ou le "BY=-1")...                                                          #
$Z                                      #                                                                                             #
$Z                                      # Il convient aussi de ne pas oublier qu'en coordonnees spheriques, les coordonnees {X,Y,Z}   #
$Z                                      # sont dans [-1,+1]x[-1,+1]x[-1,+1] contrairement aux coordonnees cartesiennes ou elles       #
$Z                                      # sont dans [0,1]x[0,1]x[0,1] ('v $xrv/particule.10$K cartesiennes=FAUX').                    #
$Z                  endif

$Z                  set                 PArGuMeNtS="$PArGuMeNtS"" $_____ParticulePara"

$Z                  eval      $xrv/particule.10$X np=1 iterations=$Nparticules_                                                         \
$Z                                                $PArGuMeNtS                                                                           \
$Z                                                cubique=$_____Cubique                                                                 \
$Z                                                LISTE_dX=$_____DeriveeX                                                               \
$Z                                                LISTE_dY=$_____DeriveeY                                                               \
$Z                                                LISTE_dZ=$_____DeriveeZ                                                               \
$Z                                                LISTE_ROUGE=$LiStEPoInTs$ROUGE                                                        \
$Z                                                LISTE_VERTE=$LiStEPoInTs$VERTE                                                        \
$Z                                                LISTE_BLEUE=$LiStEPoInTs$BLEUE                                                        \
$Z                                                LISTE_RAYON=$LiStEPoInTs$RAYON                                                        \
$Z                                                ROTATION_OX=$_____RotationX                                                           \
$Z                                                ROTATION_OY=$_____RotationY                                                           \
$Z                                                ROTATION_OZ=$_____RotationZ                                                           \
$Z                                                TRANSLATION_OX=$_____TranslationX                                                     \
$Z                                                TRANSLATION_OY=$_____TranslationY                                                     \
$Z                                                TRANSLATION_OZ=$_____TranslationZ                                                     \
$Z                                                Lz=1000 ZOOM=$_____Zoom                                                               \
$Z                                                isoles=FAUX                                                                           \
$Z                                                chainer=FAUX                                                                          \
$Z                                                Pajuster=VRAI equidistance=VRAI dm=$_____DistanceMin                                  \
$Z                                                extrema_hors=FAUX                                                                     \
$Z                                                N_au_carre=$_____NAuCarre                                                             \
$Z                                                chiffres=0                                                                            \
$Z                                                R=$_____ImageR                                                                        \
$Z                                                                                                                      $formatI        \
$Z                                                                                                            $_____Redirection
$Z                                      # L'option "extrema_hors=FAUX" a ete introduite le 20160219154848...                          #
$Z                                      #                                                                                             #
$Z                                      # Le 'eval' a ete introduit le 20160306113302 a cause de l'eventuelle '$_____Redirection'...  #
$Z                                      #                                                                                             #
$Z                                      # Les listes {LISTE_dX,LISTE_dY,LISTE_dZ} ont ete introduites le 20200422172028...            #

$Z                  FilSTmpE            LiStEPoInTs