#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   D ' U N E   I M A G E   A S S O C I E   A   U N E   P A L E T T E   D O N N E E                                   #
#         S O U S   F O R M E   D ' U N E   I M A G E   V I S U A L I S A B L E   A V E C   '$xiP/universel.11'  :                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/universel.11$Z <imageA> <palette> <imageR>                                                                   #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/universel.11$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 nomA=$1
set                 palette=$2
set                 nomR=$3

FileTmpB            nomT

$xci/vraies_C$X     A=$nomA p=$palette RR=$nomT$ROUGE RV=$nomT$VERTE RB=$nomT$BLEUE $formatI
                                        # Passage aux vraies couleurs.                                                                #
if   ($EXIST) then
                                        # Ce test bizarre, afin de ne pas suprimer la version '$xci/multiplex$Z'.                     #
     $xci/universel.13$Z $nomT $nomR
                                        # Et enfin mise au format compatible avec '$xiP/universel.11'.                                #
else
     $xci/multiplex$Z    $nomT $nomR
                                        # Et enfin mise au format compatible avec '$xiP/universel.11'.                                #
endif

FileTmpE            nomT
                                        # Puis destruction des trois composantes {ROUGE,VERTE,BLEUE}.                                 #