#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D U   C R I B L E   D ' E R A T O S T H E N E  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.ERAT.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150402145027).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Format                   Suq
$Z                                      # Parametre introduit le 20150403093048...                                                    #

$Z        SformatI
#20150403093048____:$Z        Suq                                                                                                     #
$Z        eval                $_____Format

$Z        set                 DiMeNsIoNX=$dimX
$Z        set                 DiMeNsIoNY=$dimY

$Z        $xrk/Eratosthene.01$X                                                                                                         \
$Z                            R=$xTV/ERAT.11                                                                                            \
$Z                                                                              $formatI

$Z        $xci/format.01$X                                                                                                              \
$Z                            A=$xTV/ERAT.11                                                                                            \
$Z                                                                              $formatI                                                \
$Z                            mode=0                                                                                                    \
$Z                            R=$xTV/ERAT.12                                                                                            \
$Z                                                                              $sformatIR

$Z        RformatI

$Z        @                   MaIlLeX = $dimX / $DiMeNsIoNX
$Z        @                   MaIlLeY = $dimY / $DiMeNsIoNY

$Z        $xci/grille.01$X                                                                                                              \
$Z                            A=$xTV/ERAT.12                                                                                            \
$Z                            niveau=$NOIR                                                                                              \
$Z                            denormalisees=VRAI                                                                                        \
$Z                            mx=$MaIlLeX my=$MaIlLeY                                                                                   \
$Z                            R=$_____ImageR                                                                                            \
$Z                                                                              $formatI