#!/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 C O U L E U R S #
# A V E C U N E T A C H E C E N T R A L E C O L O R E E : #
# #
# #
# Utilisation : #
# #
# $xci/color_NB.01$Z <imageA> <imageR> [<Palette_C> [<Palette_G> [<Renormaliser> [<PonderateurX> [<ParametresPX>]]]]] #
# #
# #
# Author of '$xci/color_NB.01$Z' : #
# #
# Jean-Francois Colonna (LACTAMME, 20080824095532). #
# #
#######################################################################################################################################
set imageA=$1
set imageR=$2
set Palette_C=$3
set Palette_G=$4
set Renormaliser=$5
#20151202123944____:set PonderateurX=$6 #
set PonderateurX="$6"
#20151202123944____:set ParametresPX=$7 #
set ParametresPX="$7"
setArgum Palette_C $xiP/trou_noir.94
# ATTENTION : je note le 20090401184503 que la palette 'v $xiio/MIRE p=$xiP/trou_noir.94' #
# presente une particularite qui peut s'averer genante ; en effet, son niveau 'NOIR' est #
# {NOIR,NOIR,NOIR} (cela s'est vu en generant 'v $xiav/STRV.81$R16' pour laquelle fut #
# utilisee la palette 'v $xiio/MIRE p=$xiP/trou_noir.A4'). #
setArgum Palette_G $xiP/gris.01
setArgum Renormaliser FAUX
# Parametre introduit le 20080830092018... #
setArgum PonderateurX $xci/gauss$X
FileTmpB LuMiNaNcE
FileTmpB ImAgE_C
FileTmpB ImAgE_G
FileTmpB PoNdErAtEuR
# Images de manoeuvre (en particulier "image Couleur" et image Grise")... #
$xci/luminance.01$X \
A=$imageA \
$formatI | \
$xci/acces$X \
renormaliser=$Renormaliser \
R=$LuMiNaNcE \
$formatI
$xci/vraies_C$X \
A=$LuMiNaNcE \
p=$Palette_C \
R=$ImAgE_C \
$formatI
$xci/vraies_C$X \
A=$LuMiNaNcE \
p=$Palette_G \
R=$ImAgE_G \
$formatI
$PonderateurX \
$ParametresPX \
R=$PoNdErAtEuR \
$formatI
execRVB $xci/interpole.02$X A1=$ImAgE_C%s A2=$ImAgE_G%s P=$PoNdErAtEuR R=$imageR%s $formatI
FileTmpE LuMiNaNcE
FileTmpE ImAgE_C
FileTmpE ImAgE_G
FileTmpE PoNdErAtEuR