#!/bin/csh
#######################################################################################################################################
# #
# M I S E E N N O I R E T B L A N C D ' U N E I M A G E E N V R A I E S C O U L E U R S : #
# #
# #
# Utilisation : #
# #
# $xci/detourage.31$Z <imageA> <imageR> [<seuil_du_gradient> [<palette_luminance> [<Complement1> [<Complement2>]]] #
# #
# #
# Author of '$xci/detourage.31$Z' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20060607133208). #
# #
#######################################################################################################################################
set nomA=$1
set nomR=$2
# Je rappelle le 20160708175716 que '$nomA' est en vraies couleurs alors que '$nomR' sera #
# en fausses couleurs... #
set Sgradient=$3
set Pluminance=$4
set Complement1=$5
set Complement2=$6
setArgum Sgradient `GetParam $xci/detourage.21$Z Sgradient`
# Augmenter cette valeur reduit le nombre de "lisere" noir introduit alors que la #
# diminuer (par exemple a 14) augmente ce nombre... #
setArgum Pluminance $xiP/gris.01
setArgum Complement1 $EXIST
# Permet de faire une complementation avant '$xci/detourage.21$Z'... #
setArgum Complement2 $NEXIST
# Permet de faire une complementation apres '$xci/detourage.21$Z'... #
FileTmpB nomT1
FileTmpB nomT2
FileTmpB nomT3
# Generation de noms temporaires... #
if ($Complement1 == $EXIST) then
execRVB $xci/complement$X A=$nomA%s R=$nomT1%s $formatI
# Complementation avant detourage... #
else
execRVB $xci/neutre$X A=$nomA%s R=$nomT1%s $formatI
endif
$xci/detourage.21$Z $nomT1 $nomT2 $Sgradient
# Detourage... #
if ($Complement2 == $EXIST) then
execRVB $xci/complement$X A=$nomT2%s R=$nomT3%s $formatI
# Complementation apres detourage... #
else
execRVB $xci/neutre$X A=$nomT2%s R=$nomT3%s $formatI
endif
$xci/luminance.01$X \
A=$nomT3 \
$formatI | \
$xci/substitue$X \
p=$Pluminance \
substitution=L_SUBSTITUTION_ROUGE \
R=$nomR \
$formatI
# Jusqu'au 20060609085326, c'est un : #
# #
# $xci/seuil$X seuil=$Sluminance #
# #
# qui etait fait ici, mais le '$xci/substitue$X' est plus general... #
FileTmpE nomT1
FileTmpE nomT2
FileTmpE nomT3
# Nettoyage... #