#######################################################################################################################################
#                                                                                                                                     #
#         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                                                               #
#         E T   V I S U A L I S A T I O N   D E   L A   D Y N A M I Q U E   D U   P R O C E S S U S  :                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PSPH.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  unset               ListeCouples
$Z                  unsetenv            ListeCouples
$Z                                      # On n'est jamais assez prudent...                                                            #

$Z                  SETParam            Premiere                      1
$Z                                      # Test introduit le 20150217092652...                                                         #

$Z                  SETParam            Derniere                      128
$Z                                      # Test introduit le 20150217092652...                                                         #

$Z                  SETParam            _____Rayon                    1.0

$Z                  setParam            _____Phi                      0

$Z                  setParam            _____Theta                    0

$Z                  setParam            _____NPoints                  8

$Z                  SETParam            _____Lineaires                VRAI

$Z                  setParam            _____NIterations              100000

$Z                  setParam            _____NTentatives              1

$Z                  SETParam            _____RayonMin                 $_____Rayon

$Z                  SETParam            _____RayonMax                 $_____Rayon

$Z                  if                  ($?_____rdi == $NEXIST) then
$Z                                      if                  ($_____RayonMin == $_____RayonMax) then
$Z                                                          set                 _____rdi=0
$Z                                      else
$Z                                                          set                 _____rdi=`calcul ($_____RayonMax-$_____RayonMin)/10`
$Z                                      endif
$Z                  else
$Z                  endif

$Z                  if                  ($?_____rdf == $NEXIST) then
$Z                                      if                  ($_____RayonMin == $_____RayonMax) then
$Z                                                          set                 _____rdf=0
$Z                                      else
$Z                                                          set                 _____rdf=`calcul ($_____RayonMax-$_____RayonMin)/100`
$Z                                      endif
$Z                  else
$Z                  endif

$Z                  setParam            _____RhoNegatif               FAUX

$Z                  setParam            _____RhoPositif               FAUX

$Z                  setParam            _____pdi                      1.00

$Z                  setParam            _____pdf                      0.02

$Z                  setParam            _____tdi                      0.50

$Z                  setParam            _____tdf                      0.01

$Z                  setParam            _____NVoisins                 3

$Z                  setParam            _____PointFixe                VRAI

$Z                  setParam            _____Zoom                     0.9

$Z                  setParam            _____RotationOX               0

$Z                  setParam            _____RotationOY               0

$Z                  setParam            _____RotationOZ               0

$Z                  setParam            _____Arguments                "$K_VIDE"

$Z                  setParam            _____Cubique                  FAUX

$Z                  setParam            _____DepthCueing              1.0

$Z                  setParam            _____RayonP                   0.02

$Z                  setParam            _____CouleurPR                $GRIS_8

$Z                  setParam            _____CouleurPV                $GRIS_8

$Z                  setParam            _____CouleurPB                $GRIS_8

$Z                  setParam            _____RayonS                   0.01

$Z                  setParam            _____CouleurSR                $GRIS_8

$Z                  setParam            _____CouleurSV                $GRIS_5

$Z                  setParam            _____CouleurSB                $GRIS_0


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

$Z                  $DELETE             $xTV/RAYONS_02

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