#######################################################################################################################################
# #
# G E N E R A T I O N D E S C O N D I T I O N S I N I T I A L E S ( T E R R E ) #
# D U G E N E R A T E U R D E C O T E S B I D I M E N S I O N N E L L E S E T E R O S I O N : #
# #
# #
# Author of '$xiirf/.COT2.11.0.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____SeuilR $NOIR
$Z Pal
$Z if (`$xcg/IFEQ.01$X n1=$_____SeuilR n2=$NOIR` == $EXIST) then
$Z $xci/random.01$X \
$Z graine=2 \
$Z inf=$GRIS_0 \
$Z sup=$GRIS_4 \
$Z R=$xTV/TERRE \
$Z $formatI
$Z else
$Z $xci/gauss$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z $xci/random.01$X \
$Z graine=2 \
$Z inf=$NOIR \
$Z sup=$BLANC \
$Z # On notera qu'il est impossible de filtrer simplement avec '$_____SeuilR' le champ #
$Z # '$xTV/TERRE' genere dans le cas '$_____SeuilR=$NOIR'. En effet, alors que #
$Z # '$xci/random.01$X' genere des niveaux equirepartis (dans {$GRIS_0,$GRIS_4} ci-dessus), #
$Z # le filtrage par '$xci/filtre.01$X' a une forte tendance a faire disparaitre les niveaux #
$Z # extremum au profit des niveaux medians. Cela fait qu'alors, par exemple, les niveaux les #
$Z # plus faibles (proches de '$GRIS_0'), qui vont correspondre aux futurs "points durs", sont #
$Z # quasiment absents, alors que les points plus tendres vont donc etre beaucoup plus nombreux. #
$Z # Filtrer simplement donne donc un milieu beaucoup trop tendre. Il est donc necessaire de #
$Z # privilegier les niveaux extremum par deux substitutions (par '$xci/substitue$X') en #
$Z # utilisant la palette '$xiP/gris.52' (utilisee, par exemple, par 'v $xiirf/PAYS.R7$M'). #
$Z $formatI | \
$Z $xci/substitue$X \
$Z p=$xiP/gris.52 \
$Z lissage=FAUX \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z R=$xTV/TERRE.1 \
$Z $formatI
$Z $xci/filtre.01$X \
$Z A=$xTV/TERRE.1 \
$Z N=$xTV/GAUSS \
$Z seuil=$_____SeuilR \
$Z respecter=VRAI \
$Z R=$xTV/TERRE.2 \
$Z $formatI
$Z $xci/seuil$X \
$Z A=$xTV/TERRE.2 \
$Z seuil=$GRIS_4 \
$Z R=$xTV/TERRE.3 \
$Z $formatI
$Z $xci/filtre.01$X \
$Z A=$xTV/TERRE.3 \
$Z N=$xTV/GAUSS \
$Z seuil=$_____SeuilR \
$Z respecter=VRAI \
$Z R=$xTV/TERRE.4 \
$Z $formatI
$Z $xci/substitue$X \
$Z A=$xTV/TERRE.4 \
$Z substitution=L_SUBSTITUTION_01 \
$Z R=$xTV/TERRE \
$Z $formatI
$Z endif