#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         A U T O - T R A N S F O R M A T I O N   D ' U N E   I M A G E   S T A N D A R D                                             #
#         G R A C E   A U   P R O D U I T   G E N E R A L I S E  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/SelfTrans.11$Z <ImageArgument> <Palette> <ImageResultatVraiesCouleur> [<ComposR1> [<ComposR2> [<ComposR3>]]] #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/SelfTrans.11$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20050727114457).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       ImageA=$1
                                        # On notera le 20050819180026 que pour les images "tres filiformes" ou possedant trop de      #
                                        # details ('v $xiirk/NCOR.d1'), on pourra avoir interet a proceder au prealable a un          #
                                        # filtrage "passe bas" (en ne gardant donc que les basses frequences spatiales ; ce qui       #
                                        # avec l'image citee ci-dessus donne 'v $xiirk/NCOR.d1.1').                                   #
set       Palette=$2
set       ImageR=$3
set       ComposR1=$4
set       ComposR2=$5
set       ComposR3=$6

setArgum  ComposR1                      $ROUGE

setArgum  ComposR2                      $VERTE

setArgum  ComposR3                      $BLEUE

if        ("$Palette" == "$SystemeRVB") then
          set       ImageA_RVB=$ImageA
else
          FileTmpB  ImageA_RVB
                                        # Images de manoeuvre dans le cas ou l'image '$ImageA' est en fausses couleurs...             #

          $xci/vraies_C$X                                                                                                               \
                              A=$ImageA                                                                                                 \
                              p=$Palette                                                                                                \
                              RVB=VRAI                                                                                                  \
                              R=$ImageA_RVB                                                                                             \
                                                                                                              $formatI
                                        # Conversion en vraies couleurs d'une image en fausses couleurs...                            #
endif

$xci/multi_02.04$X                                                                                                                      \
                    standard=VRAI                                                                                                       \
                    A1=$ImageA_RVB$ROUGE                                                                                                \
                    A2=$ImageA_RVB$VERTE                                                                                                \
                    TM=$ImageA_RVB$BLEUE                                                                                                \
                    R=$ImageR$ComposR1                                                                                                  \
                                                                                                    $formatI
$xci/multi_02.04$X                                                                                                                      \
                    standard=VRAI                                                                                                       \
                    A1=$ImageA_RVB$VERTE                                                                                                \
                    A2=$ImageA_RVB$BLEUE                                                                                                \
                    TM=$ImageA_RVB$ROUGE                                                                                                \
                    R=$ImageR$ComposR2                                                                                                  \
                                                                                                    $formatI
$xci/multi_02.04$X                                                                                                                      \
                    standard=VRAI                                                                                                       \
                    A1=$ImageA_RVB$BLEUE                                                                                                \
                    A2=$ImageA_RVB$ROUGE                                                                                                \
                    TM=$ImageA_RVB$VERTE                                                                                                \
                    R=$ImageR$ComposR3                                                                                                  \
                                                                                                    $formatI

if        ("$Palette" == "$SystemeRVB") then
else
          FileTmpE  ImageA_RVB
endif