#!/bin/csh

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

set                 paletteA=$1
set                 paletteR=$2
set                 seuil=$3
set                 renormaliser=$4

setArgum            seuil                         $GRIS_7

setArgum            renormaliser                  FAUX

set                 XYmaxNeDiv=1
source              $xciP/XYmaxNe$Y
                                        # Choix d'un mode ou l'image est petite, suffisante et surtout carree et puissance de 2...    #

FileTmpB            IpaletteA
FileTmpB            IpaletteR

FileTmpB            Igauss

$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 en une image.                                                      #
$xci/gauss$X                                                                                                                            \
                                        R=$Igauss                                                                       $formatI
                                        # Generation d'une gaussienne.                                                                #

$xci/filtre.01$X    A=$IpaletteA$ROUGE N=$Igauss seuil=$seuil renormaliser=$renormaliser R=$IpaletteR$ROUGE             $formatI
$xci/filtre.01$X    A=$IpaletteA$VERTE N=$Igauss seuil=$seuil renormaliser=$renormaliser R=$IpaletteR$VERTE             $formatI
$xci/filtre.01$X    A=$IpaletteA$BLEUE N=$Igauss seuil=$seuil renormaliser=$renormaliser R=$IpaletteR$BLEUE             $formatI
                                        # Filtrage des images vraies couleurs attachees a la palette. ATTENTION, avant le             #
                                        # 19971125150659, l'argument "renormaliser=FAUX" etait absent et il y avait donc              #
                                        # renormalisation de '$IpaletteR'.                                                            #

$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            Igauss
FileTmpE            IpaletteA
FileTmpE            IpaletteR