#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         E F F E T   D E   B R U M E   E N   V R A I   C O U L E U R  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/vitre.11$Z     <nom_image_fausses_coul> <nom_palette> <nom_brume_fausses_coul> <nom_resultat_vraies_coul>    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/vitre.11$Z' :                                                                                               #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 palette=$2
set                 brume=$3
set                 imageR=$4

FileTmpB            imageROUGE $ROUGE
FileTmpB            imageVERTE $VERTE
FileTmpB            imageBLEUE $BLEUE

$xci/vraies_C$X     A=$imageA RR=$imageROUGE RV=$imageVERTE RB=$imageBLEUE p=$palette $formatI
                                        # Passage des fausses aux vraies couleurs.                                                    #
$xci/vitre.11$X     A=$imageROUGE V=$brume R=$imageR$ROUGE $formatI
                                        # Effet de brume sur la composante 'ROUGE'.                                                   #
$xci/vitre.11$X     A=$imageVERTE V=$brume R=$imageR$VERTE $formatI
                                        # Effet de brume sur la composante 'VERTE'.                                                   #
$xci/vitre.11$X     A=$imageBLEUE V=$brume R=$imageR$BLEUE $formatI
                                        # Effet de brume sur la composante 'BLEUE'.                                                   #
FileTmpE            imageROUGE
FileTmpE            imageVERTE
FileTmpE            imageBLEUE
                                        # Puis destruction des trois composantes {ROUGE,VERTE,BLEUE}.                                 #