#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         E X T R A C T I O N   D U   N I V E A U   M O Y E N   D ' U N E   I M A G E   E N   C O U L E U R S  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/NiveauMoy.01$Z <imageA> <palette>                                                                            #
#                   $xci/NiveauMoy.01$Z <imageA> RVB                                                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/NiveauMoy.01$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20031017111004).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomA=$1
set       palette=$2

set       NoError_DKVP=$EXIST
source    $Fdisk_video_P
unset     NoError_DKVP

source    $Fdivers

setArgum  palette                       $RVB_DKVP

FileTmpB  imageRVB
                                        # Creation de trois images temporaires.                                                       #

if        ("$palette" == "$RVB_DKVP") then
                                        # Cas des images en vraies couleurs :                                                         #
          $xci/substitue$Z    $nomA $xiP/gris.01 $imageRVB
                                        # Substitution preliminaire "neutre"...                                                       #
else
                                        # Cas des images en fausses couleurs :                                                        #
          $xci/vraies_C$X     A=$nomA p=$palette RVB=VRAI R=$imageRVB                                                   $formatI
                                        # Generation de l'image en vraies couleurs.                                                   #
endif

set       ArGuMeNtS="minimum=FAUX maximum=FAUX coordonnees=FAUX moyenne=VRAI"
execRVB   $xci/extrema$X      A=$imageRVB%s $ArGuMeNtS                                                                  $formatI
                                        # Extraction du niveau moyen de chacune des composantes {ROUGE,VERTE,BLEUE}.                  #

saut

FileTmpE  imageRVB
                                        # Destruction des trois images intermediaires...                                              #