#######################################################################################################################################
# #
# 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.21.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20120417095243). #
# #
#######################################################################################################################################
$Z setParam _____Programme $xci/valeurs_Hilbert2D$X
$Z # Introduit le 20130625145809 pour permettre de transmettres a '$_____Programme' des #
$Z SETParam _____DefinitionCarre $NEXIST
$Z # Introduit le 20220316074853, la valeur par defaut garantissant la compatibilite anterieure. #
$Z setParam _____Arguments "$K_VIDE"
$Z # Introduit le 20130625145809 pour permettre de transmettres a '$_____Programme' des #
$Z # arguments specifiques au cas ou ce dernier ne serait pas '$xci/valeurs_Hilbert2D$X'... #
$Z setParam _____Profondeur (4)
$Z # L'argument '$_____Profondeur' est devenu un liste le 20151215181931... #
$Z setParam _____Segments_AB `GetParam $_____Programme segments_AB`
$Z # Introduit le 20120503083202 pour 'v $xiirv/HILB.B5'... #
$Z setParam _____Eval "$K_VIDE"
$Z # Introduit le 20120503091400 pour 'v $xiirv/HILB.B5'... #
$Z setParam _____Z0 0
$Z # Introduit le 20130626081407 en notant que : #
$Z # #
$Z # set _____Z0=0.5 #
$Z # #
$Z # centre la courbe dans l'espace et permet des rotations tridimensionnelles, meme si cela #
$Z # a peu d'interet pour une courbe bidimensionnelle... #
$Z setParam _____Rayon (0.01)
$Z # L'argument '$_____Rayon' est devenu un liste le 20151215181931... #
$Z setParam _____Grossissement 1
$Z setParam _____Zoom 1
$Z setParam _____Points 32
$Z setParam _____NombreR 1
$Z setParam _____Cubique FAUX
$Z setParam _____DeriveeX 0
$Z setParam _____DeriveeY 0
$Z setParam _____DeriveeZ 0
$Z # Parametre introduit le 20120417143559. Meme si le calcul est bidimensionnel, il peut #
$Z # etre interessant de faire sortir la courbe du plan par l'intermediaire de la derivee #
$Z # en 'Z'... #
$Z setParam _____Palette $xiP/blanc.21
$Z setParam _____Noir_ ($NOIR)
$Z # Parametre introduit le 20151215181931... #
$Z setParam _____Blanc ($BLANC)
$Z # Parametre introduit le 20151215181931... #
$Z setParam _____Fond "$K_VIDE"
$Z # Introduit le 20120503091400 pour 'v $xiirv/HILB.B5'... #
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z set DeFiNiTiOnCaRrE="$K_VIDE"
$Z if ($_____DefinitionCarre == $EXIST) then
$Z # Introduit le 20220316074853... #
$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_all
$Z set NuMeRo=1
$Z foreach PrOfOnDeUr ($_____Profondeur)
$Z set RaYoN=$_____Rayon[$NuMeRo]
$Z set NoIr_=$_____Noir_[$NuMeRo]
$Z set BlAnC=$_____Blanc[$NuMeRo]
$Z FileTmpB FiLeTmP_HILBERT
$Z $_____Programme \
$Z profondeur=$PrOfOnDeUr \
$Z segments_AB=$_____Segments_AB \
$Z $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`