#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N   T R I A N G L E  :                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.SPHE.J1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160330142443).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Gris_F                   $GRIS_2

$Z                  setParam            _____XA                       +0.2

$Z                  setParam            _____YA                       +0.1

$Z                  setParam            _____Rouge_A                  $GRIS_8

$Z                  setParam            _____Verte_A                  $GRIS_2

$Z                  setParam            _____Bleue_A                  $GRIS_0

$Z                  setParam            _____XB                       +0.9

$Z                  setParam            _____YB                       +0.3

$Z                  setParam            _____Rouge_B                  $GRIS_0

$Z                  setParam            _____Verte_B                  $GRIS_8

$Z                  setParam            _____Bleue_B                  $GRIS_0

$Z                  setParam            _____XC                       +0.3

$Z                  setParam            _____YC                       +0.4

$Z                  setParam            _____Rouge_C                  $GRIS_0

$Z                  setParam            _____Verte_C                  $GRIS_2

$Z                  setParam            _____Bleue_C                  $GRIS_8

$Z                  setParam            _____Rayon_T                  0.010

$Z                  setParam            _____AX                       `GetParam $xrv/particule.10$X AX`
$Z                                      # Parametre introduit le 20160331115743...                                                    #

$Z                  setParam            _____BX                       `GetParam $xrv/particule.10$X BX`
$Z                                      # Parametre introduit le 20160331121614...                                                    #

$Z                  setParam            _____AY                       `GetParam $xrv/particule.10$X AY`
$Z                                      # Parametre introduit le 20160331115743...                                                    #

$Z                  setParam            _____BY                       `GetParam $xrv/particule.10$X BY`
$Z                                      # Parametre introduit le 20160331121614...                                                    #

$Z                  setParam            _____Grossissement            1.5

$Z                  setParam            _____DistanceMini             `GetParam $xrv/particule.10$X distance_minimale`

$Z                  setParam            _____Zoom                     1.00

$Z        execRVB   $xci/init$X                                                                                                         \
$Z                                      n=$_____Gris_F                                                                                  \
$Z                                      R=$xTV/FOND%s                                                                                   \
$Z                                                                                                                      $formatI

$Z                  set       CoOrDoNnEe_Z=0.5

$Z                  set       LiM="@"

$Z                  FileTmpB  Ftriangle

$Z                  echo                "$_____XA$LiM$_____XB$LiM$_____XC$LiM$_____XA"                                            |     \
$Z                  $R                  "$LiM" "$K_NL"                                                                                  \
$Z                                                                                                  >  $Ftriangle$COORD_X
$Z                                      # Definition des coordonnees 'X' qui sont en fait pour la texture les 'u' (=latitudes)...     #

$Z                  echo                "$_____YA$LiM$_____YB$LiM$_____YC$LiM$_____YA"                                            |     \
$Z                  $R                  "$LiM" "$K_NL"                                                                                  \
$Z                                                                                                  >  $Ftriangle$COORD_Y
$Z                                      # Definition des coordonnees 'Y' qui sont en fait pour la texture les 'v' (=longitudes)...    #

$Z                  echo                "$_____Rouge_A$LiM$_____Rouge_B$LiM$_____Rouge_C$LiM$_____Rouge_A"                        |     \
$Z                  $R                  "$LiM" "$K_NL"                                                                                  \
$Z                                                                                                  >  $Ftriangle$ROUGE
$Z                                      # Definition des couleurs...                                                                  #

$Z                  echo                "$_____Verte_A$LiM$_____Verte_B$LiM$_____Verte_C$LiM$_____Verte_A"                        |     \
$Z                  $R                  "$LiM" "$K_NL"                                                                                  \
$Z                                                                                                  >  $Ftriangle$VERTE
$Z                                      # Definition des couleurs...                                                                  #

$Z                  echo                "$_____Bleue_A$LiM$_____Bleue_B$LiM$_____Bleue_C$LiM$_____Bleue_A"                        |     \
$Z                  $R                  "$LiM" "$K_NL"                                                                                  \
$Z                                                                                                  >  $Ftriangle$BLEUE
$Z                                      # Definition des couleurs...                                                                  #

$Z                  set            NPoInTsX=`$CA $Ftriangle$COORD_X | $WCl`
$Z                  set            NPoInTsY=`$CA $Ftriangle$COORD_Y | $WCl`
$Z                  set            NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=1                                                                                            \
$Z                                      iterations=$NPoInTs                                                                             \
$Z                                      AX=$_____AX BX=$_____BX                                                                         \
$Z                                      LISTE_X=$Ftriangle$COORD_X                                                                      \
$Z                                      AY=$_____AY BY=$_____BY                                                                         \
$Z                                      LISTE_Y=$Ftriangle$COORD_Y                                                                      \
$Z                                      LISTE_Z=$CoOrDoNnEe_Z                                                                           \
$Z                                      LISTE_RAYON=$_____Rayon_T                                                                       \
$Z                                      LISTE_ROUGE=$Ftriangle$ROUGE                                                                    \
$Z                                      LISTE_VERTE=$Ftriangle$VERTE                                                                    \
$Z                                      LISTE_BLEUE=$Ftriangle$BLEUE                                                                    \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      isoles=FAUX chainer=VRAI                                                                        \
$Z                                      ajuster_points=VRAI                                                                             \
$Z                                      equidistance=VRAI                                                                               \
$Z                                      distance_minimale=$_____DistanceMini                                                            \
$Z                                      grossissement=$_____Grossissement                                                               \
$Z                                      fond=VRAI F=$xTV/FOND                                                                           \
$Z                                      Lz=100                                                                                          \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$TrIaNgLe                                                                                     \
$Z                                                                                                                      $formatI
$Z                                      # Trace du triangle ABC.                                                                      #

$Z                  FileTmpE  Ftriangle