#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         V A L E U R   A B S O L U E   D ' U N E   I M A G E  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/val_abso.11$Z  <imageA> <imageR> [<zero>]                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/val_abso.11$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomA=$1
set       nomR=$2
set       zero=$3

setArgum  zero                          $GRIS

$xciP/S_NIVEAU$X    pA=$xiP/gris.01 n=$NOIR nR=$BLANC nV=$BLANC nB=$BLANC                                                         |     \
                                        $xciP/S_NIVEAU$X    n=$zero nR=$NOIR nV=$NOIR nB=$NOIR                                    |     \
                                        $xciP/INTERPOLE$X   nD=$NOIR nA=$zero                                                     |     \
                                        $xciP/S_NIVEAU$X    n=$BLANC nR=$BLANC nV=$BLANC nB=$BLANC                                |     \
                                        $xciP/INTERPOLE$X   nD=$zero nA=$BLANC                                                    |     \
                                        $xci/substitue$X    A=$nomA                                                                     \
                                                            substitution=L_SUBSTITUTION_ROUGE                                           \
                                                            R=$nomR                                                                     \
                                                                                                                        $formatI

                                        # Calcul de la valeur absolu de l'image Argument, le zero etant defini par '$zero'...         #