#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         R E C O M B I N A I S 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   E N   V R A I E S   C O U L E U R S  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xci/ponder_RVB.13$Z     <imageA> <imageR> [<Flou> [<aR> [<bR> [<cR> [<aV> [<bV> [<cV> [<aB> [<bB> [<cB>]]]]]]]]]]     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/ponder_RVB.13$Z' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141221113617).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 imageR=$2

set                 Flou=$3

set                 alpha_R=$4
set                 beta__R=$5
set                 gamma_R=$6

set                 alpha_V=$7
set                 beta__V=$8
set                 gamma_V=$9

set                 alpha_B=$10
set                 beta__B=$11
set                 gamma_B=$12

setArgum            Flou                          FAUX

setArgum            alpha_R                       1

setArgum            beta__R                       0

setArgum            gamma_R                       0

setArgum            alpha_V                       0

setArgum            beta__V                       1

setArgum            gamma_V                       0

setArgum            alpha_B                       0

setArgum            beta__B                       0

setArgum            gamma_B                       1

FileTmpB            imageT

set                 Arguments="convertir=FAUX renormaliser=FAUX flou=$Flou"

$xci/somme_13$X     alpha=$alpha_R A1=$imageA$ROUGE beta=$beta__R A2=$imageA$VERTE gamma=$gamma_R A3=$imageA$BLEUE                      \
                    $Arguments                                                                                                          \
                                                                                R=$imageT$ROUGE                                         \
                                                                                                                        $formatI
$xci/somme_13$X     alpha=$alpha_V A1=$imageA$ROUGE beta=$beta__V A2=$imageA$VERTE gamma=$gamma_V A3=$imageA$BLEUE                      \
                    $Arguments                                                                                                          \
                                                                                R=$imageT$VERTE                                         \
                                                                                                                        $formatI
$xci/somme_13$X     alpha=$alpha_B A1=$imageA$ROUGE beta=$beta__B A2=$imageA$VERTE gamma=$gamma_B A3=$imageA$BLEUE                      \
                    $Arguments                                                                                                          \
                                                                                R=$imageT$BLEUE                                         \
                                                                                                                        $formatI
                                        # Et "recombinaison" des trois composantes...                                                 #

set                 Arguments="convertir=FAUX renormaliser=FAUX"

$xci/acces$X        A=$imageT$ROUGE $Arguments                                  R=$imageR$ROUGE                         $formatI
$xci/acces$X        A=$imageT$VERTE $Arguments                                  R=$imageR$VERTE                         $formatI
$xci/acces$X        A=$imageT$BLEUE $Arguments                                  R=$imageR$BLEUE                         $formatI
                                        # Puis renvoi de l'image Resultat. Cela se fait donc en deux temps pour prevenir le cas ou    #
                                        # '$imageA' et '$imageR' seraient identiques...                                               #

FileTmpE            imageT