#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         C O N V E R S I O N   " S T A N D A R D "   -->   S T A N D A R D "   D ' U N E                                             #
#         I M A G E   E N   V R A I E S   C O U L E U R S   E N   L I S S A N T  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/acces_RVB.31$Z <imageA> <imageR> [<passes> [<palettes>]]                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/acces_RVB.31$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 imageR=$2
set                 Passes=$3
set                 Palettes=$4

setArgum            Passes                        2
                                        # Nombre de passes de lissage....                                                             #

setArgum            Palettes                      $xiP/gris.01
                                        # Palette de contraste par defaut...                                                          #

FileTmpB            nomT
                                        # Generation d'un nom temporaire...                                                           #

set                 ArgumentsA1="convertir=VRAI"
set                 ArgumentsL="CAL1=FAUX passes=$Passes standard=FAUX"
set                 ArgumentsA2="standard=FAUX extrema=FAUX tronquer=VRAI"

$xci/dilate.01$X    A=$imageA$ROUGE                                                                                                     \
                                                                                                                        $formatI        \
                                        | $xci/acces$X                          $ArgumentsA1                                            \
                                                                                                                        $formatI        \
                                        | $xci/lissage$X                        $ArgumentsL                                             \
                                                                                                                        $formatI        \
                                        | $xci/acces$X                          $ArgumentsA2                                            \
                                                                                R=$nomT$ROUGE                                           \
                                                                                                                        $formatI
$xci/dilate.01$X    A=$imageA$VERTE                                                                                                     \
                                                                                                                        $formatI        \
                                        | $xci/acces$X                          $ArgumentsA1                                            \
                                                                                                                        $formatI        \
                                        | $xci/lissage$X                        $ArgumentsL                                             \
                                                                                                                        $formatI        \
                                        | $xci/acces$X                          $ArgumentsA2                                            \
                                                                                R=$nomT$VERTE                                           \
                                                                                                                        $formatI
$xci/dilate.01$X    A=$imageA$BLEUE                                                                                                     \
                                                                                                                        $formatI        \
                                        | $xci/acces$X                          $ArgumentsA1                                            \
                                                                                                                        $formatI        \
                                        | $xci/lissage$X                        $ArgumentsL                                             \
                                                                                                                        $formatI        \
                                        | $xci/acces$X                          $ArgumentsA2                                            \
                                                                                R=$nomT$BLEUE                                           \
                                                                                                                        $formatI
                                        # Lissage...                                                                                  #

$xci/substitue$X    A=$nomT$ROUGE                                                                                                       \
                                        p=$Palettes                                                                                     \
                                        substitution=L_SUBSTITUTION_ROUGE                                                               \
                                                                                R=$imageR$ROUGE                                         \
                                                                                                                        $formatI
$xci/substitue$X    A=$nomT$VERTE                                                                                                       \
                                        p=$Palettes                                                                                     \
                                        substitution=L_SUBSTITUTION_ROUGE                                                               \
                                                                                R=$imageR$VERTE                                         \
                                                                                                                        $formatI
$xci/substitue$X    A=$nomT$BLEUE                                                                                                       \
                                        p=$Palettes                                                                                     \
                                        substitution=L_SUBSTITUTION_ROUGE                                                               \
                                                                                R=$imageR$BLEUE                                         \
                                                                                                                        $formatI
                                        # Modification eventuelle du contraste.                                                       #

FileTmpE  nomT