#######################################################################################################################################
#                                                                                                                                     #
#         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.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240601095446).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Niveau0                  $GRIS_0
$Z                  setParam            _____NiveauN                  $GRIS_8

$Z                  setParam            _____TranslationX             "$K_VIDE"
$Z                  setParam            _____TranslationY             "$K_VIDE"
$Z                                      # Parametres introduits le 20240516095052...                                                  #

$Z                  setParam            _____KChiffres                0.015
$Z                  setParam            _____RChiffres                0.0020

$Z                  setParam            _____Lisere                   FAUX
$Z                                      # Parametre introduit le 20240516103127...                                                    #

$Z                  setParam            _____Palette                  $xiP/cercle.35

$Z                  IfBasic             ($?_____Fond == $NEXIST) ThenBasic
$Z                                      # Test introduit le 20240516081816...                                                         #
$Z                            execRVB   $xci/init$X         niveau=$NOIR                                                                \
$Z                                                          R=$_____ImageR%s                                                            \
$Z                                                                                                  $formatI
$Z                  ElseBasic
$Z                            execRVB   $xci/neutre$X       A=$_____Fond%s                                                              \
$Z                                                          R=$_____ImageR%s                                                            \
$Z                                                                                                  $formatI
$Z                  EndifBasic

$Z                  set                 ArGs="premiere=0 derniere=`calculINS $Base10-1` vD=$_____Niveau0 vA=$_____NiveauN"
$Z                  set                 LNiVeAuX______=`$xci/valeurs_inte$X $ArGs lineaire=VRAI entiers=VRAI signe="$K_VIDE"`
$Z                  unset               ArGs

$Z                  set                 LCoOrDoNnEeS_X=`$CA $FCoOrDoNnEeS$COORD_X  | $HEA -$_____NChiffres`
$Z                  set                 LCoOrDoNnEeS_Y=`$CA $FCoOrDoNnEeS$COORD_Y  | $HEA -$_____NChiffres`
$Z                  set                 LChIfFrEs_____=`$CA $FCoOrDoNnEeS.chiffres | $HEA -$_____NChiffres`

$Z                  set                 TrAnSlX=0
$Z                  set                 TrAnSlY=0

$Z                  set                 DeCoMpTeUr=$_____NChiffres
$Z                  set                 index=1

#20240516081816____:$Z        execRVB   $xci/init$X         niveau=$NOIR                                                           \  #
#20240516081816____:$Z                                      R=$_____ImageR%s                                                       \  #
#20240516081816____:$Z                                                                                                  $formatI      #

$Z                  while               ($DeCoMpTeUr > 0)
$Z                                      @                   ChIfFrE1 = $LChIfFrEs_____[$index] + 1
$Z                                      set                 ChIfFrEc = $_____Alphabet[$ChIfFrE1]

$Z                                      set                 ChIfFrEX=`$xcg/ADD2.01$X a=$LCoOrDoNnEeS_X[$index] b=$TrAnSlX`
$Z                                      set                 ChIfFrEY=`$xcg/ADD2.01$X a=$LCoOrDoNnEeS_Y[$index] b=$TrAnSlY`

$Z                                      set                 NiVeAu_RVB=$LNiVeAuX______[$ChIfFrE1]
$Z                                      set                 NiVeAu_RVB=`$xciP/G_NIVEAU$X p=$_____Palette niveau=$NiVeAu_RVB Prme=VRAI`

$Z                                      set                 exec_aR="niveau_message=$NiVeAu_RVB[1]"
$Z                                      set                 exec_aV="niveau_message=$NiVeAu_RVB[2]"
$Z                                      set                 exec_aB="niveau_message=$NiVeAu_RVB[3]"

#20240516095052____:$Z                            execRVB   $xci/message$X      A=$_____ImageR%s                                   \  #
#20240516095052____:$Z                                                          message="$ChIfFrEc"                                \  #
#20240516095052____:$Z                                                          bibliotheque=$_____Bibliotheque                    \  #
#20240516095052____:$Z                                                          x=$ChIfFrEX y=$ChIfFrEY                            \  #
#20240516095052____:$Z                                                          taille=$_____Taille                                \  #
#20240516095052____:$Z                                                          homothetique=FAUX                                  \  #
#20240516095052____:$Z                                                          anti_aliasing=VRAI                                 \  #
#20240516095052____:$Z                                                          lisere=FAUX                                        \  #
#20240516095052____:$Z                                                          R=$_____ImageR%s                                   \  #
#20240516095052____:$Z                                                                                                  $formatI      #

