#######################################################################################################################################
#                                                                                                                                     #
#         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.B1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20210614105225).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Nombre                   $pi

$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                  $xcg/scale$X        multiplicateur=0  nombre=$_____Nombre diviseur=2                      >   $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=+1 nombre=$_____Nombre diviseur=2                      >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=-1 nombre=$_____Nombre diviseur=2                      >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=-1 nombre=$_____Nombre diviseur=2                      >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=0  nombre=$_____Nombre diviseur=2                      >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=+1 nombre=$_____Nombre diviseur=2                      >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=+1 nombre=$_____Nombre diviseur=2                      >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=-1 nombre=$_____Nombre diviseur=2                      >>! $xTV/ANGLES

$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=4                                  \\
$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