#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   " R O B E R T   &   S O N I A   D E L A U N A Y "  :                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.DELA.21.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220630160422).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Format                   Shu

$Z                  setParam            _____Fond                     $BLANC

$Z                  setParam            _____Nombre                   4

$Z                  setParam            _____GraineT                  1515
$Z                  setParam            _____MinimumT                 0.2
$Z                  setParam            _____MaximumT                 0.8

$Z                  setParam            _____GraineR                  1947
$Z                  setParam            _____MinimumR                 0.4
$Z                  setParam            _____MaximumR                 2.4

$Z                  set                 CoMpTeUr=1

$Z                  set                 ArGs1="$K_VIDE"
$Z                  set                 ArGs1="$ArGs1"" premiere=1 derniere=$_____Nombre"

$Z                  set                 MinT=$_____MinimumT
$Z                  set                 MaxT=$_____MaximumT

$Z                  set                 MinR=$_____MinimumR
$Z                  set                 MaxR=$_____MaximumR

$Z                  set                 LTranslation=`$xci/valeurs_alea$X inferieur=$MinT superieur=$MaxT $ArGs1 graine=$_____GraineT`
$Z                  set                 LAngle=`$xci/valeurs_alea$X inferieur=$MinR superieur=$MaxR $ArGs1 graine=$_____GraineR`

$Z        execRVB   $xci/acces$X                                                                                                        \
$Z                                      A=$_____ImageA%s                                                                                \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                  $formatI

$Z                  while               ($CoMpTeUr <= $_____Nombre)
$Z                                      FilSTmpB            MaSqUe

$Z                                      set                 Translation=$LTranslation[$CoMpTeUr]
$Z                                      set                 Angle=$LAngle[$CoMpTeUr]

$Z                                      SformatI
$Z                                      eval                "$_____Format"

$Z                                      $xci/scroll$X                                                                                   \
$Z                                                          A=$_____Fond                                                                \
$Z                                                          toreX=FAUX trX=$Translation                                                 \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/rotate$X                                                                                   \
$Z                                                          angle=$Angle                                                                \
$Z                                                          interpoler=FAUX                                                             \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/format.01$X                                                                                \
$Z                                                                                                                      $formatI        \
$Z                                                          mode=7                                                                      \
$Z                                                          R=$MaSqUe                                                                   \
$Z                                                                                                                      $sformatIR

$Z                                      RformatI

$Z                            execRVB   $xci/eor$X                                                                                      \
$Z                                                          A1=$_____ImageR%s                                                           \
$Z                                                          A2=$MaSqUe                                                                  \
$Z                                                          R=$_____ImageR%s                                                            \
$Z                                                                                                                      $formatI

$Z                                      FilSTmpE            MaSqUe

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

$Z        execRVB   $xci/convol.01$X                                                                                                    \
$Z                                      A=$_____ImageR%s                                                                                \
$Z                                      points=25                                                                                       \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                  $formatI