#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   I T E R A T I V E   D ' U N E   C O U R B E   F R A C T A L E                                         #
#         S U R   L E   M O D E L E   D E   L A   C O U R B E   D E   V O N   K O C H  :                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirc/.VONK.C1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20210617125507).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Nombre                   $pi

$Z                  setParam            _____Rapport                  4

$Z                  setParam            _____APlatir                  FAUX

$Z                  setParam            _____Grossissement            1

$Z                  setParam            _____Rayon                    0.015

$Z                  setParam            _____Zoom                     1.4

$Z                  setParam            _____Connexion                VRAI

$Z                  setParam            _____DistanceMini             0.010

$Z                  setParam            _____Rpoints                  3

$Z                  setParam            _____ImagesR                  $xTV/VONK

$Z                  $DELETE             $xTV/ANGLES

$Z                  set                 index=1
$Z                  set                 NElEMeNtS_M=$#_____Lmul
$Z                  set                 NElEMeNtS_D=$#_____Ldiv

$Z                  IfBasic             ($NElEMeNtS_M != $NElEMeNtS_D) then
$Z                                      EROR                "Les deux listes sont incompatibles."
$Z                  ElseBasic
$Z                  EndifBasic

$Z                  set                 index=1
$Z                  set                 NElEMeNtS=`$xcg/MIN2.01$X a=$NElEMeNtS_M b=$NElEMeNtS_D signe="$K_VIDE"`

$Z                  while               ($index <= $NElEMeNtS)
$Z                                      set                 ElEMeNtS_M=$_____Lmul[$index]
$Z                                      set                 ElEMeNtS_D=$_____Ldiv[$index]
$Z                                      $xcg/scale$X        multiplicateur=$ElEMeNtS_M nombre=$_____Nombre diviseur=$ElEMeNtS_D         \
$Z                                                                                                  >>! $xTV/ANGLES
$Z                                      @                   index = $index + 1
$Z                  end

$Z                  set                 ItErAtIoNs=`$CA $xTV/ANGLES | $WCl`

$Z        alias     genere    'set       Iteration="\!*" ; $xrc/Cfract_2D.12$X iterations=$ItErAtIoNs recursion=$Iteration             \\
$Z                             aplatir=$_____APlatir                                                                                   \\
$Z                             complexe=VRAI aleatoire=FAUX ZOOM=$_____Zoom Lz=1000 grossissement=$_____Grossissement RVB=FAUX         \\
$Z                             xG=-0.5 xD=0.5 yG=-0.1 yD=-0.1 ANGLE_DE_ROTATION=$xTV/ANGLES rapport=$_____Rapport                      \\
$Z                             rayon_de_visualisation=$_____Rayon                                                                      \\
$Z                             connexions=$_____Connexion ajuster_points=VRAI equidistance=VRAI distance_minimale=$_____DistanceMini   \\
$Z                             R=$_____ImagesR.$Iteration. $formatI                                                               ;    \\
$Z                             unset     Iteration'

$Z                  genere              1
$Z                  genere              2
$Z                  genere              3
$Z                  genere              4

$Z                  $DELETE             $xTV/ANGLES