#######################################################################################################################################
#                                                                                                                                     #
#         D I S P O S I T I O N   " H A R M O N I E U S E "   D E   P O I N T S   S U R   U N E   S P H E R E                         #
#         A V E C   V I S U A L I S A T I O N   D E   L A   S P H E R E  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PSPH.21.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20030401114042).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Pajuster                 VRAI
$Z                                      # Parametre introduit le 20080313115939...                                                    #

$Z                  setParam            _____Rpoints                  4
$Z                                      # Parametre introduit le 20080313115939...                                                    #

$Z                  set                 ParticulesX=`$WC $xTV/COORDONNEES$COORD_X`
$Z                  set                 ParticulesX=$ParticulesX[$WC1]
$Z                  set                 ParticulesY=`$WC $xTV/COORDONNEES$COORD_Y`
$Z                  set                 ParticulesY=$ParticulesY[$WC1]
$Z                  set                 ParticulesZ=`$WC $xTV/COORDONNEES$COORD_Z`
$Z                  set                 ParticulesZ=$ParticulesZ[$WC1]

#20220615104835____:$Z                  set                 Particules=`$xcg/MAX3.01$X x=$ParticulesX y=$ParticulesY z=$ParticulesZ`  #
$Z                  set                 Particules=`$xcg/MIN3.01$X x=$ParticulesX y=$ParticulesY z=$ParticulesZ`

$Z                  SETParam            _____Cubique                  $NEXIST
$Z                                      # Parametre introduit le 20131102092058...                                                    #

$Z                  setParam            _____Parametres               "$K_VIDE"
$Z                                      # Parametre introduit le 20131105133624...                                                    #

$Z                  set                 PaRaMeTrEs="$_____Parametres"

$Z                  if                  ($_____Cubique == $EXIST) then
$Z                  setParam            _____BorneInferieure          -1.0
$Z                                      # Parametre introduit le 20131102092058...                                                    #

$Z                  setParam            _____BorneSuperieure          +1.0
$Z                                      # Parametre introduit le 20131102092058...                                                    #

$Z                                      $DELETE             $xTV/DERIVEES$COORD_X
$Z                                      $DELETE             $xTV/DERIVEES$COORD_Y
$Z                                      $DELETE             $xTV/DERIVEES$COORD_Z

$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          p=1 d=$Particules                                                           \
$Z                                                          inferieur=$_____BorneInferieure superieur=$_____BorneSuperieure             \
$Z                                                          graine=1111                                                                 \
$Z                                                                                                  > $xTV/DERIVEES$COORD_X
$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          p=1 d=$Particules                                                           \
$Z                                                          inferieur=$_____BorneInferieure superieur=$_____BorneSuperieure             \
$Z                                                          graine=3333                                                                 \
$Z                                                                                                  > $xTV/DERIVEES$COORD_Y
$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          p=1 d=$Particules                                                           \
$Z                                                          inferieur=$_____BorneInferieure superieur=$_____BorneSuperieure             \
$Z                                                          graine=5555                                                                 \
$Z                                                                                                  > $xTV/DERIVEES$COORD_Z

$Z                                      set                 PaRaMeTrEs="$PaRaMeTrEs"" cubique=VRAI"
$Z                                      set                 PaRaMeTrEs="$PaRaMeTrEs"" LISTE_dX=$xTV/DERIVEES$COORD_X"
$Z                                      set                 PaRaMeTrEs="$PaRaMeTrEs"" LISTE_dY=$xTV/DERIVEES$COORD_Y"
$Z                                      set                 PaRaMeTrEs="$PaRaMeTrEs"" LISTE_dZ=$xTV/DERIVEES$COORD_Z"
$Z                                      # Possibilite introduite le 20131102092058...                                                 #
$Z                  else
$Z                                      set                 PaRaMeTrEs="$PaRaMeTrEs"" cubique=FAUX"
$Z                  endif

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=1                                                                                            \
$Z                                      iterations=$Particules                                                                          \
$Z                                      AXYZ=1 BXYZ=0                                                                                   \
$Z                                      LISTE_X=$xTV/COORDONNEES$COORD_X                                                                \
$Z                                      LISTE_Y=$xTV/COORDONNEES$COORD_Y                                                                \
$Z                                      LISTE_Z=$xTV/COORDONNEES$COORD_Z                                                                \
$Z                                      grossissement=$_____Grossissement                                                               \
$Z                                      LISTE_RAYON=$xTV/RAYONS                                                                         \
$Z                                      LISTE_ROUGE=$xTV/COULEURS$ROUGE                                                                 \
$Z                                      LISTE_VERTE=$xTV/COULEURS$VERTE                                                                 \
$Z                                      LISTE_BLEUE=$xTV/COULEURS$BLEUE                                                                 \
$Z                                      isoles=FAUX chainer=FAUX                                                                        \
$Z                                      Pajuster=$_____Pajuster Rpoints=$_____Rpoints                                                   \
$Z                                      Lz=100                                                                                          \
$Z                                      Zminimum=$_____DepthCueing Zmaximum=1.0                                                         \
$Z                                      ZminimumT=$_____DepthCueing ZmaximumT=1.0                                                       \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      ROTATION_OX=$_____RotationOX                                                                    \
$Z                                      ROTATION_OY=$_____RotationOY                                                                    \
$Z                                      ROTATION_OZ=$_____RotationOZ                                                                    \
$Z                                      N_au_carre=FAUX                                                                                 \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      $PaRaMeTrEs                                                                                     \
$Z                                      R=$_____imagesR                                                                                 \
$Z                                      chiffres=0                                                                                      \
$Z                                                                                                  $formatI
$Z                                      # Le parametre "grossissement=" a ete introduit le 20080224144744...                          #
$Z                                      #                                                                                             #
$Z                                      # Le parametre "editer_extrema_hors=" a ete introduit le 20080328152456...                    #
$Z                                      #                                                                                             #
$Z                                      # Les parametre '$PaRaMeTrEs' ont ete introduits le 20131102092058...                         #

$Z                  if                  ($_____Cubique == $EXIST) then
$Z                                      $DELETE             $xTV/DERIVEES$COORD_X
$Z                                      $DELETE             $xTV/DERIVEES$COORD_Y
$Z                                      $DELETE             $xTV/DERIVEES$COORD_Z
$Z                  else
$Z                  endif

$Z                  $DELETE             $xTV/COORDONNEES$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES$COORD_Y
$Z                  $DELETE             $xTV/COORDONNEES$COORD_Z

$Z                  $DELETE             $xTV/RAYONS

$Z                  $DELETE             $xTV/COULEURS$ROUGE
$Z                  $DELETE             $xTV/COULEURS$VERTE
$Z                  $DELETE             $xTV/COULEURS$BLEUE