#######################################################################################################################################
#                                                                                                                                     #
#         M O N D E S   M U L T I P L E S   D E   H U G H   E V E R E T T  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.TREE.G3.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240909114139).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SformatI

$Z                  ext                 Pud

$Z        execRVB   $xci/neutre$X                                                                                                       \
$Z                                      A=$_____ImageA%s                                                                                \
$Z                                      R=$xTV/UNIV.01%s                                                                                \
$Z                                                                                                  $formatI

$Z        execRVB   $xci/format.01$X                                                                                                    \
$Z                                      A=$xTV/UNIV.01%s                                                                                \
$Z                                                                                                  $formatI                            \
$Z                                      mode=7                                                                                          \
$Z                                      R=$xTV/UNIV.01%s                                                                                \
$Z                                                                                                  $sformatIR

$Z                  RformatI

$Z                  set                 NPointsX=`$CA $_____FCoordonnees$COORD_X | $WCl`
$Z                  set                 NPointsY=`$CA $_____FCoordonnees$COORD_Y | $WCl`

$Z                  set  NPoints_=`$xcg/MIN2.01$X x=$NPointsX y=$NPointsY signe="$K_VIDE"`

$Z                  @                   NSegments = $NPoints_ / 2

$Z                  set                 LPointsX=`$CA $_____FCoordonnees$COORD_X`
$Z                  set                 LPointsY=`$CA $_____FCoordonnees$COORD_Y`

$Z        execRVB   $xci/init$X                                                                                                         \
$Z                                      n=$NOIR                                                                                         \
$Z                                      R=$xTV/UNIV.02%s                                                                                \
$Z                                                                                                  $formatI

$Z                  set                 P_1=0.4
$Z                  set                 P_2=`calcul 1-$P_1`

$Z                  set                 index=1
$Z                  set                 CoMpTeUr=1

$Z                  while               ($CoMpTeUr <= $NSegments)
$Z                                      @                   index1 = $index + 0
$Z                                      @                   index2 = $index + 1

$Z                                      set  PointsX=`calcul (($P_1*($LPointsX[$index1]))+($P_2*($LPointsX[$index2])))-0.5`
$Z                                      set  PointsY=`calcul (($P_1*($LPointsY[$index1]))+($P_2*($LPointsY[$index2])))-0.5`

#20240911101803____:$Z                            execRVB  "$xci/move$X                                                            \  #
#20240911101803____:$Z                                                          A=$xTV/UNIV.01%s                                   \  #
#20240911101803____:$Z                                                          thA=FAUX thR=FAUX xR=$PointsX                      \  #
#20240911101803____:$Z                                                          tvA=FAUX tvR=FAUX yR=$PointsY                      \  #
#20240911101803____:$Z                                                                                             $formatI  |     \  #
#20240911101803____:$Z                                      $xci/cache$X                                                           \  #
#20240911101803____:$Z                                                          A=$xTV/UNIV.02%s                                   \  #
#20240911101803____:$Z                                                          R=$xTV/UNIV.02%s                                   \  #
#20240911101803____:$Z                                                                                             $formatI"          #

$Z                            execRVB  "$xci/move$X                                                                                     \
$Z                                                          A=$xTV/UNIV.01%s                                                            \
$Z                                                          thA=FAUX thR=FAUX xR=$PointsX                                               \
$Z                                                          tvA=FAUX tvR=FAUX yR=$PointsY                                               \
$Z                                                                                                                 $formatI       |     \
$Z                                      $xci/cache$X                                                                                    \
$Z                                                          A=$xTV/UNIV.02%s                                                            \
$Z                                                          anti_aliasing=VRAI                                                          \
$Z                                                          R=$xTV/UNIV.02%s                                                            \
$Z                                                                                                                 $formatI"

$Z                                      @                   CoMpTeUr = $CoMpTeUr + 1
$Z                                      @                   index = $index + 2
$Z                  end

#20240911101803____:$Z        execRVB   $xci/cache$X                                                                               \  #
#20240911101803____:$Z                                      A=$_____ImageR%s                                                       \  #
#20240911101803____:$Z                                      M=$xTV/UNIV.02%s                                                       \  #
#20240911101803____:$Z                                      R=$_____ImageR%s                                                       \  #
#20240911101803____:$Z                                                                    $formatI                                    #

$Z        execRVB   $xci/cache$X                                                                                                        \
$Z                                      A=$_____ImageR%s                                                                                \
$Z                                      M=$xTV/UNIV.02%s                                                                                \
$Z                                      anti_aliasing=VRAI                                                                              \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                    $formatI