#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   I M A G E   A N A G L Y P H I Q U E   E N   F A U S S E S   C O U L E U R S               #
#         V I S U A L I S A B L E   A   L ' A I D E   D E   ' $xiP/anaglyphe.12 '                                                     #
#         A   P A R T I R   D ' U N   C O U P L E   S T E R E O   E N   F A U S S E S   C O U L E U R S                               #
#         ( D R O I T E , G A U C H E )   T E L   Q U E                                                                               #
#                                                                                                                                     #
#         D R O I T E --> R O U G E   E T   G A U C H E --> V E R T E  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/anaglyphe.12$Z <nom_de_la_paire> <nom_de_l_Image_Resultat>                                                   #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/anaglyphe.12$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set  paire=$1
set  ImageR=$2

FileTmpB  triplet
                                        # Generation d'un nom pour le triplet intermediaire en vraies couleurs.                       #
set       palette=$xiP/anaglyphe.12
                                        # Nom de la palette anaglyphique utilisee.                                                    #

$CP       $paire$DROITE  $triplet$ROUGE
$CP       $paire$GAUCHE  $triplet$VERTE
$xci/init$X         niveau=$NOIR R=$triplet$BLEUE $formatI
                                        # Generation d'un triplet anaglyphique en vraies couleurs.                                    #
                                        # ATTENTION : on utilise '$CP' et non pas 'cp' a cause de l'eventuel "miroir" que fait 'cp'.  #

$xci/faux_HLS.01$X  AR=$triplet$ROUGE AV=$triplet$VERTE AB=$triplet$BLEUE p=$palette R=$ImageR$STEREO $formatI
                                        # Et conversion en une image anaglyphique.                                                    #

FileTmpE  triplet