#!/bin/csh
#######################################################################################################################################
# #
# D U P L I C A T I O N D ' U N E I M A G E : #
# #
# #
# Utilisation : #
# #
# $xci/duplique.01$Z <imageA> <imageR> [<NombreX> [<NombreY>]] #
# #
# #
# Author of '$xci/duplique.01$Z' : #
# #
# Jean-Francois Colonna (LACTAMME, 20081112181147). #
# #
#######################################################################################################################################
set imageA=$1
set imageR=$2
set NombreX=$3
set NombreY=$4
setArgum NombreX 1
setArgum NombreY 1
FileTmpB DeFoRmAtIoN
# Image de manoeuvre... #
$xci/lineaire$X \
A=1 B=0 C=0 \
standard=FAUX \
$formatI | \
$xci/normalise.01$X \
R=$DeFoRmAtIoN$COORD_X \
$formatI
# Generation d'une mire de barres verticales (il s'agit alors de la '$COORD_X'). #
$xci/lineaire$X \
A=0 B=1 C=0 \
standard=FAUX \
$formatI | \
$xci/normalise.01$X \
R=$DeFoRmAtIoN$COORD_Y \
$formatI
# Generation d'une mire de barres verticales (il s'agit alors de la '$COORD_Y'). #
$xci/acces$X \
A=$imageA \
convertir=VRAI \
$formatI | \
$xci/deformi.01$X \
DX=$DeFoRmAtIoN$COORD_X DY=$DeFoRmAtIoN$COORD_Y \
lineaire=VRAI \
appliquer_une_matrice_de_transformation=VRAI \
mxx=$NombreX mxy=0 mxz=0 \
myx=0 myy=$NombreY myz=0 \
mzx=0 mzy=0 mzz=0 \
bidimensionnelle=VRAI \
$formatI | \
$xci/acces$X \
standard=FAUX brutal=VRAI \
R=$imageR \
$formatI
# L'option "lineaire=VRAI" est utilisee pour eviter les "rebonds" d'interpolation... #
# #
# On notera le 20081112183430 que si l'image '$imageA' n'est pas periodique en 'X' et en 'Y', #
# l'operation '$xci/deformi.01$X' peut introduire des artefacts a la jonction des motifs dus #
# a l'interpolation et au mode "per_?2?=VRAI" par defaut... #
FileTmpE DeFoRmAtIoN
# Image de manoeuvre... #