#!/bin/csh

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

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

setArgum            min_RVB                       $NOIR

setArgum            max_RVB                       $BLANC

set                 ArG_acces="standard=VRAI convertir_standard=VRAI interpoler=FAUX extrema=FAUX minimum=$min_RVB maximum=$max_RVB"

$xci/acces$X        A=$imageA$ROUGE $ArG_acces                                  R=$imageR$ROUGE                         $formatI
$xci/acces$X        A=$imageA$VERTE $ArG_acces                                  R=$imageR$VERTE                         $formatI
$xci/acces$X        A=$imageA$BLEUE $ArG_acces                                  R=$imageR$BLEUE                         $formatI
                                        # Conversion "homogene" sur les trois composantes...                                          #

set                 ArG_scale="standard=FAUX a=`$xcg/INVZ.01$X a=$BLANC`"

$xci/scale$X        A=$imageR$ROUGE $ArG_scale                                  R=$imageR$ROUGE                         $formatI
$xci/scale$X        A=$imageR$VERTE $ArG_scale                                  R=$imageR$VERTE                         $formatI
$xci/scale$X        A=$imageR$BLEUE $ArG_scale                                  R=$imageR$BLEUE                         $formatI
                                        # Et enfin, mise dans [0,1]...                                                                #

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