#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         E F F E T   D E   B R U M E   E N   V R A I E S   C O U L E U R S  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/vitre.52$Z     <nom_image> <nom_palette_image> <nom_brume> <nom_palette_brume> <nom_resultat_vraies_coul>    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/vitre.52$Z' :                                                                                               #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 paletteI=$2
set                 brume=$3
set                 paletteB=$4
set                 imageR=$5

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

FileTmpB            brumeROUGE $ROUGE
FileTmpB            brumeVERTE $VERTE
FileTmpB            brumeBLEUE $BLEUE

$xci/vraies_C$X     A=$imageA RR=$imageROUGE RV=$imageVERTE RB=$imageBLEUE p=$paletteI $formatI
                                        # Passage des fausses aux vraies couleurs pour l'image.                                       #
$xci/vraies_C$X     A=$brume RR=$brumeROUGE RV=$brumeVERTE RB=$brumeBLEUE p=$paletteB $formatI
                                        # Passage des fausses aux vraies couleurs pour la brume.                                      #

$xci/vitre.51$X     A=$imageROUGE V=$brumeROUGE R=$imageR$ROUGE $formatI
                                        # Effet de brume sur la composante 'ROUGE'.                                                   #
$xci/vitre.51$X     A=$imageVERTE V=$brumeVERTE R=$imageR$VERTE $formatI
                                        # Effet de brume sur la composante 'VERTE'.                                                   #
$xci/vitre.51$X     A=$imageBLEUE V=$brumeBLEUE 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}.                                 #

FileTmpE            brumeROUGE
FileTmpE            brumeVERTE
FileTmpE            brumeBLEUE
                                        # Puis destruction des trois composantes {ROUGE,VERTE,BLEUE}.                                 #