#######################################################################################################################################
#                                                                                                                                     #
#         S P I R A L E   C A R R E E  :                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.SPHE.Z1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230117102619).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NPoints                  10000

$Z                  setParam            _____DLambda                  0
$Z                                      # Parametre introduit le 20230123104342 pour ameliorer 'v $xiirs/BKLN.Z1' (en notant que      #
$Z                                      # valeur par defaut garantit la compatibilite anterieure...).                                 #

$Z                  set                 PremierPoint=1

$Z                  set                 ArGuMeNtS_spirale="$K_VIDE"
$Z                  set                 ArGuMeNtS_spirale="$ArGuMeNtS_spirale"" premiere=$PremierPoint"
$Z                  set                 ArGuMeNtS_spirale="$ArGuMeNtS_spirale"" derniere=$_____NPoints"
$Z                  set                 ArGuMeNtS_spirale="$ArGuMeNtS_spirale"" coordonnees_normalisees=VRAI"

$Z                  FilSTmpB            FLiStE_PoInTs_SP

$Z                  $xci/valeurs_spir$X                                                                                                 \
$Z                                      $ArGuMeNtS_spirale                                                                              \
$Z                                      PX=1 PY=0                                                                                       \
$Z                                                                                        >   $FLiStE_PoInTs_SP$COORD_X

$Z                  $xci/valeurs_spir$X                                                                                                 \
$Z                                      $ArGuMeNtS_spirale                                                                              \
$Z                                      PX=0 PY=1                                                                                       \
$Z                                                                                        >   $FLiStE_PoInTs_SP$COORD_Y

$Z                  set                 ArGuMeNtS_interpolation="$K_VIDE"
$Z                  set                 ArGuMeNtS_interpolation="$ArGuMeNtS_interpolation"" LISTE_X=$FLiStE_PoInTs_SP$COORD_X"
$Z                  set                 ArGuMeNtS_interpolation="$ArGuMeNtS_interpolation"" LISTE_Y=$FLiStE_PoInTs_SP$COORD_Y"
$Z                  set                 ArGuMeNtS_interpolation="$ArGuMeNtS_interpolation"" LISTE_Z=0"
$Z                  set                 ArGuMeNtS_interpolation="$ArGuMeNtS_interpolation"" diviseur_lambda=$_____DLambda"

$Z                  FilSTmpB            FLiStE_PoInTs_SPI

$Z                  $xrv/interpole.01$X ne=0                                                                                            \
$Z                                      $ArGuMeNtS_interpolation                                                                        \
$Z                                      PX=1 PY=0                                                                                       \
$Z                                                                                                  >  $FLiStE_PoInTs_SPI$COORD_X

$Z                  $xrv/interpole.01$X ne=0                                                                                            \
$Z                                      $ArGuMeNtS_interpolation                                                                        \
$Z                                      PX=0 PY=1                                                                                       \
$Z                                                                                                  >  $FLiStE_PoInTs_SPI$COORD_Y

#20230123104342____:$Z                  $PAST               $FLiStE_PoInTs_SP$COORD_X $FLiStE_PoInTs_SP$COORD_Y              |     \  #
#20230123104342____:$Z                  $AW                 ' { print "'"$UNDEF $UNDEF "'" $1 " " $2 "'" Z=$UNDEF "'" } '          \  #
#20230123104342____:$Z                                                                                             >> $FLiStE_PoInTs  #

$Z                  $PAST               $FLiStE_PoInTs_SPI$COORD_X $FLiStE_PoInTs_SPI$COORD_Y                                     |     \
$Z                  $AW                 ' { print "'"$UNDEF $UNDEF "'" $1 " " $2 "'" Z=$UNDEF "'" } '                                   \
$Z                                                                                                  >> $FLiStE_PoInTs

$Z                  FilSTmpE            FLiStE_PoInTs_SP