#######################################################################################################################################
#                                                                                                                                     #
#         R E N O R M A L I S A T I O N   D ' U N   E N S E M B L E   D E   C O U L E U R S  :                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.CYLI.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170201121143).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumROUGE             $NOIR

$Z                  setParam            _____MaximumROUGE             $BLANC

$Z                  setParam            _____MinimumVERTE             $NOIR

$Z                  setParam            _____MaximumVERTE             $BLANC

$Z                  setParam            _____MinimumBLEUE             $NOIR

$Z                  setParam            _____MaximumBLEUE             $BLANC

$Z                  FileTmpB            FiLeTmP_COULEURS

$Z                  $CA       $_____FSurface                                                                                      |     \
$Z                  $SE       -e "s/^.* ROUGE=//"                                                                                       \
$Z                            -e 's/ .*$//'                                                                                             \
$Z                                                                                        >>! $FiLeTmP_COULEURS$ROUGE
`
$Z                  $CA       $_____FSurface                                                                                      |     \
$Z                  $SE       -e "s/^.* VERTE=//"                                                                                       \
$Z                            -e 's/ .*$//'                                                                                             \
$Z                                                                                        >>! $FiLeTmP_COULEURS$VERTE
`
$Z                  $CA       $_____FSurface                                                                                      |     \
$Z                  $SE       -e "s/^.* BLEUE=//"                                                                                       \
$Z                            -e 's/ .*$//'                                                                                             \
$Z                                                                                        >>! $FiLeTmP_COULEURS$BLEUE
$Z                                      # Recuperation des couleurs {ROUGE,VERTE,BLEUE}.                                              #

$Z                  $CA       $FiLeTmP_COULEURS$ROUGE                                                                             |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                            ne=0 fichier==                                                                                            \
$Z                            origine=$_____MinimumROUGE extremite=$_____MaximumROUGE                                                   \
$Z                            formater=VRAI entiers=VRAI                                                                          |     \
$Z                  $SE       -e "s/^/ROUGE=/"                                                                                          \
$Z                                                                                        >>! $FiLeTmP_COULEURS.1$ROUGE

$Z                  $CA       $FiLeTmP_COULEURS$VERTE                                                                             |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                            ne=0 fichier==                                                                                            \
$Z                            origine=$_____MinimumVERTE extremite=$_____MaximumVERTE                                                   \
$Z                            formater=VRAI entiers=VRAI                                                                          |     \
$Z                  $SE       -e "s/^/VERTE=/"                                                                                          \
$Z                                                                                        >>! $FiLeTmP_COULEURS.1$VERTE

$Z                  $CA       $FiLeTmP_COULEURS$BLEUE                                                                             |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                            ne=0 fichier==                                                                                            \
$Z                            origine=$_____MinimumBLEUE extremite=$_____MaximumBLEUE                                                   \
$Z                            formater=VRAI entiers=VRAI                                                                          |     \
$Z                  $SE       -e "s/^/BLEUE=/"                                                                                          \
$Z                                                                                        >>! $FiLeTmP_COULEURS.1$BLEUE
$Z                                      # Renormalisation des couleurs {ROUGE,VERTE,BLEUE}.                                           #

$Z                  $CA       $_____FSurface                                                                                      |     \
$Z                  $SE       -e 's/\([^ ]\)  *ROUGE=.*  *VERTE=.*  *BLEUE=.*$/\1/'                                                     \
$Z                                                                                        >>! $FiLeTmP_COULEURS.1

$Z                  $PAST     $FiLeTmP_COULEURS.1                                                                                       \
$Z                            $FiLeTmP_COULEURS.1$ROUGE                                                                                 \
$Z                            $FiLeTmP_COULEURS.1$VERTE                                                                                 \
$Z                            $FiLeTmP_COULEURS.1$BLEUE                                                                           |     \
$Z                  $SE       -e 's/$/ /'                                                                                         |     \
$Z                  $R        "$K_TAB" "$K_BLANC"                                                                                       \
$Z                                                                                        >>! $FiLeTmP_COULEURS.2
$Z                                      # Reconstitution du fichier original ('$_____FSurface' avec les couleurs renormalisees...     #

$Z                  $DELETE   $_____FSurface
$Z                  $MV       $FiLeTmP_COULEURS.2 $_____FSurface

$Z                  FileTmpE            FiLeTmP_COULEURS



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.