#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         T A P I S S E R I E   D ' U N E   I M A G E   N O N   S T A N D A R D  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/tapisserie$Z   <nom_imageA> <nom_imageR>                                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/tapisserie$Z' :                                                                                             #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20060314142658).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       imageR=$2

FileTmpB  imageT
                                        # Images de manoeuvre...                                                                      #

$xci/Sx$X                                                                                                                               \
                    standard=FAUX                                                                                                       \
                    A=$imageA                                                                                                           \
                    R=$imageT.0001                                                                                                      \
                                                                                                    $formatI

$xci/Sy$X                                                                                                                               \
                    standard=FAUX                                                                                                       \
                    A=$imageA                                                                                                           \
                                                                                                    $formatI                      |     \
$xci/Sx$X                                                                                                                               \
                    standard=FAUX                                                                                                       \
                    R=$imageT.0002                                                                                                      \
                                                                                                    $formatI

$xci/neutre$X                                                                                                                           \
                    standard=FAUX                                                                                                       \
                    A=$imageA                                                                                                           \
                    R=$imageT.0003                                                                                                      \
                                                                                                    $formatI

$xci/Sy$X                                                                                                                               \
                    standard=FAUX                                                                                                       \
                    A=$imageA                                                                                                           \
                    R=$imageT.0004                                                                                                      \
                                                                                                    $formatI
                                        # Generation des quatre images intermediaires dans le meme ordre {1,2,3,4} que celui qui      #
                                        # est utilise dans '$xci/tapisserie$K'...                                                     #

$xci/reduction_04$X                                                                                                                     \
                    standard=FAUX                                                                                                       \
                    A=$imageT.                                                                                                          \
                    premiere=1 derniere=4 pas=1                                                                                         \
                    R=$imageR                                                                                                           \
                                                                                                    $formatI
                                        # Et enfin, "tapisserie"...                                                                   #

FileTmpE  imageT