#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   D E C I M A L E S   E N   B A S E   3  :                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.J1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20161231104407).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Facteur                  `calculINS $COULEURS/3`

$Z                  setParam            _____Translation              $GRIS_1

$Z                  setParam            _____Grossissement            4

$Z                  FilSTmpB            FiLePoInTs

$Z                  $xci/valeurs_imag$X premiere=1 derniere=$tailleI                                                                    \
$Z                                      PX=1 PY=0                                                                                       \
$Z                                      denormalisees=VRAI                                                                              \
$Z                                      entier=VRAI                                                                                     \
$Z                                                                                                  >  $FiLePoInTs$COORD_X
$Z                  $xci/valeurs_imag$X premiere=1 derniere=$tailleI                                                                    \
$Z                                      PX=0 PY=1                                                                                       \
$Z                                      denormalisees=VRAI                                                                              \
$Z                                      entier=VRAI                                                                                     \
$Z                                                                                                  >  $FiLePoInTs$COORD_Y
$Z                                      # Generation des coordonnees de l'image...                                                    #

$Z                  $CA                 $_____FDecimales                                                                          |     \
$Z                  $SE                 -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*\.//"                                                     \
$Z                                      -e "s/\(.\)/\1\n/g"                                                                       |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $HEA                -$tailleI                                                                                 |     \
$Z                  $xrv/AXPB.01$X      ne=$tailleI                                                                                     \
$Z                                      a=$_____Facteur                                                                                 \
$Z                                      fichier==                                                                                       \
$Z                                      b=$_____Translation                                                                             \
$Z                                                                                                  >  $FiLePoInTs$NIVEAU

$Z                  $xrv/store_image$X  ne=$tailleI                                                                                     \
$Z                                      LISTE_X=$FiLePoInTs$COORD_X                                                                     \
$Z                                      Xdenormalisees=VRAI                                                                             \
$Z                                      LISTE_Y=$FiLePoInTs$COORD_Y                                                                     \
$Z                                      Ydenormalisees=VRAI                                                                             \
$Z                                      LISTE_Z=0                                                                                       \
$Z                                      LISTE_NIVEAU=$FiLePoInTs$NIVEAU                                                                 \
$Z                                      Ndenormalises=VRAI                                                                              \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                  $formatI
$Z                                      # Generation de l'image...                                                                    #

$Z                  $xci/Sx$X           A=$_____ImageR                                                                                  \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                  $formatI
$Z                                      # Symetrie destinee a mettre la premiere decimale en haut et a gauche...                      #

$Z                  $xci/format.01$X    A=$_____ImageR                                                                                  \
$Z                                      facteur=$_____Grossissement                                                                     \
$Z                                      facteur_extrema_coordonnees=FAUX                                                                \
$Z                                      mode=0                                                                                          \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                  $formatI
$Z                                      # Agrandissement destine a "compenser" les fichier '$_____FDecimales' trop petits...          #

$Z                  FilSTmpE            FiLePoInTs