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

$Z                  setParam            _____NLChamps                 "1"
$Z                                      # Parametre introduit le 20240603181735...                                                    #

$Z                  setParam            _____LChampsPara              "$K_VIDE"
$Z                                      # Parametre introduit le 20240603114923...                                                    #

$Z                  set                 _____LChamps="$K_VIDE"

$Z                  switch    ("$_____NLChamps")
$Z                            case      "1":
$Z                                      set       CoMmAnDeChAmPs="$xci/spiArchimede$X"

$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=9;mt=0;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=8;mt=1;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=7;mt=2;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=6;mt=3;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=5;mt=4;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=4;mt=5;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=3;mt=6;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=2;mt=7;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=1;mt=8;$_____LChampsPara"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mr=0;mt=9;$_____LChampsPara"

$Z                                      unset     CoMmAnDeChAmPs
$Z                                      breaksw
$Z                            case      "2":
$Z                                      set       CoMmAnDeChAmPs="$xci/spiArchimede$X"
$Z                                      set       ArGsChAmPs="er=320;er2=-320;$_____LChampsPara"

$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=0;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=1;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=2;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=3;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=4;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=5;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=6;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=7;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=8;$ArGsChAmPs"
$Z                                      set       _____LChamps="$_____LChamps"" $CoMmAnDeChAmPs;mt=9;$ArGsChAmPs"

$Z                                      unset     ArGsChAmPs
$Z                                      unset     CoMmAnDeChAmPs
$Z                                      breaksw
$Z                            default:
$Z                                      EROR      "Le generateur de champs n'est pas reconnu."
$Z                                      breaksw
$Z                  endsw

$Z                  set                 _____LChamps=($_____LChamps)