#######################################################################################################################################
# #
# 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 '$xiirv/.HILB.25.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220928140953). #
# #
#######################################################################################################################################
$Z setParam _____Dm `GetParam $xrv/particule.10$X distance_minimale`
$Z # Parametre introduit le 20221222170003... #
$Z setParam _____Argument "$K_VIDE"
$Z # Parametre introduit le 20221222094835... #
$Z setParam _____NAuCarre FAUX
$Z # Parametre introduit le 20240519073121... #
$Z setParam _____Redirection "$K_VIDE"
$Z # Parametre introduit le 20221222094000... #
$Z setParam _____Keep_FiLeTmP_HILBERT_all $NEXIST
$Z # Parametre introduit le 20240518155606... #
$Z if ("$_____Eval" != "$K_VIDE") then
$Z eval "$_____Eval"
$Z # Introduit le 20120503091400 pour 'v $xiirv/HILB.B5'... #
$Z else
$Z endif
$Z if ("$_____ParticulePara1" != "$K_VIDE") then
$Z set _____ParticulePara1=`eval echo "$_____ParticulePara1"`
$Z # Introduit le 20120503091400 pour 'v $xiirv/HILB.B5'... #
$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`
$Z eval $xrv/particule.10$X np=1 iterations=$Npart \
$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=$_____ImageR \
$Z chiffres=0 \
$Z $_____Argument \
$Z $formatI \
$Z $_____Redirection
$Z # Le 'eval' a ete introduit le 20221222094000 a cause de l'eventuelle '$_____Redirection' #
$Z # et '$_____Argument' le 20221222095313... #
$Z IfBasic ($_____Keep_FiLeTmP_HILBERT_all == $NEXIST) ThenBasic
$Z FileTmpE FiLeTmP_HILBERT_all
$Z ElseBasic
$Z EndifBasic