#######################################################################################################################################
#                                                                                                                                     #
#         C O U R B E   D E   H I L B E R T   D A N S   U N E   V A R I E T E   T R I D I M E N S I O N N E L L E  :                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HILB.M5.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230125093232).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____PaletteD                 "$K_VIDE"

$Z                  set      CoLoRiAgE="$K_VIDE"
$Z                                      # A priori, pas de coloriage specifique via '$_____PaletteD'...                               #

$Z                  if        ("$_____PaletteD" != "$K_VIDE") then
$Z                            SformatI

$Z                            XYmaxNe   `calculINS $NPoInTs_SuRfAcE-1` 0

$Z                            $xci/mire$X                                                                                               \
$Z                                      A=$NOIR                                                                                         \
$Z                                      hauteur=$dimY                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z                            $xci/vraies_C$X                                                                                           \
$Z                                      p=$_____PaletteD                                                                                \
$Z                                      R=$xTV/PALETTE                                                                                  \
$Z                                                                                                                      $formatI

$Z                            execRVB   $xci/acces$X                                                                                    \
$Z                                                A=$xTV/PALETTE%s                                                                      \
$Z                                                convertir=VRAI                                                                        \
$Z                                                normaliser=VRAI origine=0 extremite=1                                                 \
$Z                                                R=$xTV/PALETTE%s                                                                      \
$Z                                                                                                                      $formatI

$Z                            execRVB  "eval      $xrv/liste_image$X                                                                    \
$Z                                                          A=$xTV/PALETTE%s                                                            \
$Z                                                          pX=0 pY=0 pn=1                                                              \
$Z                                                                                                                      > $FPaLeTtE%s"
$Z                                      # Sans le 'eval' le 'execRVB' se passe mal pour une raison qui m'echapppe un peu, bien que    #
$Z                                      # cela semble venir du "shell" qui execute cela, ce que l'on voit en remplacant le ">" par    #
$Z                                      # ">&" car, en effet, cela donne alors trois fois le message d'erreur :                       #
$Z                                      #                                                                                             #
$Z                                      #                   sh: 1: Syntax error: Bad fd number                                        #
$Z                                      #                                                                                             #
$Z                                      # (et ce n'est pas '$CSH'...).                                                                #

$Z                            set      CoLoRiAgE="$CoLoRiAgE"" coordonnees_ROUGE=$FPaLeTtE$ROUGE"
$Z                            set      CoLoRiAgE="$CoLoRiAgE"" coordonnees_VERTE=$FPaLeTtE$VERTE"
$Z                            set      CoLoRiAgE="$CoLoRiAgE"" coordonnees_BLEUE=$FPaLeTtE$BLEUE"

$Z                            RformatI
$Z                  else
$Z                  endif