#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   P R E M I E R E S   D E C I M A L E S   D E   P I                                       #
#         E T   D E   S A   P A R T I E   E N T I E R E                                                                               #
#         S U R   U N E   S P I A L E   D ' A R C H I M E D E  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.D4.21.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240227165848).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        SETParam            _____CouleursDecimalesV        $EXIST
$Z                                      # Le 20240314181033 fut introduit la possibilite de choisir entre la Valeur des decimales     #
$Z                                      # dans [0,9] ($EXIST) et leur Numero dans [1,N] ($NEXIST) pour faire le coloriage...          #
$Z        SETParam            _____CouleursDecimalesR1       $BLANC
$Z        SETParam            _____CouleursDecimalesRN       `calculINS ($GRIS_1/2)+1`
$Z                                      # Parametres introduits le 20240315095722 (voir 'v $xigP""/cercle.Q5$Z GrIs' pour comprendre  #
$Z                                      # la definition de '$_____CouleursDecimalesRN'...).                                           #

$Z        setParam            _____HomothetieDecimales      `calcul $BLANC/10`
$Z                                      # Parametre introduit le 20240228081024...                                                    #
$Z        setParam            _____TranslationDecimales     0

#20240228081024____:$Z                  $CA                 $_____FDecimales                                                 |     \  #
#20240228081024____:$Z                  $SE                 -e "s/^  *//"                                                          \  #
#20240228081024____:$Z                                      -e "s/,//"                                                       |     \  #
#20240228081024____:$Z                  $GRE                -v '^ *$'                                                        |     \  #
#20240228081024____:$Z                  $GRE                -v 'alcul '                                                      |     \  #
#20240228081024____:$Z                  $SE                 -e "s/ //g"                                                            \  #
#20240228081024____:$Z                                      -e "s/\(.\)/\1@/g"                                               |     \  #
#20240228081024____:$Z                  $R                  "@" "$K_NL"                                                      |     \  #
#20240228081024____:$Z                  $GRE                -v '^ *$'                                                        |     \  #
#20240228081024____:$Z                  $xrv/ADD2.11$X      ne=`calcul $PartN-$Part0+1`                                            \  #
#20240228081024____:$Z                                      fichier1==                                                             \  #
#20240228081024____:$Z                                      fichier2=$_____TranslationDecimales                                    \  #
#20240228081024____:$Z                                                                                             > $xTV/NIVEAUX     #

#20240315114429____:$Z                  $CA                 $_____FDecimales                                                 |     \  #
#20240315114429____:$Z                  $SE                 -e "s/^  *//"                                                          \  #
#20240315114429____:$Z                                      -e "s/,//"                                                       |     \  #
#20240315114429____:$Z                  $GRE                -v '^ *$'                                                        |     \  #
#20240315114429____:$Z                  $GRE                -v 'alcul '                                                      |     \  #
#20240315114429____:$Z                  $SE                 -e "s/ //g"                                                            \  #
#20240315114429____:$Z                                      -e "s/\(.\)/\1@/g"                                               |     \  #
#20240315114429____:$Z                  $R                  "@" "$K_NL"                                                      |     \  #
#20240315114429____:$Z                  $GRE                -v '^ *$'                                                        |     \  #
#20240315114429____:$Z                  $xrv/AXPB.01$X      ne=`calcul $PartN-$Part0+1`                                            \  #
#20240315114429____:$Z                                      fichier==                                                              \  #
#20240315114429____:$Z                                      homothetie=$_____HomothetieDecimales                                   \  #
#20240315114429____:$Z                                      translation=$_____TranslationDecimales                                 \  #
#20240315114429____:$Z                                                                                             > $xTV/NIVEAUX     #

$Z                  $CA                 $_____FDecimales                                                                          |     \
$Z                  $SE                 -e "s/^  *//"                                                                                   \
$Z                                      -e "s/,//"                                                                                |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $GRE                -v 'alcul '                                                                               |     \
$Z                  $SE                 -e "s/ //g"                                                                                     \
$Z                                      -e "s/\(.\)/\1@/g"                                                                        |     \
$Z                  $R                  "@" "$K_NL"                                                                               |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $xrv/AXPB.01$X      ne=`calcul $PartN-$Part0+1`                                                                     \
$Z                                      fichier==                                                                                       \
$Z                                      homothetie=$_____HomothetieDecimales                                                            \
$Z                                      translation=$_____TranslationDecimales                                                          \
$Z                                      XPBA=VRAI                                                                                       \
$Z                                                                                                  > $xTV/NIVEAUX

$Z                  if                  ($_____CouleursDecimalesV == $EXIST) then
$Z                                      # Test introduit le 20240314181033...                                                         #
$Z                  else
$Z                                      $DELETE             $xTV/NIVEAUX.Nume

$Z                                      $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN                                             \
$Z                                                          vD=$_____CouleursDecimalesR1 vA=$_____CouleursDecimalesRN                   \
$Z                                                          lineaire=VRAI                                                               \
$Z                                                          entiers=VRAI                                                                \
$Z                                                                                                                 > $xTV/NIVEAUX.Nume
$Z                                      # Le coloriage via le numero des decimales a ete introduit le 20240314144622...               #
$Z                  endif