#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A U T O S T E R E O G R A M M E   A   T R O I S   B A N D E S                               #
#         D O N T   L ' O B J E T   C A M O U F L E   P E U T   S E R V I R   L U I - M E M E   D E   T E X T U R E  :                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/stereogra.12$Z <image_textureA> <image_coteA> <imageR>                                                       #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/stereogra.12$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       image_textureA=$1
set       image_coteA=$2
set       imageR=$3

FileTmpB            nomT
                                        # Creation d'un nom temporaire...                                                             #
$xci/move$X         A=$image_coteA                                                                                                      \
                    xR=-0.333                                                                                                           \
                                                                                                                         $formatI |     \
                                        $xci/move$X                                                                                     \
                                                            xR=0.667                                                                    \
                                                                                                                         $formatI |     \
                                        $xci/move$X                                                                                     \
                                                            xR=-0.334                                                                   \
                                                            R=$nomT                                                                     \
                                                                                                                         $formatI
                                        # Cadrage du champ de cote (c'est-a-dire "objet a camoufler").                                #
$xci/move$X         A=$image_textureA                                                                                                   \
                    xR=-0.333                                                                                                           \
                                                                                                                         $formatI |     \
                                        $xci/stereogra.01$X C=$nomT                                                                     \
                                                            pf=0.333                                                                    \
                                                            permutations=FAUX                                                           \
                                                            R=$imageR                                                                   \
                                                                                                                         $formatI
                                        # Generation de l'autostereogramme...                                                         #

FileTmpE            nomT
                                        # Puis destruction de l'image temporaire....                                                  #