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

$Z        setParam            _____Programme                "zeta.21"

$Z        setParam            _____Fermat1                  0.01

$Z        setParam            _____Fermat2                  0.1

$Z        setParam            _____Palette                  $xiP/cercle.14
$Z                                      # Introduit le 20090129103222 pour 'v $xiirc/$Fnota ZETA.31'...                               #

$Z        setParam            _____Sy                       8
$Z                                      # Introduit le 20090130112150 pour 'v $xiirc/$Fnota ZETA.31'...                               #

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

$Z        set                 imageT=$xTV/FONC

$Z        $xrc/$_____Programme$X                                                                                                        \
$Z                            n=$Nombre                                                                                                 \
$Z                            xbgD=$_____xg xbgA=$_____xg                                                                               \
$Z                            xhdD=$_____xd xhdA=$_____xd                                                                               \
$Z                            ybgD=$_____yb ybgA=$_____yb                                                                               \
$Z                            yhdD=$_____yh yhdA=$_____yh                                                                               \
$Z                            genererR=VRAI  RR=$imageT$PR.                                                                             \
$Z                            genererI=VRAI  RI=$imageT$PI.                                                                             \
$Z                            genererMo=VRAI RMo=$imageT$Mo.                                                                            \
$Z                            genererPh=VRAI RPh=$imageT$Ph.                                                                            \
$Z                                                                                                                      $formatI

$Z        set                 imageM=`GetXTmp "$K_VIDE" "$K_VIDE" $xTV`

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

$Z        set                 Fermat1=$_____Fermat1
$Z        set                 Fermat2=$_____Fermat2

$Z        $xci/val_absolue$X                                                                                                            \
$Z                            A=$imageT$PR.$Numero                                                                                      \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/Fermat$X                                                                                                                 \
$Z                            standard=FAUX                                                                                             \
$Z                            cx=0 cy=0                                                                                                 \
$Z                            cn=1 en=$Fermat2                                                                                          \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/acces$X                                                                                                                  \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                            R=$_____images$PR                                                                                         \
$Z                                                                                                                      $formatI

$Z        $xci/val_absolue$X                                                                                                            \
$Z                            A=$imageT$PI.$Numero                                                                                      \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/Fermat$X                                                                                                                 \
$Z                            standard=FAUX                                                                                             \
$Z                            cx=0 cy=0                                                                                                 \
$Z                            cn=1 en=$Fermat2                                                                                          \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/acces$X                                                                                                                  \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                            R=$_____images$PI                                                                                         \
$Z                                                                                                                      $formatI

$Z        $xci/Fermat$X                                                                                                                 \
$Z                            A=$imageT$Mo.$Numero                                                                                      \
$Z                            standard=FAUX                                                                                             \
$Z                            cx=0 cy=0                                                                                                 \
$Z                            cn=1 en=$Fermat1                                                                                          \
$Z                            R=$xTV/MODULE                                                                                             \
$Z                                                                                                                      $formatI
$Z        $xci/Fermat$X                                                                                                                 \
$Z                            A=$imageT$Mo.$Numero                                                                                      \
$Z                            standard=FAUX                                                                                             \
$Z                            cx=0 cy=0                                                                                                 \
$Z                            cn=1 en=$Fermat2                                                                                          \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/acces$X                                                                                                                  \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                            R=$_____images$Mo                                                                                         \
$Z                                                                                                                      $formatI

$Z        $xci/acces$X                                                                                                                  \
$Z                            A=$imageT$Ph.$Numero                                                                                      \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                            R=$_____images$Ph                                                                                         \
$Z                                                                                                                      $formatI
$Z        $xci/vraies_C$X                                                                                                               \
$Z                            A=$_____images$Ph                                                                                         \
$Z                            p=$_____Palette                                                                                           \
$Z                            RVB=VRAI                                                                                                  \
$Z                            R=$xTV/PHASE                                                                                              \
$Z                                                                                                                      $formatI

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/montagne.01$X                                                                          \\\
$Z                                                   A=$xTV/MODULE                                                                    \\\
$Z                                                   standard=FAUX zero=FAUX                                                          \\\
$Z                                                   T=$xTV/PHASE$%s                                                                  \\\
$Z                                                   avion=FAUX                                                                       \\\
$Z                                                   Sy=$_____Sy                                                                      \\\
$Z                                                   Ty=0.76 perspective=0.3                                                          \\\
$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=$xTV/MODULE                                                                    \\\
$Z                                                   standard=FAUX zero=FAUX                                                          \\\
$Z                                                   T=$xTV/PHASE$%s                                                                  \\\
$Z                                                   avion=VRAI                                                                       \\\
$Z                                                   Sy=$_____Sy                                                                      \\\
$Z                                                   R=$_____images$m$%s                                                              \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        $DELETE             $xTV/MODULE
$Z        $DELETE             $xTV/PHASE