#######################################################################################################################################
#                                                                                                                                     #
#         C O N S T R U C T I O N   D ' U N E   C O U R B E   D E   H I L B E R T   T R I D I M E N S I O N N E L L E  :              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HILB.q4.$U' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20250114181442).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Dm                       `GetParam $xrv/particule.10$X  distance_minimale`

$Z                  setParam            _____Argument                 "$K_VIDE"

$Z                  set                 NpartX=`$CA $FiLeTmP_HILBERT_all$COORD_X | $WCl`
$Z                  set                 NpartY=`$CA $FiLeTmP_HILBERT_all$COORD_Y | $WCl`
$Z                  set                 NpartZ=`$CA $FiLeTmP_HILBERT_all$COORD_Z | $WCl`
$Z                  set                 Npart=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`

$Z                  SET                 PrOfOnDeUr=1
$Z                  set                 ItErEr=$EXIST

$Z                  while               ($ItErEr == $EXIST)
$Z                                      # Cette structure un peu compliquee est due au fait que '$_____Profondeur' est definie avec   #
$Z                                      # un 'set', alors que '$Derniere' l'est avec un 'SET'...                                      #
$Z                                      IfBasic             ($PrOfOnDeUr != $_____Profondeur) ThenBasic
$Z                                                          @                   PrOfOnDeUr = $PrOfOnDeUr + 1
$Z                                      ElseBasic
$Z                                                          set                 ItErEr=$NEXIST
$Z                                      EndifBasic
$Z                  end

$Z                  SET                 Premiere=1
$Z                  SET                 Derniere=`calculINS $Premiere+(pow(8,$PrOfOnDeUr-1)+1-1)-1`
$Z                                      # On notera le "+1" afin de visualiser le cube a l'interieur duquel se trouve la courbe et    #
$Z                                      # le "-1" parce qu'il y a un segment de moins que de points...                                #

$Z                  set                 index=$Premiere
$Z                  set                 NuMeRoS=`$xci/nombres$X p=$Premiere d=$Derniere`

$Z                  set                 NpartCourant=24
$Z                                      # A cause du cube a l'interieur duquel se trouve la courbe de Hilbert...                      #

$Z                  while               ($index <= $Derniere)
$Z                                      $xrv/particule.10$X np=1 iterations=$NpartCourant                                               \
$Z                                                          gestion_ombres_portees_____compatibilite_2022060711=VRAI                    \
$Z                                                          gestion_ombres_portees_____compatibilite_2022060712=VRAI                    \
$Z                                                          dernier_premier=VRAI                                                        \
$Z                                                          LISTE_X=$FiLeTmP_HILBERT_all$COORD_X                                        \
$Z                                                          LISTE_Y=$FiLeTmP_HILBERT_all$COORD_Y                                        \
$Z                                                          LISTE_Z=$FiLeTmP_HILBERT_all$COORD_Z                                        \
$Z                                                          LISTE_RAYON=$FiLeTmP_HILBERT_all$RAYON                                      \
$Z                                                          LISTE_NIVEAU=$FiLeTmP_HILBERT_all$LUMIN                                     \
$Z                                                          paletteA=$_____Palette                                                      \
$Z                                                          grossissement=$_____Grossissement                                           \
$Z                                                          Lz=1000                                                                     \
$Z                                                          ZOOM=$_____Zoom                                                             \
$Z                                                          ROTATION_OX=$_____RotationOX                                                \
$Z                                                          ROTATION_OY=$_____RotationOY                                                \
$Z                                                          ROTATION_OZ=$_____RotationOZ                                                \
$Z                                                          isoles=FAUX chainer=FAUX                                                    \
$Z                                                          ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR               \
$Z                                                          equidistance=VRAI compatibilite_20051230=FAUX                               \
$Z                                                          distance_minimale=$_____Dm                                                  \
$Z                                                          cubique=$_____Cubique                                                       \
$Z                                                          derivees_automatiques=FAUX                                                  \
$Z                                                          LISTE_dX=$_____DeriveeX LISTE_dY=$_____DeriveeY LISTE_dZ=$_____DeriveeZ     \
$Z                                                          RVB=VRAI                                                                    \
$Z                                                          N_AU_CARRE=FAUX                                                             \
$Z                                                          editer_extrema_hors=FAUX                                                    \
$Z                                                          $_____ParticuleFond                                                         \
$Z                                                          $_____OmbresPortees                                                         \
$Z                                                          $_____ParticulePara1                                                        \
$Z                                                          R=$_____ImagesT.$NuMeRoS[$index]                                            \
$Z                                                          chiffres=0                                                                  \
$Z                                                          $_____Argument                                                              \
$Z                                                                                                                      $formatI

$Z                                      @                   index = $index + 1
$Z                                      @                   NpartCourant = $NpartCourant + 2
$Z                  end

$Z                  FileTmpE            FiLeTmP_HILBERT_all