#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         S U B S T I T U T I O N   D E S   T R O I S   C O M P O S A N T E S   D ' U N E   I M A G E  :                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/substitue_RVB.11$Z       <imageA> <imageR> [<PalR> [<SubR> [<PalV> [<SubV> [<PalB> [<SubB> [<Renorm>]]]]]]]  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/substitue_RVB.11$Z' :                                                                                       #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20130207103404).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 imageR=$2
set                 PaletteR=$3
set                 SubstitutionR=$4
set                 PaletteV=$5
set                 SubstitutionV=$6
set                 PaletteB=$7
set                 SubstitutionB=$8
set                 Renormalise=$9

setArgum            PaletteR                      $xiP/gris.01

setArgum            SubstitutionR                 "L_SUBSTITUTION_ROUGE"

setArgum            PaletteV                      $xiP/gris.01

setArgum            SubstitutionV                 "L_SUBSTITUTION_VERTE"

setArgum            PaletteB                      $xiP/gris.01

setArgum            SubstitutionB                 "L_SUBSTITUTION_BLEUE"

setArgum            Renormalise                   $NEXIST
                                        # Argument introduit le 20130218101352...                                                     #

set                 Arguments="standard=VRAI"

$xci/substitue$X    A=$imageA$ROUGE                                                                                                     \
                    p=$PaletteR substitution=$SubstitutionR                                                                             \
                    $Arguments                                                                                                          \
                    R=$imageR$ROUGE                                                                                                     \
                                                                                                                        $formatI
$xci/substitue$X    A=$imageA$VERTE                                                                                                     \
                    p=$PaletteV substitution=$SubstitutionV                                                                             \
                    $Arguments                                                                                                          \
                    R=$imageR$VERTE                                                                                                     \
                                                                                                                        $formatI
$xci/substitue$X    A=$imageA$BLEUE                                                                                                     \
                    p=$PaletteB substitution=$SubstitutionB                                                                             \
                    $Arguments                                                                                                          \
                    R=$imageR$BLEUE                                                                                                     \
                                                                                                                        $formatI
                                        # Et substitution des composantes...                                                          #

if                  ($Renormalise == $EXIST) then
                    execRVB             $xci/acces$X        A=$imageR%s renormaliser=VRAI R=$imageR%s                   $formatI
                                        # Renormalisation eventuelle introduite le 20130218101352...                                  #
else
endif