#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         D E P T H   O F   F I E L D   E N   V R A I E S   C O U L E U R S  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/DepthFiel.11$Z <nom_image_vraies_coul> <nom_Z_Buffer> <nom_resultat_vraies_coul> [<FacteurC>]                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/DepthFiel.11$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20050418115647).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       imageZ=$2
set       imageR=$3
set       FacteurC=$4

setArgum  FacteurC                      0.1

FileTmpB  imageT1
FileTmpB  imageT2
                                        # Images de manoeuvre...                                                                      #

$xci/init$X                                                                                                                             \
                    niveau=$BLANC                                                                                                       \
                    R=$imageT1                                                                                                          \
                                                                                                    $formatI

$xci/acces$X                                                                                                                            \
                    A=$imageZ                                                                                                           \
                    standard=FAUX                                                                                                       \
                    Z-Buffer=VRAI                                                                                                       \
                    valider_IloadF_image=FAUX                                                                                           \
                                                                                                    $formatI                      |     \
$xci/cache$X                                                                                                                            \
                    A=$imageT1                                                                                                          \
                                                                                                    $formatI                      |     \
$xci/complement$X                                                                                                                       \
                    R=$imageT2                                                                                                          \
                                                                                                    $formatI
                                        # Generation de l'image noyau de convolution variable...                                      #

set       ArGuMeNtS="N=$imageT2 V=$imageT1 F=$imageT1 Facteur=$FacteurC circulaire=VRAI messages=FAUX"
execRVB   $xci/convol.02$X    A=$imageA%s $ArGuMeNtS R=$imageR%s                                    $formatI
                                        # Effet de "depth-cueing" sur les composantes {ROUGE,VERTE,BLEUE}.                            #

FileTmpE  imageT1
FileTmpE  imageT2