#######################################################################################################################################
# #
# 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 B I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiav/.HILB.o5.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20250114095129). #
# #
#######################################################################################################################################
$Z setParam _____Dm `GetParam $xrv/particule.10$X distance_minimale`
$Z setParam _____Argument "$K_VIDE"
$Z setParam _____NAuCarre VRAI
$Z if ("$_____ParticulePara1" != "$K_VIDE") then
$Z set _____ParticulePara1=`eval echo "$_____ParticulePara1"`
$Z else
$Z endif
$Z set NpartX=`$CA $FiLeTmP_HILBERT_all$COORD_X | $WCl`
$Z set NpartY=`$CA $FiLeTmP_HILBERT_all$COORD_Y | $WCl`
$Z set Npart=`$xcg/MIN2.01$X x=$NpartX y=$NpartY signe="$K_VIDE"`
$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(4,$PrOfOnDeUr-1)+1-1)-1`
$Z # On notera le "+1" afin de visualiser carre a l'interieur duquel se trouve la courbe de #
$Z # et le "-1" parce qu'il y a un segment de moins que de points (4^4=256)... #
$Z set index=$Premiere
$Z set NuMeRoS=`$xci/nombres$X p=$Premiere d=$Derniere`
$Z set NpartCourant=8
$Z # A cause du carre a l'interieur duquel se trouve la courbe de Hilbert... #
$Z while ($index <= $Derniere)
$Z $xrv/particule.10$X np=1 iterations=$NpartCourant \
$Z dernier_premier=VRAI \
$Z LISTE_X=$FiLeTmP_HILBERT_all$COORD_X \
$Z LISTE_Y=$FiLeTmP_HILBERT_all$COORD_Y \
$Z LISTE_Z=$_____Z0 \
$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=0 \
$Z ROTATION_OY=0 \
$Z ROTATION_OZ=0 \
$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=$_____NAuCarre \
$Z editer_extrema_hors=FAUX \
$Z $_____Fond \
$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