#######################################################################################################################################
#                                                                                                                                     #
#         E T U D E   D E   L A   P E R C O L A T I O N   S U R   U N   R E S E A U   C A R R E  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.PERC.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20211102102308).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $xci/grille.01$X                                                                                                    \
$Z                                      A=$NOIR                                                                                         \
$Z                                      niveau=$GRIS_3                                                                                  \
$Z                                      denormalisees=VRAI                                                                              \
$Z                                      mx=`calculINS $dimX/$SaVe_dimX`                                                                 \
$Z                                      my=`calculINS $dimY/$SaVe_dimY`                                                                 \
$Z                                      R=$_____ImageR.grille                                                                           \
$Z                                                                              $formatI

$Z                  set                 FaCtEuR=0.5

$Z                  $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/RESEAU.percole.oui                                                                       \
$Z                                      a=$FaCtEuR                                                                                      \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/Sx$X                                                                                                           \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      M=$_____ImageR.grille                                                                           \
$Z                                      R=$_____ImageR.oui.vide                                                                         \
$Z                                                                              $formatI

$Z                  $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/RESEAU.percole.non                                                                       \
$Z                                      a=$FaCtEuR                                                                                      \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/Sx$X                                                                                                           \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      M=$_____ImageR.grille                                                                           \
$Z                                      R=$_____ImageR.non.vide                                                                         \
$Z                                                                              $formatI

$Z                  $xci/eor$X                                                                                                          \
$Z                                      A1=$_____ImageR.non.vide                                                                        \
$Z                                      A2=$_____ImageR.oui.vide                                                                        \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/acces$X                                                                                                        \
$Z                                      renormaliser=VRAI                                                                               \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      A=$_____ImageR.non.vide                                                                         \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      M=$_____ImageR.grille                                                                           \
$Z                                      R=$_____ImageR.non.bouchon                                                                      \
$Z                                                                              $formatI

$Z                  set                 PaRaMeTrEs="$K_VIDE"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" est=VRAI"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" nord=VRAI"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" ouest=VRAI"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" sud=VRAI"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" $_____Connexite"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" x=$_____Xentree"

$Z                  $xci/contours.12$X                                                                                                  \
$Z                                      A=$xTV/RESEAU.percole.oui                                                                       \
$Z                                      $PaRaMeTrEs                                                                                     \
$Z                                      R=$xTV/CHEMIN.percole.oui                                                                       \
$Z                                                                              $formatI

$Z                  $xci/contours.12$X                                                                                                  \
$Z                                      A=$xTV/RESEAU.percole.non                                                                       \
$Z                                      $PaRaMeTrEs                                                                                     \
$Z                                      R=$xTV/CHEMIN.percole.non                                                                       \
$Z                                                                              $formatI

$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$xTV/RESEAU.percole.oui                                                                       \
$Z                                      R=$xTV/RESEAU.percole.oui                                                                       \
$Z                                                                              $formatI

$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$xTV/RESEAU.percole.non                                                                       \
$Z                                      R=$xTV/RESEAU.percole.non                                                                       \
$Z                                                                              $formatI

$Z        execRVB   $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/RESEAU.percole.non                                                                       \
$Z                                      a=$FaCtEuR                                                                                      \
$Z                                      R=$_____ImageR.non%s                                                                            \
$Z                                                                              $formatI

$Z        execRVB   $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/RESEAU.percole.oui                                                                       \
$Z                                      a=$FaCtEuR                                                                                      \
$Z                                      R=$_____ImageR.oui%s                                                                            \
$Z                                                                              $formatI

$Z                  $xci/or_02$X                                                                                                        \
$Z                                      A1=$xTV/CHEMIN.percole.non                                                                      \
$Z                                      A2=$_____ImageR.non$ROUGE                                                                       \
$Z                                      R=$_____ImageR.non$ROUGE                                                                        \
$Z                                                                              $formatI

$Z                  $xci/or_02$X                                                                                                        \
$Z                                      A1=$xTV/CHEMIN.percole.oui                                                                      \
$Z                                      A2=$_____ImageR.oui$VERTE                                                                       \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/eor$X                                                                                                          \
$Z                                      A1=$xTV/CHEMIN.percole.non                                                                      \
$Z                                      R=$_____ImageR.oui$VERTE                                                                        \
$Z                                                                              $formatI

$Z                  $xci/eor$X                                                                                                          \
$Z                                      A1=$xTV/CHEMIN.percole.non                                                                      \
$Z                                      A2=$_____ImageR.oui$ROUGE                                                                       \
$Z                                      R=$_____ImageR.oui$ROUGE                                                                        \
$Z                                                                              $formatI

$Z        execRVB  "$xci/Sx$X                                                                                                           \
$Z                                      A=$_____ImageR.non%s                                                                            \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      M=$_____ImageR.grille                                                                           \
$Z                                      R=$_____ImageR.non%s                                                                            \
$Z                                                                              $formatI"

$Z        execRVB  "$xci/Sx$X                                                                                                           \
$Z                                      A=$_____ImageR.oui%s                                                                            \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      M=$_____ImageR.grille                                                                           \
$Z                                      R=$_____ImageR.oui%s                                                                            \
$Z                                                                              $formatI"