#######################################################################################################################################
#                                                                                                                                     #
#         I T E R A T I O N   D E   F O N C T I O N   D A N S   L E   P L A N   C O M P L E X E  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirc/.ITER.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Programme                "zeta.31"

$Z        setParam            _____Iterations               256

$Z        setParam            _____xg                       -20.0

$Z        setParam            _____xd                       +20.0

$Z        setParam            _____yb                       -20.0

$Z        setParam            _____yh                       +20.0

$Z        setParam            _____Ty                       0.76

$Z        setParam            _____Perspective              0.3


$Z        set                 Premiere=0
$Z        set                 Derniere=0
$Z        @                   Nombre = $Derniere - $Premiere
$Z        @                   Nombre = $Nombre + 1

$Z        set                 imageT=$xTV/ITER.

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

$Z        $xrc/$_____Programme$X                                                                                                        \
$Z                            n=$Nombre                                                                                                 \
$Z                            iterations=$_____Iterations                                                                               \
$Z                            xbgD=$_____xg xbgA=$_____xg                                                                               \
$Z                            xhdD=$_____xd xhdA=$_____xd                                                                               \
$Z                            ybgD=$_____yb ybgA=$_____yb                                                                               \
$Z                            yhdD=$_____yh yhdA=$_____yh                                                                               \
$Z                            arguments=FAUX                                                                                            \
$Z                            R=$imageT                                                                                                 \
$Z                                                                                                                      $formatI

$Z        $xci/acces$X                                                                                                                  \
$Z                            A=$imageT$Numero                                                                                          \
$Z                            R=$_____images$Mo                                                                                         \
$Z                                                                                                                      $formatI

$Z        $xrc/$_____Programme$X                                                                                                        \
$Z                            n=$Nombre                                                                                                 \
$Z                            iterations=$_____Iterations                                                                               \
$Z                            xbgD=$_____xg xbgA=$_____xg                                                                               \
$Z                            xhdD=$_____xd xhdA=$_____xd                                                                               \
$Z                            ybgD=$_____yb ybgA=$_____yb                                                                               \
$Z                            yhdD=$_____yh yhdA=$_____yh                                                                               \
$Z                            arguments=VRAI                                                                                            \
$Z                            R=$imageT                                                                                                 \
$Z                                                                                                                      $formatI

$Z        $xci/acces$X                                                                                                                  \
$Z                            A=$imageT$Numero                                                                                          \
$Z                            R=$_____images$Ph                                                                                         \
$Z                                                                                                                      $formatI

$Z        $xci/vraies_C$X                                                                                                               \
$Z                            A=$_____images$Ph                                                                                         \
$Z                            p=$xiP/cercle.14                                                                                          \
$Z                            RVB=VRAI                                                                                                  \
$Z                            R=$xTV/PHASE                                                                                              \
$Z                                                                                                                      $formatI

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/montagne.01$X                                                                          \\\
$Z                                                   A=$_____images$Mo                                                                \\\
$Z                                                   T=$xTV/PHASE$%s                                                                  \\\
$Z                                                   avion=FAUX                                                                       \\\
$Z                                                   Ty=$_____Ty perspective=$_____Perspective                                        \\\
$Z                                                   R=$_____images$M$%s                                                              \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/montagne.01$X                                                                          \\\
$Z                                                   A=$_____images$Mo                                                                \\\
$Z                                                   T=$xTV/PHASE$%s                                                                  \\\
$Z                                                   avion=VRAI                                                                       \\\
$Z                                                   R=$_____images$m$%s                                                              \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        $DELETE             $xTV/PHASE