#######################################################################################################################################
#                                                                                                                                     #
#         A I D E S   D E   C O M P R E H E N S I O N   D E   L ' E S C A L I E R                                                     #
#         Q U A D R U P L E M E N T   I M P O S S I B L E  :                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiia/.ESCA.E2.$HauteDef.ext_int.1.$U' :                                                                         #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20190725153829).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $xci/gauss$X                                                                                                        \
$Z                                      cx2=2                                                                                           \
$Z                                      ROTATION_OZ=+$pis4                                                                              \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/scroll$X                                                                                                       \
$Z                                      trY=0.08 trX=0.06                                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/seuil$X                                                                                                        \
$Z                                      seuil=90                                                                                        \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/convol.01$X                                                                                                    \
$Z                                      points=81                                                                                       \
$Z                                      R=$xTV/MASQUE.int                                                                               \
$Z                                                                                                                      $formatI

$Z                  $xci/complement$X                                                                                                   \
$Z                                      A=$xTV/MASQUE.int                                                                               \
$Z                                      R=$xTV/MASQUE.ext                                                                               \
$Z                                                                                                                      $formatI

$Z                  $xci/cache$X                                                                                                        \
$Z                                      A=$GRIS_2                                                                                       \
$Z                                      M=$xTV/MASQUE.ext                                                                               \
$Z                                      anti_aliaser=VRAI                                                                               \
$Z                                      R=$xTV/MASQUE.ext                                                                               \
$Z                                                                                                                      $formatI

$Z                  $xci/cache$X                                                                                                        \
$Z                                      A=$GRIS_2                                                                                       \
$Z                                      M=$xTV/MASQUE.int                                                                               \
$Z                                      anti_aliaser=VRAI                                                                               \
$Z                                      R=$xTV/MASQUE.int                                                                               \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/MASQUE.ext                                                                              \
$Z                                      A2=$_____ImageA%s                                                                               \
$Z                                      R=$_____ImageR.ext%s                                                                            \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/MASQUE.int                                                                              \
$Z                                      A2=$_____ImageA%s                                                                               \
$Z                                      R=$_____ImageR.int%s                                                                            \
$Z                                                                                                                      $formatI

$Z                  set                 SaVe_____ImageR=$_____ImageR

$Z                  set                 _____AngleD=$pis2
$Z                  set                 _____EpaisseurD=0.010
$Z                  set                 _____AngleA=`calcul -($pi)`
$Z                  set                 _____Rayon_cos=0.36
$Z                  set                 _____Rayon_sin=0.50
$Z                  set                 _____X=+0.020
$Z                  set                 _____Y=+0.16

$Z                  set                 _____EpaisseurA=0.030
$Z                  set                 _____RotationZ=-0.70

$Z                  set                 _____ImageR=$SaVe_____ImageR.ext

$Z                  set                 _____ParticuleParaC="$K_VIDE"
$Z                  set                 _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI F=$_____ImageR"

$m4                 _____include(_____xiirv/.MONT.11.1._____U)

$Z                  set                 _____ImageR=$SaVe_____ImageR.int

$Z                  set                 _____ParticuleParaC="$K_VIDE"
$Z                  set                 _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI F=$_____ImageR"

$m4                 _____include(_____xiirv/.MONT.11.1._____U)