#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   N O E U D S   A L E A T O I R E S  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.KNOT.A1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20210330105706).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NPoints                  16

$Z                  setParam            _____GraineX                  1789

$Z                  setParam            _____GraineY                  1947

$Z                  setParam            _____GraineZ                  2001

$Z                  setParam            _____DeriveeX                 2

$Z                  setParam            _____DeriveeY                 2

$Z                  setParam            _____DeriveeZ                 2

$Z                  setParam            _____Rayon                    0.01

$Z                  setParam            _____Palette                  $xiP/arc_ciel.C1

$Z                  setParam            _____Zoom                     0.75

$Z                  setParam            _____Grossissement            1

$Z                  setParam            _____ParticuleParaC           "$K_VIDE"

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

$Z                  FilSTmpB            LiStEPoInTs

$Z                  set                 MiNiMuM_XYZ=0
$Z                  set                 MaXiMuM_XYZ=1

$Z                  $xci/valeurs_alea$X premiere=1 derniere=$_____NPoints                                                               \
$Z                                      inferieur=$MiNiMuM_XYZ superieur=$MaXiMuM_XYZ                                                   \
$Z                                      graine=$_____GraineX                                                                            \
$Z                                                                              >   $LiStEPoInTs$COORD_X

$Z                  $xci/valeurs_alea$X premiere=1 derniere=$_____NPoints                                                               \
$Z                                      inferieur=$MiNiMuM_XYZ superieur=$MaXiMuM_XYZ                                                   \
$Z                                      graine=$_____GraineY                                                                            \
$Z                                                                              >   $LiStEPoInTs$COORD_Y

$Z                  $xci/valeurs_alea$X premiere=1 derniere=$_____NPoints                                                               \
$Z                                      inferieur=$MiNiMuM_XYZ superieur=$MaXiMuM_XYZ                                                   \
$Z                                      graine=$_____GraineZ                                                                            \
$Z                                                                              >   $LiStEPoInTs$COORD_Z

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$_____NPoints                                                               \
$Z                                      vD=$NOIR_PLANCHER vA=$BLANC                                                                     \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                              >   $LiStEPoInTs$NIVEAU

$Z                  set                 DuPlIqUe=1

$Z                  $CA                 $LiStEPoInTs$COORD_X                                                                      |     \
$Z                  $HEA                -$DuPlIqUe                                                                                      \
$Z                                                                              >>  $LiStEPoInTs$COORD_X

$Z                  $CA                 $LiStEPoInTs$COORD_Y                                                                      |     \
$Z                  $HEA                -$DuPlIqUe                                                                                      \
$Z                                                                              >>  $LiStEPoInTs$COORD_Y

$Z                  $CA                 $LiStEPoInTs$COORD_Z                                                                      |     \
$Z                  $HEA                -$DuPlIqUe                                                                                      \
$Z                                                                              >>  $LiStEPoInTs$COORD_Z

$Z                  $CA                 $LiStEPoInTs$NIVEAU                                                                       |     \
$Z                  $HEA                -$DuPlIqUe                                                                                      \
$Z                                                                              >>  $LiStEPoInTs$NIVEAU

$Z                  @                   NPoInTs = $_____NPoints + $DuPlIqUe
                                        # Ainsi, on "ferme" la chaine de points, le dernier etant identique au premier...             #

$Z                  eval      $xrv/particule.10$X                                                                                       \
$Z                                                np=1                                                                                  \
$Z                                                iterations=$NPoInTs                                                                   \
$Z                                                LISTE_X=$LiStEPoInTs$COORD_X                                                          \
$Z                                                LISTE_Y=$LiStEPoInTs$COORD_Y                                                          \
$Z                                                LISTE_Z=$LiStEPoInTs$COORD_Z                                                          \
$Z                                                LISTE_RAYON=$_____Rayon                                                               \
$Z                                                LISTE_NIVEAU=$LiStEPoInTs$NIVEAU                                                      \
$Z                                                cubique=VRAI                                                                          \
$Z                                                LISTE_dX=$_____DeriveeX LISTE_dY=$_____DeriveeY LISTE_dZ=$_____DeriveeZ               \
$Z                                                p=$_____Palette                                                                       \
$Z                                                grossissement=$_____Grossissement                                                     \
$Z                                                ZOOM=$_____Zoom                                                                       \
$Z                                                isoles=FAUX chainer=VRAI ajuster_points=VRAI equidistance=VRAI                        \
$Z                                                Lz=100                                                                                \
$Z                                                editer_extrema_hors=FAUX                                                              \
$Z                                                $_____ParticuleParaC                                                                  \
$Z                                                chiffres=0                                                                            \
$Z                                                R=$_____ImagesR                                                                       \
$Z                                                                                                                      $formatI        \
$Z                                                                                                            $_____Redirection

$Z                  FilSTmpE  LiStEPoInTs