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

$Z                  setParam            _____CoordonneeZ              0.5

$Z                  setParam            _____Zoom                     1.00

$Z                  setParam            _____ParticuleParaC           "$K_VIDE"

$Z                  FilSTmpB            LiStEPoInTs


$Z                  set                 XG_Droite=-1.0
$Z                  set                 XD_Droite=+2.0

$Z                  set                 YG_Droite=+0.45
$Z                  set                 YD_Droite=$YG_Droite

$Z                  set                 R_Droite=$GRIS_8
$Z                  set                 V_Droite=$GRIS_8
$Z                  set                 B_Droite=$GRIS_8

$Z                  set                 Rayon_Droite=0.01

$Z                  echo                "$XG_Droite\n$XD_Droite"                                                                        \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_X
$Z                  echo                "$YG_Droite\n$YD_Droite"                                                                        \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_Y

$Z                  echo                "$R_Droite\n$R_Droite"                                                                          \
$Z                                                                                                  >>! $LiStEPoInTs$ROUGE
$Z                  echo                "$V_Droite\n$V_Droite"                                                                          \
$Z                                                                                                  >>! $LiStEPoInTs$VERTE
$Z                  echo                "$B_Droite\n$B_Droite"                                                                          \
$Z                                                                                                  >>! $LiStEPoInTs$BLEUE

$Z                  echo                "$Rayon_Droite\n$Rayon_Droite"                                                                  \
$Z                                                                                                  >>! $LiStEPoInTs$RAYON

$Z                  set                 XG_Parallele=$XG_Droite
$Z                  set                 XD_Parallele=$XD_Droite

$Z                  set                 YG_Parallele=+0.80
$Z                  set                 YD_Parallele=$YG_Parallele

$Z                  set                 R_Parallele=$GRIS_8
$Z                  set                 V_Parallele=$GRIS_4
$Z                  set                 B_Parallele=$GRIS_0

$Z                  set                 Rayon_Parallele=0.01

$Z                  echo                "$XG_Parallele\n$XD_Parallele"                                                                  \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_X
$Z                  echo                "$YG_Parallele\n$YD_Parallele"                                                                  \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_Y

$Z                  echo                "$R_Parallele\n$R_Parallele"                                                                    \
$Z                                                                                                  >>! $LiStEPoInTs$ROUGE
$Z                  echo                "$V_Parallele\n$V_Parallele"                                                                    \
$Z                                                                                                  >>! $LiStEPoInTs$VERTE
$Z                  echo                "$B_Parallele\n$B_Parallele"                                                                    \
$Z                                                                                                  >>! $LiStEPoInTs$BLEUE

$Z                  echo                "$Rayon_Parallele\n$Rayon_Parallele"                                                            \
$Z                                                                                                  >>! $LiStEPoInTs$RAYON

$Z                  set                 XG_Point=`calcul ((($XG_Parallele)+($XD_Parallele))/2)`
$Z                  set                 XD_Point=$XG_Point

$Z                  set                 YG_Point=`calcul ((($YG_Parallele)+($YD_Parallele))/2)`
$Z                  set                 YD_Point=$YG_Point

$Z                  set                 R_Point=$GRIS_8
$Z                  set                 V_Point=$GRIS_8
$Z                  set                 B_Point=$GRIS_0

$Z                  set                 Rayon_Point=0.03

$Z                  echo                "$XG_Point\n$XD_Point"                                                                          \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_X
$Z                  echo                "$YG_Point\n$YD_Point"                                                                          \
$Z                                                                                                  >>! $LiStEPoInTs$COORD_Y

$Z                  echo                "$R_Point\n$R_Point"                                                                            \
$Z                                                                                                  >>! $LiStEPoInTs$ROUGE
$Z                  echo                "$V_Point\n$V_Point"                                                                            \
$Z                                                                                                  >>! $LiStEPoInTs$VERTE
$Z                  echo                "$B_Point\n$B_Point"                                                                            \
$Z                                                                                                  >>! $LiStEPoInTs$BLEUE

$Z                  echo                "$Rayon_Point\n$Rayon_Point"                                                                    \
$Z                                                                                                  >>! $LiStEPoInTs$RAYON

$Z                  set                 NPoInTsX=`$CA $LiStEPoInTs$COORD_X | $WCl`
$Z                  set                 NPoInTsY=`$CA $LiStEPoInTs$COORD_Y | $WCl`

#20220615121506____:$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=$LiStEPoInTs$RAYON                                                                  \
$Z                                      LISTE_ROUGE=$LiStEPoInTs$ROUGE                                                                  \
$Z                                      LISTE_VERTE=$LiStEPoInTs$VERTE                                                                  \
$Z                                      LISTE_BLEUE=$LiStEPoInTs$BLEUE                                                                  \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      isoles=FAUX chainer=FAUX 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                  set                 PaRaMeTrEs1="$K_VIDE"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" taille=2"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" centrer=VRAI"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" anti_aliasing=VRAI"
$Z                  set                 PaRaMeTrEs1="$PaRaMeTrEs1"" UnderScoreEspace=VRAI"
$Z                                      # L'option "UnderScoreEspace=VRAI" est destinee a permettre des espaces dans "message=..."    #
$Z                                      # ci-apres, ce que 'execRVB' empechait ('v $xci/message$K 20201206104600')...                 #

$Z                  set                 X_Milieu=`calcul (($XG_Droite)+($XD_Droite))/2`

$Z                  set                 MeSsAgE_Droite="X=$X_Milieu Y=`calcul $YD_Droite-0.06`"
$Z                  set                 MeSsAgE_Parallele="X=$X_Milieu Y=`calcul $YD_Parallele-0.06`"
$Z                  set                 MeSsAgE_Point="X=$XD_Point Y=`calcul $YD_Point+0.08`"
$Z                  set                 MeSsAgE_Plan="X=$X_Milieu Y=`calcul $YD_Droite-0.35`"

$Z                  execRVB  "$xci/message$X                                                                                            \
$Z                                                A=$_____ImagesR%s                                                                     \
$Z                                                message='droite_D'                                                                    \
$Z                                                $PaRaMeTrEs1                                                                          \
$Z                                                $MeSsAgE_Droite                                                                       \
$Z                                                                                                            $formatI            |     \
$Z                            $xci/message$X                                                                                            \
#20201206114758____:$Z                                                message='parallele'                                          \  #
$Z                                                message='droite_//_D'                                                                 \
$Z                                                $PaRaMeTrEs1                                                                          \
$Z                                                $MeSsAgE_Parallele                                                                    \
$Z                                                                                                            $formatI            |     \
$Z                            $xci/message$X                                                                                            \
$Z                                                message='point_P'                                                                     \
$Z                                                $PaRaMeTrEs1                                                                          \
$Z                                                $MeSsAgE_Point                                                                        \
$Z                                                                                                            $formatI            |     \
$Z                            $xci/message$X                                                                                            \
$Z                                                message='plan'                                                                        \
$Z                                                $PaRaMeTrEs1                                                                          \
$Z                                                $MeSsAgE_Plan                                                                         \
$Z                                                R=$_____ImagesR%s                                                                     \
$Z                                                                                                            $formatI"
$Z                                      # Le remplacement de 'parallele' par 'droite_//_D' le 20201206114758 est du au fait que je    #
$Z                                      # ne peux pas mettre d'accent grave sur le deuxieme "e" de 'parallele'...                     #