#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         P R O F I L   D ' U N E   P A L E T T E  :                                                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/ProfilPalette.01$vv$Z    <Palette>                                                                           #
#                                                 [<NombrePics>                                                                       #
#                                                 [<PassesLissage> [<ExposantLissage>                                                 #
#                                                 [<cX_D> [<cY_D>                                                                     #
#                                                 [<cY_A> [<cY_D>                                                                     #
#                                                 [<cY_A> [<cZ_D>                                                                     #
#                                                 [<cZ_A> [<cN_A>                                                                     #
#                                                 [<cN_D> [<cR_A>                                                                     #
#                                                 [<cR_D>                                                                             #
#                                                 [<Fond>                                                                             #
#                                                 [<Zoom>                                                                             #
#                                                 [<Perspective> [<TranslationY> [<Echelle>                                           #
#                                                  ]]]]]]]]]]]]]]]]]]]                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/ProfilPalette.01$vv$Z' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240401142409).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       Palette=$1
set       NombrePics=$2
set       PassesLissage=$3
set       ExposantLissage=$4
set       cX_D=$5
set       cX_A=$6
set       cY_D=$7
set       cY_A=$8
set       cZ_D=$9
set       cZ_A=$10
set       cN_A=$11
set       cN_D=$12
set       cR_A=$13
set       cR_D=$14
set       Fond=$15
set       Zoom=$16
set       Perspective=$17
set       TranslationY=$18
set       Echelle=$19

setArgum  NombrePics          10

setArgum  PassesLissage       100
setArgum  ExposantLissage     1

setArgum  cX_D                0.1
setArgum  cX_A                0.9

setArgum  cY_D                0.5
setArgum  cY_A                0.5

setArgum  cZ_D                0
setArgum  cZ_A                0

setArgum  cN_D                $NOIR_PLANCHER
setArgum  cN_A                $BLANC

setArgum  cR_D                0.04
setArgum  cR_A                0.04

setArgum  Fond                `calculINS $GRIS_1/2`

setArgum  Zoom                1.4

setArgum  Perspective         0.5
setArgum  TranslationY        0.9
setArgum  Echelle             1

if        ((-e $Palette$ROUGE) && (-e $Palette$VERTE) && (-e $Palette$BLEUE)) then
          Std

          FilSTmpB            FPiCs

          $xci/valeurs_inte$X premiere=1 derniere=$NombrePics                                                                           \
                              lineaire=VRAI                                                                                             \
                              vD=$cX_D            vA=$cX_A                                                                              \
                                                                                                    >   $FPiCs$COORD_X

          $xci/valeurs_inte$X premiere=1 derniere=$NombrePics                                                                           \
                              lineaire=VRAI                                                                                             \
                              vD=$cY_D            vA=$cY_A                                                                              \
                                                                                                    >   $FPiCs$COORD_Y

          $xci/valeurs_inte$X premiere=1 derniere=$NombrePics                                                                           \
                              lineaire=VRAI                                                                                             \
                              vD=$cZ_D            vA=$cZ_A                                                                              \
                                                                                                    >   $FPiCs$COORD_Z

          $xci/valeurs_inte$X premiere=1 derniere=$NombrePics                                                                           \
                              lineaire=VRAI                                                                                             \
                              vD=$cN_D            vA=$cN_A                                                                              \
                              entiers=VRAI                                                                                              \
                                                                                                    >   $FPiCs$NIVEAU

          $xci/valeurs_inte$X premiere=1 derniere=$NombrePics                                                                           \
                              lineaire=VRAI                                                                                             \
                              vD=$cR_D            vA=$cR_A                                                                              \
                                                                                                    >   $FPiCs$RAYON

execRVB   $xci/init$X         niveau=$Fond                                                                                              \
                              R=$FPiCs.fond%s                                                                                           \
                                                                                                                        $formatI

          set                 ArGuMeNtS="$K_VIDE"
          set                 ArGuMeNtS="$ArGuMeNtS"" isoles=VRAI"
          set                 ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
          set                 ArGuMeNtS="$ArGuMeNtS"" ZOOM=$Zoom"
          set                 ArGuMeNtS="$ArGuMeNtS"" N_au_carre=VRAI"
          set                 ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
          set                 ArGuMeNtS="$ArGuMeNtS"" editer_mauvais_encadrement_niveaux_interpoles=FAUX"
          set                 ArGuMeNtS="$ArGuMeNtS"" chiffres=0"

          $xrv/particule.10$X npoints=$NombrePics                                                                                       \
                              LISTE_X=$FPiCs$COORD_X                                                                                    \
                              LISTE_Y=$FPiCs$COORD_Y                                                                                    \
                              LISTE_Z=$FPiCs$COORD_Z                                                                                    \
                              LISTE_NIVEAU=$FPiCs$NIVEAU                                                                                \
                              LISTE_RAYON=$FPiCs$RAYON                                                                                  \
                              p=$Palette                                                                                                \
                              $ArGuMeNtS                                                                                                \
                              fond=VRAI F=$FPiCs.fond                                                                                   \
                              siR=$NOIR                                                                                                 \
                              siV=$NOIR                                                                                                 \
                              siB=$NOIR                                                                                                 \
                              R=$FPiCs.particules                                                                                       \
                                                                                                                        $formatI
                                        # ATTENTION a 'v $xrv/champs_5.15$I SEUIL_INFERIEUR_DU_VERTE' qui n'est pas nul contrairement #
                                        # a 'SEUIL_INFERIEUR_DU_ROUGE' et a 'SEUIL_INFERIEUR_DU_BLEUE'...                             #

          $xci/luminance.01$X                                                                                                           \
                              A=$FPiCs.particules                                                                                       \
                                                  $formatI                                                                        |     \
          $xci/acces$X                                                                                                                  \
                              convertir=VRAI                                                                                            \
                                                  $formatI                                                                        |     \
          $xci/lissage$X                                                                                                                \
                              standard=FAUX                                                                                             \
                              passes=$PassesLissage                                                                                     \
                              navap=VRAI                                                                                                \
                                                  $formatI                                                                        |     \
          $xci/exponent$X                                                                                                               \
                              standard=FAUX                                                                                             \
                              exposant=$ExposantLissage                                                                                 \
                              cx=0 cy=0 cn=1                                                                                            \
                              R=$FPiCs.surface                                                                                          \
                                                                                                                        $formatI

execRVB   $xci/montagne.01$X                                                                                                            \
                              A=$FPiCs.surface                                                                                          \
                              standard=FAUX zero=FAUX                                                                                   \
                              T=$FPiCs.particules%s                                                                                     \
                              avion=FAUX                                                                                                \
                              perspective=$Perspective                                                                                  \
                              Ty=$TranslationY                                                                                          \
                              echelle=$Echelle                                                                                          \
                              R=$FPiCs.pics%s                                                                                           \
                                                                                                                        $formatI

          v                   $FPiCs.pics

          FilSTmpE            FPiCs
else
          EROR      "La palette '$Palette' n'existe pas."
endif