#######################################################################################################################################
# #
# M A P P I N G D ' U N E I M A G E S U R 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 '$xiirv/.DELA.11.1.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20250103113717). #
# #
#######################################################################################################################################
$Z setParam _____Programme $xci/valeurs_Hilbert2D$X
$Z SETParam _____DefinitionCarre $NEXIST
$Z setParam _____Arguments "$K_VIDE"
#20250104105050____:$Z setParam _____Profondeur 11 #
$Z setParam _____Profondeur `calculINS (log2($dimX*$dimY)/2)+1`
$Z echo "Courbe de Hilbert d'iteration "`calculINS $_____Profondeur-1`"."
$Z # Message introduit le 20250105093536... #
$Z set DeFiNiTiOnCaRrE="$K_VIDE"
$Z if ($_____DefinitionCarre == $EXIST) then
$Z IfBasic ($_____Programme == $xci/valeurs_Hilbert2D$X) then
$Z set DeFiNiTiOnCaRrE="definition_carre=VRAI"
$Z ElseBasic
$Z EndifBasic
$Z else
$Z endif
$Z FileTmpB FiLeTmP_HILBERT
$Z $_____Programme \
$Z profondeur=$_____Profondeur \
$Z segments_AB=FAUX \
$Z $DeFiNiTiOnCaRrE \
$Z $_____Arguments \
$Z > $FiLeTmP_HILBERT
$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 FileTmpB FLiStE_PoInTs
$Z set exec123_no_EnTete_X=$NEXIST
$Z execRVB $xci/liste_points$X A=$_____ImageA%s \
$Z eX=FAUX eY=FAUX eZ=FAUX eNIVEAU=VRAI \
$Z epoints=FAUX \
$Z lister_fond=VRAI \
$Z en_tete=FAUX \
$Z > $FLiStE_PoInTs%s
$Z execRVB $xrv/S_points$X ne=0 \
$Z LISTE_X=$FiLeTmP_HILBERT$COORD_X \
$Z LISTE_Y=$FiLeTmP_HILBERT$COORD_Y \
$Z LISTE_NIVEAU=$FLiStE_PoInTs%s \
$Z A=$NOIR \
$Z Xnormalisees=VRAI Ynormalisees=VRAI Nnormalises=FAUX \
$Z R=$_____ImageR%s \
$Z $formatI
$Z FileTmpE FLiStE_PoInTs
$Z FileTmpE FiLeTmP_HILBERT