#######################################################################################################################################
#                                                                                                                                     #
#         T R A C E   D ' U N E   S P I R A L E   C A R R E E  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIAL.39.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240517100244).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____SpiraleR                 $GRIS_8
$Z                  setParam            _____SpiraleV                 $GRIS_8
$Z                  setParam            _____SpiraleB                 $GRIS_8
$Z                  setParam            _____SpiraleRAYON             0.004
$Z                  setParam            _____DistanceMini             0.002

$Z                  IfBasic             ($?_____Spirale == $NEXIST) ThenBasic
$Z                            execRVB   $xci/init$X         niveau=$NOIR                                                                \
$Z                                                          R=$_____PIAL_n9.5%s                                                         \
$Z                                                                                                                      $formatI
$Z                  ElseBasic
$Z                                      $CA                 $_____Spirale                                                         |     \
$Z                                      $SE                 -e 's/^.*(\([^)]*\)).*$/\1/'                                          |     \
$Z                                      $R                  "," " "                                                                     \
$Z                                                                                                            > $_____Spirale.XYZ

$Z                                      $CA                 $_____Spirale.XYZ                                                     |     \
$Z                                      $AW                 ' { print $1 } '                                                            \
$Z                                                                                                            > $_____Spirale$COORD_X

$Z                                      $CA                 $_____Spirale.XYZ                                                     |     \
$Z                                      $AW                 ' { print $2 } '                                                            \
$Z                                                                                                            > $_____Spirale$COORD_Y

$Z                                      set                 Npoints__X=`$CA $_____Spirale$COORD_X | $WCl`
$Z                                      set                 Npoints__Y=`$CA $_____Spirale$COORD_Y | $WCl`
$Z                                      set                 Npoints_XY=`$xcg/MIN2.01$X x=$Npoints__X y=$Npoints__Y`

$Z                                      $xrv/particule.10$X npoints=$Npoints_XY                                                         \
$Z                                                          LISTE_X=$_____Spirale$COORD_X                                               \
$Z                                                          LISTE_Y=$_____Spirale$COORD_Y                                               \
$Z                                                          LISTE_Z=0.5                                                                 \
$Z                                                          LISTE_ROUGE=$_____SpiraleR                                                  \
$Z                                                          LISTE_VERTE=$_____SpiraleV                                                  \
$Z                                                          LISTE_BLEUE=$_____SpiraleB                                                  \
$Z                                                          LISTE_RAYON=$_____SpiraleRAYON                                              \
$Z                                                          isoles=FAUX chainer=VRAI                                                    \
$Z                                                          ajuster_points=VRAI equidistance=VRAI                                       \
$Z                                                          distance_minimale=$_____DistanceMini                                        \
$Z                                                          Lz=1000                                                                     \
$Z                                                          ZOOM=1                                                                      \
$Z                                                          couronne=1                                                                  \
$Z                                                          N_au_carre=VRAI                                                             \
$Z                                                          editer_extrema_hors=FAUX                                                    \
$Z                                                          editer_mauvais_encadrement_niveaux_interpoles=FAUX                          \
$Z                                                          chiffres=0                                                                  \
$Z                                                          R=$_____PIAL_n9.5                                                           \
$Z                                                                                                                      $formatI
$Z                  EndifBasic

$Z                                      # Definition des differentes images :                                                         #
$Z                                      #                                                                                             #
$Z                                      #                   $_____PIAL_n9.2     Structure paradoxale ou labyrinthe.                   #
$Z                                      #                                                                                             #
$Z                                      #                   $_____PIAL_n9.3     Decimales directement issues de 'v $xci/message$K'.   #
$Z                                      #                   $_____PIAL_n9.4     Decimales epaissies et enjolivees.                    #
$Z                                      #                                                                                             #
$Z                                      #                   $_____PIAL_n9.5     Spirale Carree.                                       #
$Z                                      #                   $_____PIAL_n9.6     Spirale Carree derriere les decimales.                #
$Z                                      #                                                                                             #



Copyright © Jean-François COLONNA, 2024-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2024-2024.