#!/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   C O N S E R V A N T                                                 #
#         L E S   R A P P O R T S   E N T R E   L E S   M A X I M A  :                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/acces_RVB.14$Z <imageA> <imageR>                                                                             #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/acces_RVB.14$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230419174733).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       imageR=$2

set       ArGuMeNtS="minimum=FAUX maximum=VRAI coordonnees=FAUX Prme=VRAI"

set       max_R=`$xci/extrema$X      A=$imageA$ROUGE $ArGuMeNtS $formatI`
set       max_V=`$xci/extrema$X      A=$imageA$VERTE $ArGuMeNtS $formatI`
set       max_B=`$xci/extrema$X      A=$imageA$BLEUE $ArGuMeNtS $formatI`

set       max_RVB=`$xcg/MAX3.01$X    a=$max_R b=$max_V c=$max_B`

set       FaCtEuR=`$xcg/DIVZ.01$X a=$BLANC b=$max_RVB`

execRVB   $xci/scale$X        A=$imageA%s         R=$imageR%s         a=$FaCtEuR b=0                                    $formatI
                                        # Et conversion avec renormalisation "homogene" sur les trois composantes...                  #

unset     max_R max_V max_B max_RVB
unset     FaCtEuR