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

$Z                  SETParam            _____GenereRVB                $NEXIST
$Z                                      # Parametre introduit le 20230421171349...                                                    #

$Z                  setParam            _____SurfacePara1             "$K_VIDE"
$Z                                      # Parametre introduit le 20230110110335...                                                    #

$Z                  setParam            _____Redirection              "$K_VIDE"
$Z                                      # Parametre introduit le 20230110110335...                                                    #

$Z                  set       NPoInTs_SuRfAcE=`$CA $FLiStE_PoInTs | $WCl`

$Z                  $CA       $FLiStE_PoInTs                                                                                      |     \
$Z                  $AW       ' { print $3 } '                                                                                    |     \
$Z                  $SE       -e 's/^.*=//'                                                                                       |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                            ne=0 fichier==                                                                                            \
$Z                            $_____Renormalisation_u                                                                                   \
$Z                                                                              > $FLiStE_PoInTs$COORD_X

$Z                  $CA       $FLiStE_PoInTs                                                                                      |     \
$Z                  $AW       ' { print $4 } '                                                                                    |     \
$Z                  $SE       -e 's/^.*=//'                                                                                       |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                            ne=0 fichier==                                                                                            \
$Z                            $_____Renormalisation_v                                                                                   \
$Z                                                                              > $FLiStE_PoInTs$COORD_Y

$Z                  set                 CoLoRiAgE_RVB="$K_VIDE"

$Z                  if                  ($_____GenereRVB == $EXIST) then
$Z                                      # Test introduit le 20230421171349...                                                         #
$Z                                      $CA       $FLiStE_PoInTs                                                                  |     \
$Z                                      $AW       ' { print $9 } '                                                                |     \
$Z                                      $SE       -e 's/^.*=//'                                                                         \
$Z                                                                                                  > $FLiStE_PoInTs$ROUGE

$Z                                      $CA       $FLiStE_PoInTs                                                                  |     \
$Z                                      $AW       ' { print $10 } '                                                               |     \
$Z                                      $SE       -e 's/^.*=//'                                                                         \
$Z                                                                                                  > $FLiStE_PoInTs$VERTE

$Z                                      $CA       $FLiStE_PoInTs                                                                  |     \
$Z                                      $AW       ' { print $11 } '                                                               |     \
$Z                                      $SE       -e 's/^.*=//'                                                                         \
$Z                                                                                                  > $FLiStE_PoInTs$BLEUE

$Z                                      $CA       $FLiStE_PoInTs                                                                  |     \
$Z                                      $AW       ' { print $7 } '                                                                |     \
$Z                                      $SE       -e 's/^.*=//'                                                                         \
$Z                                                                                                  > $FLiStE_PoInTs$MASSE

$Z                                      set                 CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_ROUGE=$FLiStE_PoInTs$ROUGE"
$Z                                      set                 CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_VERTE=$FLiStE_PoInTs$VERTE"
$Z                                      set                 CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_BLEUE=$FLiStE_PoInTs$BLEUE"
$Z                                      set                 CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_MASSE=$FLiStE_PoInTs$MASSE"
$Z                                      set                 CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" extrema_differentielles_veritables=VRAI"
$Z                                      # L'option "extrema_differentielles_veritables=VRAI" est destinee a conserver integralement   #
$Z                                      # la dynamique des trois fichiers {$ROUGE,$VERTE,$BLEUE}. Le 20240519085438 fut introduit     #
$Z                                      # '$MASSE'...                                                                                 #
$Z                  else
$Z                  endif

$Z                  FilSTmpB  FPaLeTtE

$m4                 _____include(_____xiirv/.HILB.M5.1._____U)
$Z                                      # Possibilite de coloriage arbitraire introduite le 20230125100109...                         #

$Z                  if        (-e $FLiStE_PoInTs$RAYON) then
$Z                            set       MoDuLaTiOn_RaYoN="coordonnees_RAYON=$FLiStE_PoInTs$RAYON"
$Z                                      # Possibilite de modulation du rayon introduite le 20240518075215...                          #
$Z                  else
$Z                            set       MoDuLaTiOn_RaYoN="$K_VIDE"
$Z                  endif

$Z                  if        (    (-e $FLiStE_PoInTs$ROUGE)                                                                            \
$Z                            &&   (-e $FLiStE_PoInTs$VERTE)                                                                            \
$Z                            &&   (-e $FLiStE_PoInTs$BLEUE)                                                                            \
$Z                             ) then
$Z                            set       MoDuLaTiOn_CoUlEuRs="$K_VIDE"
$Z                            set       MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs ""coordonnees_ROUGE=$FLiStE_PoInTs$ROUGE"
$Z                            set       MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs ""coordonnees_VERTE=$FLiStE_PoInTs$VERTE"
$Z                            set       MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs ""coordonnees_BLEUE=$FLiStE_PoInTs$BLEUE"
$Z                            set       MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs"" extrema_differentielles_veritables=VRAI"
$Z                                      # Possibilite de modulation du rayon introduite le 20240518101316...                          #
$Z                  else
$Z                            set       MoDuLaTiOn_CoUlEuRs="$K_VIDE"
$Z                  endif

$Z        eval      $_____Surface                                                                                                       \
$Z                            u_v_arbitraires=VRAI                                                                                      \
$Z                            coordonnees_u=$FLiStE_PoInTs$COORD_X                                                                      \
$Z                            coordonnees_v=$FLiStE_PoInTs$COORD_Y                                                                      \
$Z                            $MoDuLaTiOn_RaYoN                                                                                         \
$Z                            $CoLoRiAgE                                                                                                \
$Z                            $CoLoRiAgE_RVB                                                                                            \
$Z                            $MoDuLaTiOn_CoUlEuRs                                                                                      \
$Z                            $_____ArgSurface                                                                                          \
$Z                            editer_extrema_hors=FAUX                                                                                  \
$Z                            $_____SurfacePara1                                                                                        \
$Z                            chiffres=0                                                                                                \
$Z                            R=$_____ImageR                                                                                            \
$Z                                                                                                                      $formatI        \
$Z                                                                                                            $_____Redirection
$Z                                      # Le 'eval' a ete introduit le 20230110110335 a cause de l'eventuelle '$_____Redirection'...  #

$Z                  FilSTmpE  FPaLeTtE