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

$Z        setParam            _____ImagesA1                 $xTV/VONK.1

$Z        setParam            _____ImagesA2                 $xTV/VONK.2

$Z        setParam            _____ImagesR                  $xTV/VONK

$Z        set       Premiere=1
$Z        set       Derniere=1

$Z        set       Numero=`$xci/nombres$X premiere=$Premiere derniere=$Derniere`

$Z        alias     genere    'set      Iteration="\!*"                                                                           ;    \\
$Z                             execRVB  $xci/init$X niveau=$NOIR R=$_____ImagesR.\!*%s $formatI                                   ;    \\
$Z                             unset    Iteration'

$Z        genere    0001
$Z        genere    0002
$Z        genere    0003
$Z        genere    0004
$Z        genere    0005
$Z        genere    0006
$Z        genere    0007
$Z        genere    0008
$Z        genere    0009
$Z        genere    0010
$Z        genere    0011
$Z        genere    0012
$Z        genere    0013
$Z        genere    0014
$Z        genere    0015
$Z        genere    0016

$Z        alias     genere1   'set      ImAgE_A1=\!:1 ; set ImAgE_R=\!:2 ; set CoUlEuR=\!:3                                       ;    \\
$Z                             $xci/move$X        A=$_____ImagesA1.$ImAgE_A1.$Numero$CoUlEuR                                           \\
$Z                                                R=$_____ImagesR.$ImAgE_R$CoUlEuR                                                     \\
$Z                                                                                                            $formatI            ;    \\
$Z                             unset    ImAgE_A ImAgE_R CoUlEuR'
$Z        alias     genere2   'set      ImAgE_A1=\!:1 ; set ImAgE_A2=\!:2 ; set ImAgE_R=\!:3 ; set CoUlEuR=\!:4                   ;    \\
$Z                             $xci/cache$X       A=$_____ImagesA2.$ImAgE_A2.$Numero$CoUlEuR                                           \\
$Z                                                M=$_____ImagesA1.$ImAgE_A1.$Numero$CoUlEuR                                           \\
$Z                                                R=$_____ImagesR.$ImAgE_R$CoUlEuR                                                     \\
$Z                                                                                                            $formatI            ;    \\
$Z                             unset    ImAgE_A1 ImAgE_A2 ImAgE_R CoUlEuR'

$Z        genere1   1                   0001      $BLEUE

$Z        genere2   2         1         0002      $ROUGE
$Z        genere1   2                   0003      $ROUGE

$Z        genere2   3         2         0004      $ROUGE
$Z        genere2   3         2         0004      $BLEUE
$Z        genere1   3                   0005      $ROUGE
$Z        genere1   3                   0005      $BLEUE

$Z        genere2   4         3         0006      $VERTE
$Z        genere1   4                   0007      $VERTE

$Z        genere2   5         4         0008      $VERTE
$Z        genere2   5         4         0008      $BLEUE
$Z        genere1   5                   0009      $VERTE
$Z        genere1   5                   0009      $BLEUE

$Z        genere2   6         5         0010      $ROUGE
$Z        genere2   6         5         0010      $VERTE
$Z        genere1   6                   0011      $ROUGE
$Z        genere1   6                   0011      $VERTE

$Z        genere1   6                   0012      $ROUGE
$Z        genere1   6                   0012      $VERTE
$Z        genere1   6                   0012      $BLEUE

$Z        genere1   6                   0013      $ROUGE
$Z        genere1   6                   0013      $VERTE
$Z        genere1   6                   0013      $BLEUE

$Z        genere1   6                   0014      $ROUGE
$Z        genere1   6                   0014      $VERTE
$Z        genere1   6                   0014      $BLEUE

$Z        genere1   6                   0015      $ROUGE
$Z        genere1   6                   0015      $VERTE
$Z        genere1   6                   0015      $BLEUE

$Z        genere1   6                   0016      $ROUGE
$Z        genere1   6                   0016      $VERTE
$Z        genere1   6                   0016      $BLEUE



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.