#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         R E C O L O R I A G E   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  :                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xci/RVB_RVB.01$Z   <imageA> <PaletteR> <PaletteV> <PaletteB> <imageR> [<Programme>]                                   #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/RVB_RVB.01$Z' :                                                                                             #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20100307095637).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       PaletteR=$2
set       PaletteV=$3
set       PaletteB=$4
set       imageR=$5
set       Programme=$6
                                        # Argument introduit le 20100308084458...                                                     #

setArgum  Programme                     $xci/minmax$X
                                        # Possibilite introduite le 20100308084458...                                                 #

FilSTmpB  ImAgE
                                        # Image de manoeuvre...                                                                       #

setenv    LONGUEUR_NOMS       $xLONGUEUR_NOMS

$xci/vraies_C$X                                                                                                                         \
                    A=$imageA$ROUGE                                                                                                     \
                    p=$PaletteR                                                                                                         \
                    R=$ImAgE$ROUGE                                                                                                      \
                                                                                                    $formatI
$xci/vraies_C$X                                                                                                                         \
                    A=$imageA$VERTE                                                                                                     \
                    p=$PaletteV                                                                                                         \
                    R=$ImAgE$VERTE                                                                                                      \
                                                                                                    $formatI
$xci/vraies_C$X                                                                                                                         \
                    A=$imageA$BLEUE                                                                                                     \
                    p=$PaletteB                                                                                                         \
                    R=$ImAgE$BLEUE                                                                                                      \
                                                                                                    $formatI
                                        # Coloriage en vraies couleurs des trois composantes de '$imageA'...                          #

execRVB   "$Programme          A1=$ImAgE$ROUGE%s A2=$ImAgE$VERTE%s $formatI | $Programme    A2=$ImAgE$BLEUE%s R=$imageR%s $formatI"

FilSTmpE  ImAgE
                                        # Image de manoeuvre...                                                                       #