#!/bin/csh
#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N L I S E R E T T R I D I M E N S I O N N E L #
# L E L O N G D E C E R T A I N E S L I G N E S D E N I V E A U #
# ( L A O U L E G R A D I E N T E S T L E P L U S F O R T ) : #
# #
# #
# Utilisation : #
# #
# $xci/lisere.01$Z <imageA> <imageR> [<Seuil_1> [<Seuil_2> [<Points> [<Palette> [<Facteur> [<Attenuation>]]]]]] #
# #
# #
# Author of '$xci/lisere.01$Z' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20070620115737). #
# #
#######################################################################################################################################
set imageA=$1
set imageR=$2
set Seuil_1=$3
set Seuil_2=$4
set Points=$5
set Palette=$6
set Facteur=$7
set Attenuation=$8
setArgum Seuil_1 80
# Seuil d'elimination des niveaux "bas" du gradient. #
setArgum Seuil_2 40
# Seuil d'elimination des niveaux "bas" du gradient pour le texturage. #
setArgum Points 225
# Definition du nombre de points pour le calcul du gradient. #
setArgum Palette $xiP/gris.01
# Palette du lisere... #
setArgum Facteur 0.1
# Facteur du nombre de points variable lors de la convolution finale... #
setArgum Attenuation 0.7
# Facteur d'attenuation de '$imageR'... #
$xci/luminance.01$X \
A=$imageA \
$formatI | \
$xci/gradient.01$X \
points=$Points \
circulaire=VRAI \
circulaire_optimale=VRAI \
$formatI | \
$xci/passe_bande$X \
inf=$Seuil_1 \
sup=$BLANC \
$formatI | \
$xci/acces$X \
$formatI | \
$xci/acces$X \
convertir=VRAI \
$formatI | \
$xci/lissage$X \
standard=FAUX \
passes=100 \
R=$xT/GRADIENT \
$formatI
$xci/acces$X \
A=$xT/GRADIENT \
standard=FAUX \
zero=FAUX \
$formatI | \
$xci/seuil$X \
seuil=$Seuil_2 \
$formatI | \
$xci/montagne.01$X \
A=$xT/GRADIENT \
standard=FAUX \
zero=FAUX \
avion=VRAI \
$formatI | \
$xci/acces$X \
renormaliser=VRAI \
$formatI | \
$xci/vraies_C$X \
p=$Palette \
R=$xT/MONTAGNE \
$formatI
execRVB $xci/scale$X A=$imageA%s a=$Attenuation b=0 R=$xT/FOND%s $formatI
execRVB $xci/cache$X M=$xT/MONTAGNE%s A=$xT/FOND%s R=$imageR%s $formatI
execRVB $xci/convol.03$X A=$imageR%s R=$imageR%s fp=$Facteur $formatI