#######################################################################################################################################
#                                                                                                                                     #
#         L A   P R O G R E S S I O N   D E S   M A T H E M A T I Q U E S  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.MATH.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20201205123915).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____CoordonneeZ              0.5

$Z                  setParam            _____Zoom                     0.80

$Z                  setParam            _____ParticuleParaC           "$K_VIDE"

$Z                  FilSTmpB            LiStEPoInTs

$Z                  set                 X_point=-0.5

$Z                  set                 Y_point=+0.2

$Z                  set                 Delta_X=(0.70 0.00 0.30 0.00 0.10 0.00 0.40 0.00 0.10 0.00 0.20 0.00)

$Z                  set                 Delta_Y=(0.01 0.10 0.03 0.20 0.00 0.20 0.00 0.10 0.03 0.20 0.02 0.10)

$Z                  set                 NuMeRo=1
$Z                  set                 ItErEr=$EXIST

$Z                  while               ($ItErEr == $EXIST)
$Z                                      echo                "$X_point"                                                                  \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_X
$Z                                      echo                "$Y_point"                                                                  \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_Y

$Z                                      if                  ($NuMeRo < $#Delta_X) then
$Z                                                          set                 X_point=`calcul $X_point+$Delta_X[$NuMeRo]`
$Z                                                          set                 Y_point=`calcul $Y_point+$Delta_Y[$NuMeRo]`

$Z                                                          @                   NuMeRo = $NuMeRo + 1
$Z                                      else
$Z                                                          set                 ItErEr=$NEXIST
$Z                                      endif
$Z                  end

$Z                  set                 RaYoN=0.01

$Z                  set                 NPoInTs=$NuMeRo

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      vD=$NOIR_PLANCHER vA=$BLANC                                                                     \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                              >>! $LiStEPoInTs$NIVEAU

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=1                                                                                            \
$Z                                      iterations=$NPoInTs                                                                             \
$Z                                      LISTE_X=$LiStEPoInTs$COORD_X                                                                    \
$Z                                      LISTE_Y=$LiStEPoInTs$COORD_Y                                                                    \
$Z                                      LISTE_Z=$_____CoordonneeZ                                                                       \
$Z                                      LISTE_RAYON=$RaYoN                                                                              \
$Z                                      LISTE_NIVEAU=$LiStEPoInTs$NIVEAU                                                                \
$Z                                      p=$xiP/rouge_orang.32                                                                           \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      isoles=FAUX chainer=VRAI ajuster_points=VRAI equidistance=VRAI                                  \
$Z                                      Lz=100                                                                                          \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      $_____ParticuleParaC                                                                            \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImagesR                                                                                 \
$Z                                                                                                            $formatI

$Z                  FilSTmpE  LiStEPoInTs

$Z                  FilSTmpB            LiStEPoInTs

$Z                  set                 X_pointG=-0.2
$Z                  set                 X_pointD=+1.2

$Z                  set                 Y_pointG=+0.0
$Z                  set                 Y_pointD=$Y_pointG

$Z                  set                 Delta_X=0.050
$Z                  set                 Delta_Y=0.025

$Z                  echo                "$X_pointG"                                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_X
$Z                  echo                "$Y_pointG"                                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_Y

$Z                  echo                "$X_pointD"                                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_X
$Z                  echo                "$Y_pointD"                                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_Y

$Z                  echo                `calcul $X_pointD-$Delta_X`                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_X
$Z                  echo                `calcul $Y_pointD+$Delta_Y`                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_Y

$Z                  echo                "$X_pointD"                                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_X
$Z                  echo                "$Y_pointD"                                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_Y

$Z                  echo                `calcul $X_pointD-$Delta_X`                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_X
$Z                  echo                `calcul $Y_pointD-$Delta_Y`                                                                     \
$Z                                                                              >>! $LiStEPoInTs$COORD_Y

$Z                  set                 NPoInTsX=`$CA $LiStEPoInTs$COORD_X | $WCl`
$Z                  set                 NPoInTsY=`$CA $LiStEPoInTs$COORD_Y | $WCl`
#20220615121200____:$Z                  set                 NPoInTs=`$xcg/MAX2.01$X x=$NPoInTsX y=$NPoInTsY`                          #
$Z                  set                 NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=1                                                                                            \
$Z                                      iterations=$NPoInTs                                                                             \
$Z                                      LISTE_X=$LiStEPoInTs$COORD_X                                                                    \
$Z                                      LISTE_Y=$LiStEPoInTs$COORD_Y                                                                    \
$Z                                      LISTE_Z=$_____CoordonneeZ                                                                       \
$Z                                      LISTE_RAYON=$RaYoN                                                                              \
$Z                                      LISTE_ROUGE=$GRIS_4                                                                             \
$Z                                      LISTE_VERTE=$GRIS_4                                                                             \
$Z                                      LISTE_BLEUE=$GRIS_4                                                                             \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      isoles=FAUX chainer=VRAI ajuster_points=VRAI equidistance=VRAI                                  \
$Z                                      Lz=100                                                                                          \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      $_____ParticuleParaC                                                                            \
$Z                                      chiffres=0                                                                                      \
$Z                                      fond=VRAI F=$_____ImagesR                                                                       \
$Z                                      R=$_____ImagesR                                                                                 \
$Z                                                                                                            $formatI

$Z                  set                 PaRaMeTrEs1="$K_VIDE"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" taille=3"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" niveau_message=$GRIS_6"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" centrer=FAUX"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" anti_aliasing=VRAI"

$Z                  set                 MeSsAgE_T="X=0.85 Y=0.15"

$Z                  execRVB  "$xci/message$X                                                                                            \
$Z                                                A=$_____ImagesR%s                                                                     \
$Z                                                message="T"                                                                           \
$Z                                                $PaRaMeTrEs1                                                                          \
$Z                                                $MeSsAgE_T                                                                            \
$Z                                                R=$_____ImagesR%s                                                                     \
$Z                                                                                                            $formatI"

$Z                  FilSTmpE  LiStEPoInTs