#######################################################################################################################################
# #
# C O U R B E D E H I L B E R T T R I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirv/.HILB.11.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20120416153215). #
# #
#######################################################################################################################################
$Z setParam _____Programme $xci/valeurs_Hilbert3D$X
$Z # Introduit le 20130625145803... #
$Z SETParam _____DefinitionCube $NEXIST
$Z # Introduit le 20220316082306, la valeur par defaut garantissant la compatibilite anterieure. #
$Z setParam _____Arguments "$K_VIDE"
$Z # Introduit le 20130625145803 pour permettre de transmettres a '$_____Programme' des #
$Z # arguments specifiques au cas ou ce dernier ne serait pas '$xci/valeurs_Hilbert3D$X'... #
$Z setParam _____Profondeur (4)
$Z # L'argument '$_____Profondeur' est devenu un liste le 20151215153711... #
$Z setParam _____Rayon (0.01)
$Z # L'argument '$_____Rayon' est devenu un liste le 20151215153711... #
$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 _____Cubique FAUX
$Z setParam _____DeriveeX 0
$Z setParam _____DeriveeY 0
$Z setParam _____DeriveeZ 0
$Z setParam _____Palette $xiP/blanc.21
$Z setParam _____Noir_ ($NOIR)
$Z # Parametre introduit le 20151215171213... #
$Z setParam _____Blanc ($BLANC)
$Z # Parametre introduit le 20151215171213... #
$Z setParam _____ParticuleFond "$K_VIDE"
$Z # Parametre introduit le 20130629112504... #
$Z setParam _____OmbresPortees "$K_VIDE"
$Z # Parametre introduit le 20220510102532... #
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z set DeFiNiTiOnCuBe="$K_VIDE"
$Z if ($_____DefinitionCube == $EXIST) then
$Z # Introduit le 20220316082306... #
$Z IfBasic ($_____Programme == $xci/valeurs_Hilbert3D$X) then
$Z set DeFiNiTiOnCuBe="definition_cube=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 $DeFiNiTiOnCuBe \
$Z $_____Arguments \
$Z > $FiLeTmP_HILBERT
$Z set NDeFiNiTiOn=`$CA $FiLeTmP_HILBERT | $GRE " DefinitionCube=" | $WCl`
$Z set NCoUrBe=`$CA $FiLeTmP_HILBERT | $GRE " CoordonneeCurviligne.=" | $WCl`
$Z if ($NCoUrBe == 0) then
$Z # Test introduit le 20220930110158 a cause de 'v $xiirv/$Fnota Debut_listG_CROF_'... #
$Z set NCoUrBe=`$CA $FiLeTmP_HILBERT | $WCl`
$Z else
$Z endif
$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 $CA $FiLeTmP_HILBERT | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_HILBERT$COORD_Z
$Z set Npart=`$CA $FiLeTmP_HILBERT | $WCl`