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

$Z                  setParam            _____Nombre                   $pi
$Z                                      # Parametre introduit le 20181127150713 afin de pouvoir "mettre a plat" la courbe de von Koch #
$Z                                      # (et ainsi voir que la longueur augmente) en faisant simplement '_____Nombre=0'...           #
$Z                                      #                                                                                             #
$Z                                      # MAIS, est-ce si simple ? Et bien non, car, en effet, ce sont les pointes qui font augmenter #
$Z                                      # la longueur. La seule solution est donnee par 'v $xrc/Cfract_2D.12$K APLATIR'...            #

$Z                  setParam            _____APlatir                  FAUX
$Z                                      # Parametre introduit le 20181129102755 (en garantissant la compatibilite anterieure...).     #

$Z                  setParam            _____Grossissement            1

$Z                  setParam            _____Rayon                    0.01
$Z                                      # Parametre introduit le 20070401092802...                                                    #

$Z                  setParam            _____Zoom                     2.6
$Z                                      # Parametre introduit le 20181127150713...                                                    #

$Z                  setParam            _____Connexion                VRAI
$Z                                      # Parametre introduit le 20150313182757...                                                    #

$Z                  setParam            _____Ajuster                  VRAI
$Z                                      # Parametre introduit le 20070401093934...                                                    #

$Z                  setParam            _____Apoints                  16
$Z                                      # Parametre introduit le 20070401092351...                                                    #

$Z                  setParam            _____Rpoints                  3
$Z                                      # Parametre introduit le 20070401092351...                                                    #

$Z                  setParam            _____CFractalPara             "Apoints=$_____Apoints Rpoints=$_____Rpoints"
$Z                                      # Parametre introduit le 20181127152412...                                                    #
$Z                                      #                                                                                             #
$Z                                      # On pourra faire :                                                                           #
$Z                                      #                                                                                             #
$Z                                      #                   _____CFractalPara="equidistance=VRAI dm=$_____DistanceMin"                #
$Z                                      #                                                                                             #

$Z                  setParam            _____DistanceMin              0.01
$Z                                      # Parametre introduit le 20181127152412...                                                    #

$Z                  setParam            _____ImagesR                  $xTV/VONK
$Z                                      # Parametre introduit le 20070401092351...                                                    #

$Z                  $DELETE             $xTV/ANGLES

$Z                  $xcg/scale$X        multiplicateur=0 nombre=$_____Nombre diviseur=3                       >   $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=1 nombre=$_____Nombre diviseur=3                       >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=4 nombre=$_____Nombre diviseur=3                       >>! $xTV/ANGLES
$Z                  $xcg/scale$X        multiplicateur=1 nombre=$_____Nombre diviseur=3                       >>! $xTV/ANGLES

$Z        alias     genere    'set       Iteration="\!*" ; $xrc/Cfract_2D.12$X iterations=4 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=3                                  \\
$Z                             rayon_de_visualisation=$_____Rayon                                                                      \\
$Z                             connexions=$_____Connexion ajuster_points=$_____Ajuster $_____CFractalPara                              \\
$Z                             R=$_____ImagesR.$Iteration. $formatI                                                               ;    \\
$Z                             unset     Iteration'

$Z                  genere              1
$Z                  genere              2
$Z                  genere              3
$Z                  genere              4
$Z                  genere              5
$Z                  genere              6

$Z                  $DELETE             $xTV/ANGLES