#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   L A   P A L E T T E   ' NoeudTrefle.01 '  :                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xigP/NoeudTrefle.01$Z' :                                                                                        #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220429084043).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

FilSTmpB  FNoEuDTrEfLe

xtc

$Cc       NoeudTrefle.01$c $Bsysteme

$aPout                                                                                                                            |     \
$GRE      "^Troncon1"                                                                                                                   \
                                                                                                              >> $FNoEuDTrEfLe

$aPout                                                                                                                            |     \
$GRE      "^Troncon2"                                                                                                                   \
                                                                                                              >> $FNoEuDTrEfLe

$aPout                                                                                                                            |     \
$GRE      "^Troncon3"                                                                                                                   \
                                                                                                              >> $FNoEuDTrEfLe

set       PaSsEs=1000

$CA       $FNoEuDTrEfLe                                                                                                           |     \
$AW       ' { print $2 } '                                                                                                        |     \
$SE       -e 's/^.*=//'                                                                                                           |     \
$xrv/lissage.01$X                                                                                                                       \
          ne=0 fichier==                                                                                                                \
          passes=$PaSsEs                                                                                                          |     \
$xrv/normalise.01$X                                                                                                                     \
          ne=0 fichier==                                                                                                                \
          minimum=$NOIR maximum=$BLANC                                                                                                  \
          formater=VRAI entier=VRAI signe="$K_VIDE"                                                                                     \
                                                                                                              >  $FNoEuDTrEfLe$COORD_X

$CA       $FNoEuDTrEfLe                                                                                                           |     \
$AW       ' { print $3 } '                                                                                                        |     \
$SE       -e 's/^.*=//'                                                                                                           |     \
$xrv/lissage.01$X                                                                                                                       \
          ne=0 fichier==                                                                                                                \
          passes=$PaSsEs                                                                                                          |     \
$xrv/normalise.01$X                                                                                                                     \
          ne=0 fichier==                                                                                                                \
          minimum=$NOIR maximum=$BLANC                                                                                                  \
          formater=VRAI entier=VRAI signe="$K_VIDE"                                                                                     \
                                                                                                              >  $FNoEuDTrEfLe$COORD_Y

$CA       $FNoEuDTrEfLe                                                                                                           |     \
$AW       ' { print $4 } '                                                                                                        |     \
$SE       -e 's/^.*=//'                                                                                                           |     \
$xrv/lissage.01$X                                                                                                                       \
          ne=0 fichier==                                                                                                                \
          passes=$PaSsEs                                                                                                          |     \
$xrv/normalise.01$X                                                                                                                     \
          ne=0 fichier==                                                                                                                \
          minimum=$NOIR maximum=$BLANC                                                                                                  \
          formater=VRAI entier=VRAI signe="$K_VIDE"                                                                                     \
                                                                                                              >  $FNoEuDTrEfLe$COORD_Z

set       numeros   = (`$xci/valeurs_inte$X p=$NOIR d=$BLANC vD=$NOIR_PLANCHER vA=$COULEURS cubique=FAUX entiers=VRAI signe="$K_VIDE"`)
set       niveaux   = (`$xci/valeurs_inte$X p=$NOIR d=$BLANC vD=$NOIR          vA=$BLANC    cubique=FAUX entiers=VRAI signe="$K_VIDE"`)
set       fonction  = (`repeat $COULEURS echo "N "`)
set       rouge     = (`$CA $FNoEuDTrEfLe$COORD_X`)
set       verte     = (`$CA $FNoEuDTrEfLe$COORD_Y`)
set       bleue     = (`$CA $FNoEuDTrEfLe$COORD_Z`)

$DELETE   $aPout

FilSTmpE  FNoEuDTrEfLe

source    $xigP/.INTERPOLE$Y