#######################################################################################################################################
#                                                                                                                                     #
#         T R A C E   D ' U N   S O L E I L   P U E R I L  :                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SOLE.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20161018101231).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____DistanceMini             0.002

$Z                  setParam            _____X                        0

$Z                  setParam            _____Y                        0

$Z                  setParam            _____Rouge                    $GRIS_8

$Z                  setParam            _____Verte                    $GRIS_8

$Z                  setParam            _____Bleue                    $GRIS_0

$Z                  setParam            _____NCercle                  33

$Z                  setParam            _____Epaisseur                0.005

$Z                  setParam            _____Rayon1                   0.5

$Z                  setParam            _____Rayon2                   200

$Z                  setParam            _____Zoom                     1.50

$Z                  FileTmpB  FPoints

$Z                  set       NCercle=$_____NCercle

$Z                  set       PaRaMeTrEs1="$K_VIDE"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" premiere=1 derniere=$NCercle"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" lineaire=VRAI"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" gamma=0"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" tD=0 tA=$dpi"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" rD=$_____Rayon1 rA=$_____Rayon1"

$Z                  set       PaRaMeTrEs2="$K_VIDE"
$Z                  set       PaRaMeTrEs2="$PaRaMeTrEs2"" premiere=1 derniere=$NCercle"
$Z                  set       PaRaMeTrEs2="$PaRaMeTrEs2"" lineaire=VRAI"

$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      translation=$_____X                                                                             \
$Z                                      alpha=1 beta=0                                                                                  \
$Z                                                                                                  >  $FPoints$COORD_X

$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      translation=$_____Y                                                                             \
$Z                                      alpha=0 beta=1                                                                                  \
$Z                                                                                                  >  $FPoints$COORD_Y

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Epaisseur vA=$_____Epaisseur                                                           \
$Z                                                                                                  >  $FPoints$RAYON

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Rouge vA=$_____Rouge                                                                   \
$Z                                                                                                  >  $FPoints$ROUGE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Verte vA=$_____Verte                                                                   \
$Z                                                                                                  >  $FPoints$VERTE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Bleue vA=$_____Bleue                                                                   \
$Z                                                                                                  >  $FPoints$BLEUE
$Z                                      # Definition des rayons du Soleil...                                                          #

$Z                  set                 CoOrDoNnEe_Z=0.5
$Z                  set                 AXYZ_BXYZ="AXYZ=1 BXYZ=0"

$Z                  set                 NPoInTsX=`$CA $FPoints$COORD_X | $WCl`
$Z                  set                 NPoInTsY=`$CA $FPoints$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                                      $AXYZ_BXYZ                                                                                      \
$Z                                      LISTE_X=$FPoints$COORD_X                                                                        \
$Z                                      LISTE_Y=$FPoints$COORD_Y                                                                        \
$Z                                      LISTE_Z=$CoOrDoNnEe_Z                                                                           \
$Z                                      LISTE_RAYON=$FPoints$RAYON                                                                      \
$Z                                      LISTE_ROUGE=$FPoints$ROUGE                                                                      \
$Z                                      LISTE_VERTE=$FPoints$VERTE                                                                      \
$Z                                      LISTE_BLEUE=$FPoints$BLEUE                                                                      \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      isoles=VRAI                                                                                     \
$Z                                      joindre_central=VRAI jonction_a_un_corps=FAUX                                                   \
$Z                                      Xjonction=$_____X Yjonction=$_____Y Zjonction=$CoOrDoNnEe_Z                                     \
$Z                                      Rjonction=$_____Rouge Vjonction=$_____Verte Bjonction=$_____Bleue                               \
$Z                                      rayon_jonction=$_____Epaisseur                                                                  \
$Z                                      ajuster_points=VRAI equidistance=VRAI                                                           \
$Z                                      distance_minimale=$_____DistanceMini                                                            \
$Z                                      Lz=100                                                                                          \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImagesR                                                                                 \
$Z                                                                                                                      $formatI
$Z                                      # Trace des rayons du Soleil...                                                               #
$Z                                      #                                                                                             #
$Z                                      # L'option "compatibilite_20171123=VRAI" a ete introduite le 20171123124904, puis retiree     #
$Z                                      # le 20171123141754 car, en effet, l'image 'v $xiirv/SOLE.11' presentait le defaut corrige    #
$Z                                      # par 'v $xrv/particule.10$K 20171123123513'...                                               #

$Z                  FileTmpE  FPoints

$Z                  $xci/gauss$X                                                                                                        \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/seuil$X                                                                                                        \
$Z                                      seuil=$_____Rayon2                                                                              \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/convol.01$X                                                                                                    \
$Z                                      points=49                                                                                       \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      p=$xiP/jaune.01                                                                                 \
$Z                                      R=$xTV/SOLE.11                                                                                  \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/cache$X                                                                                                        \
$Z                                      A=$_____ImagesR%s                                                                               \
$Z                                      M=$xTV/SOLE.11%s                                                                                \
$Z                                      R=$_____ImagesR%s                                                                               \
$Z                                                                                                            $formatI