#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         L I S S A G E   D ' U N E   P A L E T T E  :                                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xciP/lissage.01$Z  <paletteA> <paletteR> [<passes>]                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xciP/lissage.01$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 paletteA=$1
set                 paletteR=$2
set                 passes=$3

setArgum            passes                        8

source              $xciP/XYmaxNe$Y
                                        # Choix d'un mode ou l'image est petite et suffisante...                                      #

FileTmpB            IpaletteA
FileTmpB            IpaletteR

$xci/init$X         niveau=$NOIR                                                                                        $formatI        \
                                        | $xci/mire$X         h=$hauteur                                                $formatI        \
                                        | $xci/vraies_C$X     p=$paletteA RVB=VRAI R=$IpaletteA                         $formatI
                                        # Conversion de la palette Argument en une image.                                             #

$xci/acces$X        A=$IpaletteA$ROUGE convertir=VRAI                                                                   $formatI        \
                                        | $xci/lissage$X      standard=FAUX                                                             \
                                                              passes=$passes                                                            \
                                                                                                                        $formatI        \
                                        | $xci/acces$X        standard=FAUX zero=FAUX extrema=FAUX R=$IpaletteR$ROUGE   $formatI
$xci/acces$X        A=$IpaletteA$VERTE convertir=VRAI                                                                   $formatI        \
                                        | $xci/lissage$X      standard=FAUX                                                             \
                                                              passes=$passes                                                            \
                                                                                                                        $formatI        \
                                        | $xci/acces$X        standard=FAUX zero=FAUX extrema=FAUX R=$IpaletteR$VERTE   $formatI
$xci/acces$X        A=$IpaletteA$BLEUE convertir=VRAI                                                                   $formatI        \
                                        | $xci/lissage$X      standard=FAUX                                                             \
                                                              passes=$passes                                                            \
                                                                                                                        $formatI        \
                                        | $xci/acces$X        standard=FAUX zero=FAUX extrema=FAUX R=$IpaletteR$BLEUE   $formatI
                                        # Lissage...                                                                                  #

$xciP/IMAGE$X       A=$IpaletteR$ROUGE pA=$xiP/gris.01 pR=$paletteR ROUGE=VRAI VERTE=FAUX BLEUE=FAUX                    $formatI
$xciP/IMAGE$X       A=$IpaletteR$VERTE pA=$xiP/gris.01 pR=$paletteR ROUGE=FAUX VERTE=VRAI BLEUE=FAUX                    $formatI
$xciP/IMAGE$X       A=$IpaletteR$BLEUE pA=$xiP/gris.01 pR=$paletteR ROUGE=FAUX VERTE=FAUX BLEUE=VRAI                    $formatI
                                        # Puis enfin, reconversion de l'image en une palette...                                       #

ro                  $paletteR$ROUGE
ro                  $paletteR$VERTE
ro                  $paletteR$BLEUE
                                        # Enfin, protection...                                                                        #

FileTmpE            IpaletteA
FileTmpE            IpaletteR