#######################################################################################################################################
#                                                                                                                                     #
#         Z O O M   S U R   L A   C O U R B E   D E   V O N   K O C H  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirc/.VONK.62.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20180203102527).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____XDD                      1.0
$Z                                      # Parametre introduit le 20180208090548...                                                    #

$Z                  SETParam            _____XDA                      3.0
$Z                                      # Parametre introduit le 20180208090548...                                                    #

$Z                  setParam            _____XG                       0.0
$Z                                      # Parametre introduit le 20180208090548...                                                    #

$Z                  setParam            _____YG                       0.2
$Z                                      # Parametre introduit le 20180208090548...                                                    #

$Z                  setParam            _____YD                       0.2
$Z                                      # Parametre introduit le 20180208090548...                                                    #

$Z                  setParam            _____ParamCfract_2D           "$K_VIDE"
$Z                                      # Parametre introduit le 20180208090548...                                                    #

$Z                  setParam            _____TranslationY             0.25

$Z                  set                 TrAnSlAtIoNY=$_____TranslationY

$c                  #define   N0        Premiere
$c                  #define   N         Derniere

$c                  int       main()
$c                            {
$c                            int       n;

$c                            double    xDD=_____XDD;
$c                            double    xDA=_____XDA;

$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xrc/Cfract_2D.01$X
$c                                                          xG=$_____XG xD=%f
$c                                                          yG=$_____YG yD=$_____YD
$c                                                          rectangulaire=FAUX
$c                                                          grand_carre=VRAI
$c                                                          argument=FAUX
$c                                                          $_____ParamCfract_2D
$c                                                                                                                      $formatI  |
$c                                              $xci/scroll$X
$c                                                          toreX=FAUX trX=0
$c                                                          toreY=FAUX trY=$TrAnSlAtIoNY
$c                                                                                                                      $formatI  |
$c                                              $xci/dilate.01$X
$c                                                                                                                      $formatI  |
$c                                              $xci/convol.01$X
$c                                                          R=$_____images.%04d
$c                                                                                                                      $formatI\n"
$c                                            ,((xDA*(n-N0))+(xDD*(N-n)))/(N-N0)
$c                                            ,n
$c                                             );
$c                                      }
$c                            }

$Z        $xci/vraies_C.01$X  A=$_____images.                                                                                           \
$Z                            premiere=$Premiere derniere=$Derniere                                                                     \
$Z                            p=$xiP/gris.01 RVB=VRAI                                                                                   \
$Z                            R=$_____images.                                                                                           \
$Z                                                                                                                      $formatI