#######################################################################################################################################
#                                                                                                                                     #
#         C O N S T R U C T I O N   D ' U N E   S P I R A L E   C A R R E E   " A L P H A B E T I Q U E "  :                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIAL.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240514094613).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NChiffres                100

$Z                  setParam            _____FDecimales               $xrp/Decimales_Base10_Pi_____100000

$Z                  setParam            _____Bibliotheque             3

$Z                  setParam            _____Taille                   1

$Z                  IfBasic             ($_____Bibliotheque == 3) ThenBasic
$Z                                      setParam            _____FacteurX                 `calcul $_____Taille*6`
$Z                                      setParam            _____FacteurY                 `calcul $_____Taille*6`
$Z                                      # Les caracteres de la bibliotheque '3' sont inscrits dans des blocs 6x6...                   #
$Z                                      setParam            _____Alphabet                 (B K E F T Q P U S R)
$Z                  ElseBasic
$Z                                      IfBasic             ($_____Bibliotheque == 4) ThenBasic
$Z                                                          setParam            _____FacteurX                 `calcul $_____Taille*5`
$Z                                                          setParam            _____FacteurY                 `calcul $_____Taille*5`
$Z                                                          setParam            _____Alphabet                 (E F G D I J K L B C)
$Z                                      # Les caracteres de la bibliotheque '4' sont inscrits dans des blocs 5x5...                   #
$Z                                      ElseBasic
$Z                                                          setParam            _____FacteurX                 40
$Z                                                          setParam            _____FacteurY                 40

#20240516082913____:$Z                                      setParam            _____Alphabet                 (A B C D E F G H I J)   #
$Z                                                          setParam            _____Alphabet                 (0 1 2 3 4 5 6 7 8 9)
$Z                                      EndifBasic
$Z                  EndifBasic

$Z                  FilSTmpB            FCoOrDoNnEeS

$Z                  $CA                 $_____FDecimales                                                                          |     \
$Z                  $SE                 -e "s/^  *//"                                                                                   \
$Z                                      -e "s/\.//"                                                                               |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $SE                 -e "s/ //g"                                                                                     \
$Z                                      -e "s/\(.\)/\1@/g"                                                                        |     \
$Z                  $R                  "@" "$K_NL"                                                                               |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $HEA                -$_____NChiffres                                                                                \
$Z                                                                              >  $FCoOrDoNnEeS.chiffres

$Z                  set                 CeNtRe_X=`calcul 1/2`
$Z                  set                 CeNtRe_Y=`calcul 1/2`

$Z                  $xci/valeurs_spir$X premiere=1 derniere=$_____NChiffres                                                             \
$Z                                      PX=1 PY=0                                                                                 |     \
$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      a=$_____FacteurX                                                                                \
$Z                                      b=-$CeNtRe_X                                                                                    \
$Z                                      XPBA=VRAI                                                                                 |     \
$Z                  $xrv/ADD2.11$X      ne=0                                                                                            \
$Z                                      fichier1==                                                                                      \
$Z                                      fichier2=+$CeNtRe_X                                                                             \
$Z                                                                              >  $FCoOrDoNnEeS$COORD_X

$Z                  $xci/valeurs_spir$X premiere=1 derniere=$_____NChiffres                                                             \
$Z                                      PX=0 PY=1                                                                                 |     \
$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      a=$_____FacteurY                                                                                \
$Z                                      b=-$CeNtRe_Y                                                                                    \
$Z                                      XPBA=VRAI                                                                                 |     \
$Z                  $xrv/ADD2.11$X      ne=0                                                                                            \
$Z                                      fichier1==                                                                                      \
$Z                                      fichier2=+$CeNtRe_Y                                                                             \
$Z                                                                              >  $FCoOrDoNnEeS$COORD_Y