#!/bin/csh
#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E I M A G E S T E R E O S C O P I Q U E #
# P A R E N T R E L A C A G E D E S L I G N E S P A I R E S E T I M P A I R E S : #
# #
# #
# Utilisation : #
# #
# $xci/stereo_entre$Z <nom_de_la_paire> <nom_de_l_Image_Resultat> [<entrelacage_horizontal>] #
# #
# #
# Author of '$xci/stereo_entre$Z' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
set paire=$1
set ImageR=$2
set horizontal=$3
setArgum horizontal VRAI
FileTmpB nomT
FileTmpB nomI
# Generation de noms temporaires... #
$xci/init$X n=$NOIR $formatI | $xci/entrelace$X R=$nomT$DROITE horizontal=$horizontal impairs=FAUX $formatI
$xci/init$X n=$NOIR $formatI | $xci/entrelace$X R=$nomT$GAUCHE horizontal=$horizontal impairs=VRAI $formatI
# Generation des mires d'entrelacage. #
# #
# ATTENTION, il pourra etre necessaire de permuter la definition des trames 'DROITE' et #
# 'GAUCHE' suivant l'affectation des trames paires et impaires... La correspondance mise #
# en place le 1994051800 (alors qu'avant, elle etait inversee) est : #
# #
# DROITE --> trames paires #
# GAUCHE --> trames impaires #
# #
# et correspond a celle qui est utilisee par le CCETT (Bruno Choquet). #
# #
# ATTENTION, voir aussi dans 'v $xiidG/fonction.1$FON' les commentaires relatifs a la #
# correlation des parites entre les images visualisees et la fenetre video... #
if ( ((-e $paire$DROITE$ROUGE) && (-e $paire$DROITE$VERTE) && (-e $paire$DROITE$BLEUE)) \
&& ((-e $paire$GAUCHE$ROUGE) && (-e $paire$GAUCHE$VERTE) && (-e $paire$GAUCHE$BLEUE)) \
) then
$xci/and$X A1=$paire$DROITE$ROUGE A2=$nomT$DROITE R=$nomI$DROITE$ROUGE $formatI
$xci/and$X A1=$paire$DROITE$VERTE A2=$nomT$DROITE R=$nomI$DROITE$VERTE $formatI
$xci/and$X A1=$paire$DROITE$BLEUE A2=$nomT$DROITE R=$nomI$DROITE$BLEUE $formatI
# Recuperation des lignes de l'image 'DROITE'. #
$xci/and$X A1=$paire$GAUCHE$ROUGE A2=$nomT$GAUCHE R=$nomI$GAUCHE$ROUGE $formatI
$xci/and$X A1=$paire$GAUCHE$VERTE A2=$nomT$GAUCHE R=$nomI$GAUCHE$VERTE $formatI
$xci/and$X A1=$paire$GAUCHE$BLEUE A2=$nomT$GAUCHE R=$nomI$GAUCHE$BLEUE $formatI
# Recuperation des lignes de l'image 'GAUCHE'. #
$xci/or_02$X A1=$nomI$DROITE$ROUGE A2=$nomI$GAUCHE$ROUGE R=$ImageR$ROUGE $formatI
$xci/or_02$X A1=$nomI$DROITE$VERTE A2=$nomI$GAUCHE$VERTE R=$ImageR$VERTE $formatI
$xci/or_02$X A1=$nomI$DROITE$BLEUE A2=$nomI$GAUCHE$BLEUE R=$ImageR$BLEUE $formatI
# Multiplexage des lignes de l'image 'DROITE' et de l'image 'GAUCHE'. #
else
$xci/and$X A1=$paire$DROITE A2=$nomT$DROITE R=$nomI$DROITE $formatI
# Recuperation des lignes de l'image 'DROITE'. #
$xci/and$X A1=$paire$GAUCHE A2=$nomT$GAUCHE R=$nomI$GAUCHE $formatI
# Recuperation des lignes de l'image 'GAUCHE'. #
$xci/or_02$X A1=$nomI$DROITE A2=$nomI$GAUCHE R=$ImageR $formatI
# Multiplexage des lignes de l'image 'DROITE' et de l'image 'GAUCHE'. #
endif
FileTmpE nomT
FileTmpE nomI
# Nettoyage... #