#!/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   R E H A U S S A N T                                                 #
#         L E S   D E U X   C O M P O S A N T E S   ' R O U G E '   E T   ' B L E U E '  :                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/acces_RVB.13$Z <imageA> <imageR>                                                                             #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/acces_RVB.13$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 imageR=$2

FileTmpB            imageT

set                 R_R=1.0
set                 R_V=0.0
set                 R_B=0.0

set                 V_R=0.3
set                 V_V=1.0
set                 V_B=0.6
                                        # ATTENTION, jusqu'au 1995100800, il y avait ici :                                            #
                                        #                                                                                             #
                                        #                   set                 V_R=0.4                                               #
                                        #                   set                 V_V=1.0                                               #
                                        #                   set                 V_B=0.8                                               #
                                        #                                                                                             #
                                        # mais, c'etait un peu trop, d'ou cette diminution...                                         #

set                 B_R=0.0
set                 B_V=0.0
set                 B_B=1.0
                                        # Ponderation des trois composantes telle que :                                               #
                                        #                                                                                             #
                                        #                   ROUGE     ---------->    ROUGE                                            #
                                        #                                  |                                                          #
                                        #                                  |                                                          #
                                        #                                   ---->                                                     #
                                        #                   VERTE     ---------->    VERTE                                            #
                                        #                                   ---->                                                     #
                                        #                                  |                                                          #
                                        #                                  |                                                          #
                                        #                   BLEUE     ---------->    BLEUE                                            #
                                        #                                                                                             #

set                 Arguments="convertir=FAUX renormaliser=FAUX flou=VRAI"

$xci/somme_13$X     alpha=$R_R A1=$imageA$ROUGE beta=$R_V A2=$imageA$VERTE gamma=$R_B A3=$imageA$BLEUE                                  \
                    $Arguments                                                                                                          \
                                                                                R=$imageT$ROUGE                                         \
                                                                                                                        $formatI
$xci/somme_13$X     alpha=$V_R A1=$imageA$ROUGE beta=$V_V A2=$imageA$VERTE gamma=$V_B A3=$imageA$BLEUE                                  \
                    $Arguments                                                                                                          \
                                                                                R=$imageT$VERTE                                         \
                                                                                                                        $formatI
$xci/somme_13$X     alpha=$B_R A1=$imageA$ROUGE beta=$B_V A2=$imageA$VERTE gamma=$B_B A3=$imageA$BLEUE                                  \
                    $Arguments                                                                                                          \
                                                                                R=$imageT$BLEUE                                         \
                                                                                                                        $formatI
                                        # Et "rehausse" de chacune des trois composantes en fonction des deux autres...               #

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