#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         C O N V E R S I O N   " F L O T T A N T E   -->   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   I M P O S A N T   L A                                               #
#         M E M E   N O R M A L I S A T I O N   A U X   T R O I S   C O M P O S A N T E S  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/acces_RVB.12$Z <imageA flottante> <imageR standard> [<minimum> [<maximum>]]                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/acces_RVB.12$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 imageR=$2
set                 min_RVB=$3
set                 max_RVB=$4

if                  ("$min_RVB" == "$K_VIDE") then
#AAAAMMJJ:               set  min_R=`$xci/extrema$X      A=$imageA$ROUGE standard=FAUX minimum=VRAI maximum=FAUX $formatI |& $CA`     #
                    set       min_R=`$xci/extrema$X      A=$imageA$ROUGE standard=FAUX minimum=VRAI maximum=FAUX $formatI Prme=VRAI`
#AAAAMMJJ:               set  min_V=`$xci/extrema$X      A=$imageA$VERTE standard=FAUX minimum=VRAI maximum=FAUX $formatI |& $CA`     #
                    set       min_V=`$xci/extrema$X      A=$imageA$VERTE standard=FAUX minimum=VRAI maximum=FAUX $formatI Prme=VRAI`
#AAAAMMJJ:               set  min_B=`$xci/extrema$X      A=$imageA$BLEUE standard=FAUX minimum=VRAI maximum=FAUX $formatI |& $CA`     #
                    set       min_B=`$xci/extrema$X      A=$imageA$BLEUE standard=FAUX minimum=VRAI maximum=FAUX $formatI Prme=VRAI`

                    set       min_RV=`$xcg/tri_02.01$X    n1=$min_R n2=$min_V minimum=VRAI maximum=FAUX`

#20111214165819____:                    set       min_RVB=`$xcg/tri_02.01$X    n1=$min_RV n2=$min_B minimum=VRAI maximum=FAUX`        #
                    SET1s     min_RVB = `$xcg/tri_02.01$X    n1=$min_RV n2=$min_B minimum=VRAI maximum=FAUX`
else
endif
                                        # Recherche des minima.                                                                       #

if                  ("$max_RVB" == "$K_VIDE") then
#AAAAMMJJ:               set  max_R=`$xci/extrema$X      A=$imageA$ROUGE standard=FAUX minimum=FAUX maximum=VRAI $formatI |& $CA`     #
                    set       max_R=`$xci/extrema$X      A=$imageA$ROUGE standard=FAUX minimum=FAUX maximum=VRAI $formatI Prme=VRAI`
#AAAAMMJJ:               set  max_V=`$xci/extrema$X      A=$imageA$VERTE standard=FAUX minimum=FAUX maximum=VRAI $formatI |& $CA`     #
                    set       max_V=`$xci/extrema$X      A=$imageA$VERTE standard=FAUX minimum=FAUX maximum=VRAI $formatI Prme=VRAI`
#AAAAMMJJ:               set  max_B=`$xci/extrema$X      A=$imageA$BLEUE standard=FAUX minimum=FAUX maximum=VRAI $formatI |& $CA`     #
                    set       max_B=`$xci/extrema$X      A=$imageA$BLEUE standard=FAUX minimum=FAUX maximum=VRAI $formatI Prme=VRAI`

                    set       max_RV=`$xcg/tri_02.01$X    n1=$max_R n2=$max_V minimum=FAUX maximum=VRAI`

#20111214165819____:                    set       max_RVB=`$xcg/tri_02.01$X    n1=$max_RV n2=$max_B minimum=FAUX maximum=VRAI`        #
                    SET1s     max_RVB = `$xcg/tri_02.01$X    n1=$max_RV n2=$max_B minimum=FAUX maximum=VRAI`
else
endif
                                        # Recherche des maxima.                                                                       #

set                 Arguments="standard=FAUX extrema=FAUX minimum=$min_RVB maximum=$max_RVB"

$xci/acces$X        A=$imageA$ROUGE $Arguments                                  R=$imageR$ROUGE                         $formatI
$xci/acces$X        A=$imageA$VERTE $Arguments                                  R=$imageR$VERTE                         $formatI
$xci/acces$X        A=$imageA$BLEUE $Arguments                                  R=$imageR$BLEUE                         $formatI
                                        # Et conversion avec renormalisation "homogene" sur les trois composantes...                  #

unset               min_R min_V min_B min_RV min_RVB
unset               max_R max_V max_B max_RV max_RVB