#######################################################################################################################################
#                                                                                                                                     #
#         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.Q3.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20221104102811).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ChiffresR                $GRIS_2
$Z                  setParam            _____ChiffresV                $GRIS_2
$Z                  setParam            _____ChiffresB                $GRIS_2

$Z                  setParam            _____RayonC                   0.007

$Z                  setParam            _____KNombres                 0.007

$Z                  set                 ChIf0=0
$Z                  set                 ChIf9=9
$Z                  set                 ChIfN=`calculINS $ChIf9+1`
$Z                  set                 ChIf6=`calculINS $Npart-$ChIfN`

$Z                  $xci/valeurs_inte$X premiere=0 derniere=9                                                                           \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      vD=0 vA=9                                                                                       \
$Z                                      entier=FAUX                                                                                     \
$Z                                      signe="$K_VIDE"                                                                                 \
$Z                                                                                                  >  $FChiffres_0_9.1

$Z                  $CA                 $FChiffres_0_9.1                                                                          |     \
$Z                  $HEA                -6                                                                                              \
$Z                                                                                                  >  $FChiffres_0_9.2

$Z                  $CA                 $FChiffres_0_9.1 $FChiffres_0_9.2                                                               \
$Z                                                                                                  >> $FChiffres_0_9

$Z                  source              $xrd/graph.01$vv$Y

$Z                  G_Init
$Z                  G_K                 $_____KNombres
$Z                  G_Zoom              $_____Zoom
$Z                  G_Cursor2           $_____ChiffresR $_____ChiffresV $_____ChiffresB
$Z                  G_Cursor3           $_____RayonC

$Z                  set                 Tr_U=+0.04
$Z                  set                 Tr_D=-0.06

$Z                  set                 Tr_R=+0.04
$Z                  set                 Tr_L=-0.06

$Z                  set                 Tr_Z=0

$Z                  set                 LiStE_X=`$CA $FiLeTmP_HILBERT$COORD_X | $HEA -$ChIfN`
$Z                  set                 LiStE_Y=`$CA $FiLeTmP_HILBERT$COORD_Y | $HEA -$ChIfN`

$Z                  set                 LiStE_C_=("O"   "I"   "2"   "3"   "4"   "5"   "6"   "7"   "8"   "9")
$Z                                      # On notera le "I" qui remplace le "1" a cause de 'v $xrd/graph.G_L$vv$Y correctement' et     #
$Z                                      # du 'Test' figurant dans 'v $xiii/alphabet.0$FON FgL1_00'. De plus le "0" est remplace       #
$Z                                      # par un "O" pour des raisons d'esthetique...                                                 #

$Z                  set                 LiStE_tX=($Tr_L $Tr_R $Tr_R $Tr_L $Tr_L $Tr_L $Tr_R $Tr_L $Tr_R $Tr_L)
$Z                  set                 LiStE_tY=($Tr_Z $Tr_D $Tr_U $Tr_D $Tr_Z $Tr_U $Tr_U $Tr_D $Tr_D $Tr_U)

$Z                  set                 LiStE_X=`$CA $FiLeTmP_HILBERT$COORD_X | $HEA -$ChIfN`

$Z                  set                 index=1

$Z                  while               ($index <= $ChIfN)
$Z                                      set                 CoOrDoNnEe_X=`calcul $LiStE_X[$index]+($LiStE_tX[$index])`
$Z                                      set                 CoOrDoNnEe_Y=`calcul $LiStE_Y[$index]+($LiStE_tY[$index])`
$Z                                      G_Cursor1           $CoOrDoNnEe_X $CoOrDoNnEe_Y $_____Z0
$Z                                      G_Quelc             `G_Message "$LiStE_C_[$index]"`
$Z                                      @                   index = $index + 1
$Z                  end

$Z                  G_Genere            $FoNd2 fond=VRAI F=$FoNd1