#######################################################################################################################################
#                                                                                                                                     #
#         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/.PIPO.L2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20221026111058).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____PartieEntiere            $NEXIST
$Z                                      # Parametre introduit le 20240520121409...                                                    #

#20221103103350____:$Z                  setParam            _____TransDecimales           0                                           #
$Z                  setParam            _____TransDecimales           1
$Z                                      # Parametre introduit le 20221103102652 et ce afin que le chiffre "0" ne corresponde pas      #
$Z                                      # a un rayon nul...                                                                           #

#20221026180341____:$Z                  setParam            _____FRayon                   0.00003                                     #
#20221027104023____:$Z                  setParam            _____FRayon                   0.002                                       #
#20221103104156____:$Z                  setParam            _____FRayon                   0.010                                       #
$Z                  setParam            _____FRayon                   0.008

#20221026180059____:$Z                  setParam            _____ExposantR                `calcul +1/2`                               #
$Z                  setParam            _____ExposantR                1
$Z                  setParam            _____FacteurR                 1
$Z                                      # Parametre introduit le 20240520123938...                                                    #

$Z                  SETParam            _____CouleursDecimales        $NEXIST

$Z                  setParam            _____CourbeFond               "$K_VIDE"

$Z                  set                 _____ParticulePara1="$_____ParticulePara1"" dernier_premier=FAUX"
$Z                  set                 _____ParticulePara1="$_____ParticulePara1"" isoles=VRAI"
$Z                                      # En effet, '$_____ParticulePara1' existe deja 'v $xiirv/.HILB.I1.$U _____ParticulePara1'...  #
$Z                  set                 _____ParticulePara1="$_____ParticulePara1"" $_____CourbeFond"

$Z                  set                 _____PartN=`calcul $Npart+1`

$Z                  FilSTmpB            FDeCiMaLeS

$Z                  saut
$Z                  echo                "Visualisation des $Npart premieres decimales de '`GetLeaf $_____FDecimales`'."
$Z                  saut

$Z                  IfBasic             ($_____PartieEntiere == $NEXIST) ThenBasic
$Z                                      # Test introduit le 20240520121409...                                                         #
$Z                                      $CA                 $_____FDecimales                                                      |     \
$Z                                      $SE                 -e "s/^[$Alphabet_0_9]*\.//"                                                \
$Z                                                                              >   $FDeCiMaLeS.1
$Z                  ElseBasic
$Z                                      $CA                 $_____FDecimales                                                      |     \
$Z                                      $SE                 -e "s/\.//"                                                                 \
$Z                                                                              >   $FDeCiMaLeS.1
$Z                  EndifBasic

$Z                  $CA                 $FDeCiMaLeS.1                                                                             |     \
$Z                  $SE                 -e "s/\(.\)/\n\1/g"                                                                       |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $HEA                -$Npart                                                                                         \
$Z                                                          >>  $FDeCiMaLeS

$Z                  if                  ($?_____FSave_Decimales == $EXIST) then
$Z                                      # Test introduit le 20240518141026...                                                         #
$Z                                      $CA                 $FDeCiMaLeS                                                                 \
$Z                                                                              >>  $_____FSave_Decimales
$Z                  else
$Z                  endif

#20221027104023____:$Z                  $CA                 $FDeCiMaLeS                                                      |     \  #
#20221027104023____:$Z                  $xrv/MUL2.11$X      ne=0                                                                   \  #
#20221027104023____:$Z                                      fichier2==                                                             \  #
#20221027104023____:$Z                                      fichier1=$_____FRayon                                            |     \  #
#20221027104023____:$Z                  $xrv/PUIX.01$X      ne=0                                                                   \  #
#20221027104023____:$Z                                      fichier==                                                              \  #
#20221027104023____:$Z                                      exposant=$_____ExposantR                                               \  #
#20221027104023____:$Z                                                          >   $FiLeTmP_HILBERT$RAYON                            #

#20221103102652____:$Z                  $CA                 $FDeCiMaLeS                                                      |     \  #
#20221103102652____:$Z                  $xrv/MUL2.11$X      ne=0                                                                   \  #
#20221103102652____:$Z                                      fichier2==                                                             \  #
#20221103102652____:$Z                                      fichier1=`calcul $_____FRayon/($_____Profondeur-1)`              |     \  #
#20221103102652____:$Z                  $xrv/PUIX.01$X      ne=0                                                                   \  #
#20221103102652____:$Z                                      fichier==                                                              \  #
#20221103102652____:$Z                                      exposant=$_____ExposantR                                               \  #
#20221103102652____:$Z                                                          >   $FiLeTmP_HILBERT$RAYON                            #

#20240520123938____:$Z                  $CA                 $FDeCiMaLeS                                                      |     \  #
#20240520123938____:$Z                  $xrv/ADD2.11$X      ne=0                                                                   \  #
#20240520123938____:$Z                                      fichier2==                                                             \  #
#20240520123938____:$Z                                      fichier1=$_____TransDecimales                                    |     \  #
#20240520123938____:$Z                  $xrv/MUL2.11$X      ne=0                                                                   \  #
#20240520123938____:$Z                                      fichier2==                                                             \  #
#20240520123938____:$Z                                      fichier1=`calcul $_____FRayon/($_____Profondeur-1)`              |     \  #
#20240520123938____:$Z                  $xrv/PUIX.01$X      ne=0                                                                   \  #
#20240520123938____:$Z                                      fichier==                                                              \  #
#20240520123938____:$Z                                      exposant=$_____ExposantR                                               \  #
#20240520123938____:$Z                                                          >   $FiLeTmP_HILBERT$RAYON                            #

$Z                  $CA                 $FDeCiMaLeS                                                                               |     \
$Z                  $xrv/ADD2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=$_____TransDecimales                                                             |     \
$Z                  $xrv/MUL2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=`calcul $_____FRayon/($_____Profondeur-1)`                                       |     \
$Z                  $xrv/PUIX.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      exposant=$_____ExposantR                                                                  |     \
$Z                  $xrv/MUL2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=$_____FacteurR                                                                         \
$Z                                                          >   $FiLeTmP_HILBERT$RAYON
$Z                                      # Generation de la liste des rayons...                                                        #

$Z                  if                  ($_____CouleursDecimales == $EXIST) then
$Z                                      $CA                 $FDeCiMaLeS                                                           |     \
$Z                                      $xrv/normalise.01$X ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                          minimum=$NOIR_PLANCHER maximum=$BLANC                                       \
$Z                                                          formater=VRAI entiers=VRAI                                                  \
$Z                                                                              >   $FiLeTmP_HILBERT$LUMIN
$Z                                      # Generation de la liste des luminances lorsqu'un coloriage utilisant directement les         #
$Z                                      # decimales est demande...                                                                    #
$Z                  else
$Z                  endif

$Z                  FilSTmpE            FDeCiMaLeS