#!/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 X   " P R O J E C T O R S "  :                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/SelfTrans.21$Z <ImageArgument> <Palette> <ImageResultatVraiesCouleur>                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/SelfTrans.21$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20050727120502).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       ImageA=$1
                                        # On notera le 20050819180033 que pour les images "tres filiformes" ou possedant trop de      #
                                        # details ('v $xiit/JFC.F1.F2'), 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 $xiit/JFC.F1.F2.2').                                  #
set       Palette=$2
set       ImageR=$3

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

FileTmpB  ImageA_RVB_ns
                                        # Images de manoeuvre non standards...                                                        #

execRVB   $xci/acces$X        A=$ImageA_RVB%s standard=VRAI convertir=VRAI R=$ImageA_RVB_ns%s                 $formatI
execRVB   $xci/normalise.01$X A=$ImageA_RVB_ns%s R=$ImageA_RVB_ns%s                                           $formatI
                                        # Conversion en images non standards afin de definir la surface {Fx,Fy,Fz} de meme que sa     #
                                        # texture {TR,Tv,TB}...                                                                       #

$xrs/project2D.11$X                                                                                                                     \
                    np=1                                                                                                                \
                    Fx=$ImageA_RVB_ns$ROUGE                                                                                             \
                    Fy=$ImageA_RVB_ns$VERTE                                                                                             \
                    Fz=$ImageA_RVB_ns$BLEUE                                                                                             \
                    textures_standard=FAUX                                                                                              \
                    TR=$ImageA_RVB_ns$ROUGE                                                                                             \
                    TV=$ImageA_RVB_ns$VERTE                                                                                             \
                    TB=$ImageA_RVB_ns$BLEUE                                                                                             \
                    projeter=VRAI projeter_textures=VRAI                                                                                \
                    projections_standard=VRAI zero=FAUX                                                                                 \
                    T_periodiser_X=FAUX T_symetriser_X=VRAI T_prolonger_X=FAUX                                                          \
                    T_periodiser_Y=FAUX T_symetriser_Y=VRAI T_prolonger_Y=FAUX                                                          \
                    T_periodiser_Z=FAUX T_symetriser_Z=VRAI T_prolonger_Z=FAUX                                                          \
                    PTR=$ImageR$ROUGE                                                                                                   \
                    PTV=$ImageR$VERTE                                                                                                   \
                    PTB=$ImageR$BLEUE                                                                                                   \
                                                                                                    $formatI

FileTmpE  ImageA_RVB_ns

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