#20240517083807____:$Z                            execRVB   $xci/message$X      A=$_____ImageR%s                                   \  #
#20240517083807____:$Z                                                message="$_____TranslationX$_____TranslationY""$ChIfFrEc"    \  #
#20240517083807____:$Z                                                          bibliotheque=$_____Bibliotheque                    \  #
#20240517083807____:$Z                                                          x=$ChIfFrEX y=$ChIfFrEY                            \  #
#20240517083807____:$Z                                                          taille=$_____Taille                                \  #
#20240517083807____:$Z                                                          homothetique=FAUX                                  \  #
#20240517083807____:$Z                                                          anti_aliasing=VRAI                                 \  #
#20240517083807____:$Z                                                          lisere=$_____Lisere                                \  #
#20240517083807____:$Z                                                          R=$_____ImageR%s                                   \  #
#20240517083807____:$Z                                                                                                  $formatI      #

#20240517101248____:$Z                            execRVB   $xci/message$X      A=$_____ImageR%s                                   \  #
#20240517101248____:$Z                                 message="$_____TranslationX$_____TranslationY$_____PCurseur""$ChIfFrEc"     \  #
#20240517101248____:$Z                                                          bibliotheque=$_____Bibliotheque                    \  #
#20240517101248____:$Z                                                          x=$ChIfFrEX y=$ChIfFrEY                            \  #
#20240517101248____:$Z                                                          taille=$_____Taille                                \  #
#20240517101248____:$Z                                                          homothetique=FAUX                                  \  #
#20240517101248____:$Z                                                          anti_aliasing=VRAI                                 \  #
#20240517101248____:$Z                                                          lisere=$_____Lisere                                \  #
#20240517101248____:$Z                                                          R=$_____ImageR%s                                   \  #
#20240517101248____:$Z                                                                                                  $formatI      #

$Z                                      set                 ArGsM="$K_VIDE"
$Z                                      set                 ArGsM="$ArGsM"" bibliotheque=$_____Bibliotheque"
$Z                                      set                 ArGsM="$ArGsM"" x=$ChIfFrEX y=$ChIfFrEY"
$Z                                      set                 ArGsM="$ArGsM"" taille=$_____Taille"
$Z                                      set                 ArGsM="$ArGsM"" homothetique=FAUX"
$Z                                      set                 ArGsM="$ArGsM"" anti_aliasing=VRAI"
$Z                                      set                 ArGsM="$ArGsM"" lisere=$_____Lisere"
$Z                                      # ATTENTION : on notera que "niveau_message=" est ineffectif ci-dessus a cause des            #
$Z                                      # definitions de {$exec_aR,$exec_aV,$exec_aB} qui precedent...                                #

$Z                                      set                 TrAnSlAtIoN_XY="$_____TranslationX$_____TranslationY"

$Z                            execRVB   $xci/message$X      A=$_____ImageR%s                                                            \
$Z                                                          $ArGsM                                                                      \
$Z                                                          message="$TrAnSlAtIoN_XY""$ChIfFrEc"                                        \
$Z                                                          R=$_____ImageR%s                                                            \
$Z                                                                                                  $formatI

$Z                                      IfBasic             ($?_____Spirale == $NEXIST) ThenBasic
$Z                                      # Test introduit le 20240517101644...                                                         #
$Z                                      ElseBasic
$Z                                                          $xci/message$X      A=$NOIR                                                 \
$Z                                                                              $ArGsM                                                  \
$Z                                                                              message="$TrAnSlAtIoN_XY""p""$ChIfFrEc"                 \
$Z                                                                              R=$xTV/PIAL.39.9                                        \
$Z                                                                              Prme=VRAI                                               \
$Z                                                                                                                      $formatI  |     \
$Z                                                          $TAI                -1                                                      \
$Z                                                                                                            >> $_____Spirale
$Z                                      EndifBasic

$Z                                      @                   index = $index + 1
$Z                                      @                   DeCoMpTeUr = $DeCoMpTeUr - 1
$Z                  end

$Z                  FilSTmpE            FCoOrDoNnEeS