#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         A C C E S   A V E C   L I S S A G E   D ' U N E   I M A G E  :                                                              #
#         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   A V E C   L I S S A G E  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/acces_RVB.21$Z <imageA standard> <imageR flottante> [<attenuation> [<Points7> ... [<Points0>]]]]]]]]]        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/acces_RVB.21$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomA=$1
set       nomR=$2
set       attenuation=$3
set       Points7=$4
set       Points6=$5
set       Points5=$6
set       Points4=$8
set       Points3=$9
set       Points2=$10
set       Points1=$11
set       Points0=$12

#AAAAMMJJ:set  min_AR=`$xci/extrema$X      A=$nomA$ROUGE standard=VRAI minimum=VRAI maximum=FAUX coordonnees=FAUX $formatI |& $CA`    #
set       min_AR=`$xci/extrema$X      A=$nomA$ROUGE standard=VRAI minimum=VRAI maximum=FAUX coordonnees=FAUX $formatI Prme=VRAI`
#AAAAMMJJ:set  min_AV=`$xci/extrema$X      A=$nomA$VERTE standard=VRAI minimum=VRAI maximum=FAUX coordonnees=FAUX $formatI |& $CA`    #
set       min_AV=`$xci/extrema$X      A=$nomA$VERTE standard=VRAI minimum=VRAI maximum=FAUX coordonnees=FAUX $formatI Prme=VRAI`
#AAAAMMJJ:set  min_AB=`$xci/extrema$X      A=$nomA$BLEUE standard=VRAI minimum=VRAI maximum=FAUX coordonnees=FAUX $formatI |& $CA`    #
set       min_AB=`$xci/extrema$X      A=$nomA$BLEUE standard=VRAI minimum=VRAI maximum=FAUX coordonnees=FAUX $formatI Prme=VRAI`
                                        # Recherche des minima de l'image Argument.                                                   #
#AAAAMMJJ:set  max_AR=`$xci/extrema$X      A=$nomA$ROUGE standard=VRAI minimum=FAUX maximum=VRAI coordonnees=FAUX $formatI |& $CA`    #
set       max_AR=`$xci/extrema$X      A=$nomA$ROUGE standard=VRAI minimum=FAUX maximum=VRAI coordonnees=FAUX $formatI Prme=VRAI`
#AAAAMMJJ:set  max_AV=`$xci/extrema$X      A=$nomA$VERTE standard=VRAI minimum=FAUX maximum=VRAI coordonnees=FAUX $formatI |& $CA`    #
set       max_AV=`$xci/extrema$X      A=$nomA$VERTE standard=VRAI minimum=FAUX maximum=VRAI coordonnees=FAUX $formatI Prme=VRAI`
#AAAAMMJJ:set  max_AB=`$xci/extrema$X      A=$nomA$BLEUE standard=VRAI minimum=FAUX maximum=VRAI coordonnees=FAUX $formatI |& $CA`    #
set       max_AB=`$xci/extrema$X      A=$nomA$BLEUE standard=VRAI minimum=FAUX maximum=VRAI coordonnees=FAUX $formatI Prme=VRAI`
                                        # Recherche des maxima de l'image Argument.                                                   #

$xci/acces_lis.11$Z $nomA$ROUGE $nomR$ROUGE $attenuation $Points7 $Points6 $Points5 $Points4 $Points3 $Points2 $Points1 $Points0
$xci/acces_lis.11$Z $nomA$VERTE $nomR$VERTE $attenuation $Points7 $Points6 $Points5 $Points4 $Points3 $Points2 $Points1 $Points0
$xci/acces_lis.11$Z $nomA$BLEUE $nomR$BLEUE $attenuation $Points7 $Points6 $Points5 $Points4 $Points3 $Points2 $Points1 $Points0
                                        # Conversion avec lissage.                                                                    #

$xci/scale$X        A=$nomR$ROUGE standard=FAUX imposer=VRAI minimum=$min_AR maximum=$max_AR R=$nomR$ROUGE $formatI
$xci/scale$X        A=$nomR$VERTE standard=FAUX imposer=VRAI minimum=$min_AV maximum=$max_AV R=$nomR$VERTE $formatI
$xci/scale$X        A=$nomR$BLEUE standard=FAUX imposer=VRAI minimum=$min_AB maximum=$max_AB R=$nomR$BLEUE $formatI
                                        # Et enfin, les extrema de l'image Argument sont communiques a l'image Resultat.              #