#######################################################################################################################################
# #
# 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 A V E C M A P P I N G : #
# #
# #
# Author of '$xiirv/.HILB.2A.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20221231154606). #
# #
#######################################################################################################################################
$Z setParam _____Programme $xci/valeurs_Hilbert2D$X
$Z SETParam _____DefinitionCarre FAUX
$Z setParam _____Arguments "$K_VIDE"
$Z setParam _____Profondeur 7
$Z setParam _____Segments_AB FAUX
$Z setParam _____Niveau $GRIS_8
$Z setParam _____Z0 0
$Z setParam _____Grossissement 1
$Z setParam _____Zoom 1
$Z setParam _____RotationOX 0.0
$Z setParam _____RotationOY 0.0
$Z setParam _____RotationOZ 0.0
$Z setParam _____Points 32
$Z setParam _____NombreR 1
$Z setParam _____RayonMin 0.001
$Z setParam _____RayonMax 0.020
$Z setParam _____Dm `GetParam $xrv/particule.10$X distance_minimale`
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z FileTmpB FiLeTmP_HILBERT
$Z FileTmpB FiLeTmP_HILBERT
$Z $_____Programme \
$Z profondeur=$_____Profondeur \
$Z segments_AB=$_____Segments_AB \
$Z carre=$_____DefinitionCarre \
$Z $_____Arguments \
$Z > $FiLeTmP_HILBERT
$Z set NDeFiNiTiOn=`$CA $FiLeTmP_HILBERT | $GRE " DefinitionCarre=" | $WCl`
$Z set NCoUrBe=`$CA $FiLeTmP_HILBERT | $GRE " CoordonneeCurviligne.=" | $WCl`
$Z $CA $FiLeTmP_HILBERT | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_HILBERT$COORD_X
$Z $CA $FiLeTmP_HILBERT | \
$Z $AW ' { print $2 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_HILBERT$COORD_Y
$Z set Npart=`$CA $FiLeTmP_HILBERT | $WCl`
$Z $xrv/load_image$X ne=$Npart \
$Z Xnormalisees=VRAI \
$Z LISTE_X=$FiLeTmP_HILBERT$COORD_X \
$Z Ynormalisees=VRAI \
$Z LISTE_Y=$FiLeTmP_HILBERT$COORD_Y \
$Z A=$_____ImageA \
$Z standard=VRAI \
$Z Nnormalises=VRAI | \
$Z $xrv/normalise.01$X ne=$Npart \
$Z fichier== \
$Z minimum=$_____RayonMin maximum=$_____RayonMax \
$Z > $FiLeTmP_HILBERT$RAYON
$Z $xrv/load_image$X ne=$Npart \
$Z Xnormalisees=VRAI \
$Z LISTE_X=$FiLeTmP_HILBERT$COORD_X \
$Z Ynormalisees=VRAI \
$Z LISTE_Y=$FiLeTmP_HILBERT$COORD_Y \
$Z A=$_____ImageA$ROUGE \
$Z standard=VRAI \
$Z Nnormalises=FAUX \
$Z > $FiLeTmP_HILBERT$ROUGE
$Z $xrv/load_image$X ne=$Npart \
$Z Xnormalisees=VRAI \
$Z LISTE_X=$FiLeTmP_HILBERT$COORD_X \
$Z Ynormalisees=VRAI \
$Z LISTE_Y=$FiLeTmP_HILBERT$COORD_Y \
$Z A=$_____ImageA$VERTE \
$Z standard=VRAI \
$Z Nnormalises=FAUX \
$Z > $FiLeTmP_HILBERT$VERTE
$Z $xrv/load_image$X ne=$Npart \
$Z Xnormalisees=VRAI \
$Z LISTE_X=$FiLeTmP_HILBERT$COORD_X \
$Z Ynormalisees=VRAI \
$Z LISTE_Y=$FiLeTmP_HILBERT$COORD_Y \
$Z A=$_____ImageA$BLEUE \
$Z standard=VRAI \
$Z Nnormalises=FAUX \
$Z > $FiLeTmP_HILBERT$BLEUE
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" dernier_premier=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_X=$FiLeTmP_HILBERT$COORD_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Y=$FiLeTmP_HILBERT$COORD_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Z=$_____Z0"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_RAYON=$FiLeTmP_HILBERT$RAYON"
$Z set ArGuMeNtS="$ArGuMeNtS"" grossissement=$_____Grossissement"
$Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
$Z set ArGuMeNtS="$ArGuMeNtS"" ZOOM=$_____Zoom"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OX=$_____RotationOX"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OY=$_____RotationOY"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OZ=$_____RotationOZ"
$Z set ArGuMeNtS="$ArGuMeNtS"" isoles=FAUX chainer=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR"
$Z set ArGuMeNtS="$ArGuMeNtS"" equidistance=VRAI compatibilite_20051230=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" distance_minimale=$_____Dm"
$Z set ArGuMeNtS="$ArGuMeNtS"" RVB=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" N_AU_CARRE=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" $_____ParticulePara1"
$Z $xrv/particule.10$X np=1 iterations=$Npart \
$Z $ArGuMeNtS \
$Z LISTE_NIVEAU=$_____Niveau \
$Z chiffres=0 \
$Z R=$_____ImageR.1 \
$Z $formatI
$Z $xrv/particule.10$X np=1 iterations=$Npart \
$Z $ArGuMeNtS \
$Z LISTE_ROUGE=$FiLeTmP_HILBERT$ROUGE \
$Z LISTE_VERTE=$FiLeTmP_HILBERT$VERTE \
$Z LISTE_BLEUE=$FiLeTmP_HILBERT$BLEUE \
$Z chiffres=0 \
$Z R=$_____ImageR.2 \
$Z $formatI
$Z FileTmpE FiLeTmP_HILBERT