#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         C R A Q U E L U R E   D ' U N E   I M A G E  :                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/craque$Z       <imageA> <craquelure> <imageR>                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         La visualisation se fera en general par :                                                                                   #
#                                                                                                                                     #
#                                                                                                                                     #
#                   $xciP/S_NIVEAU$X    pA=<palette> n=0 nR=0 nV=0 nB=0 | $xci/display$X A=<imageR>                                   #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/craque$Z' :                                                                                                 #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

FileTmpB            nomT1
FileTmpB            nomT2

$xci/seuil$X        A=$craquelure R=$nomT2 $formatI
                                        # Binarisation des craquelures.                                                               #
$xci/passe_bande$X  A=$nomA R=$nomT1 $formatI
                                        # Elimination du noir de l'image Argument.                                                    #
$xci/minimum$X      A1=$nomT1 A2=$nomT2 R=$nomR $formatI
                                        # Et enfin craquelure...                                                                      #

FileTmpE            nomT1
FileTmpE            nomT2
                                        # Puis destruction des images temporaires.                                                    #