#######################################################################################################################################
#                                                                                                                                     #
#         S I G L E   D U   ' CMAP '   ( G E N E R A T I O N )  :                                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CMAP.51.14.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            ZBuffer                       "$K_VIDE"
$Z                                      # Ce parametre destine a introduire un eventuel 'Z-Buffer' initial a ete introduit le         #
$Z                                      # 20030311091619 ('v $xiirv/.CMAP.71.13.$U ZBuffer').                                         #

$Z                  SETParam            _____InverserFond             $NEXIST
$Z                                      # Ce parametre a ete introduit le 20141222122440...                                           #

$Z                  if                  ($_____InverserFond == $EXIST) then
$Z                                      execRVB             $xci/complement$X   A=$xTV/FOND%s                                           \
$Z                                                                              R=$xTV/FOND%s                                           \
$Z                                                                                                                      $formatI
$Z                  else
$Z                  endif

$Z                  $xrv/particule.10$X np=$Nimages iterations=$Nparticules                                                             \
$Z                                      AXYZ=1 BXYZ=0.0                                                                                 \
$Z                                      LISTE_X=$xTV/COORDONNEES$COORD_X                                                                \
$Z                                      LISTE_Y=$xTV/COORDONNEES$COORD_Y                                                                \
$Z                                      LISTE_Z=$xTV/COORDONNEES$COORD_Z                                                                \
$Z                                      LISTE_RAYON=$_____Rayon                                                                         \
$Z                                      LISTE_ROUGE=$xTV/COULEUR$ROUGE                                                                  \
$Z                                      LISTE_VERTE=$xTV/COULEUR$VERTE                                                                  \
$Z                                      LISTE_BLEUE=$xTV/COULEUR$BLEUE                                                                  \
$Z                                      Lz=1000 ZOOM=0.50                                                                               \
$Z                                      isoles=FAUX Pajuster=VRAI Rpoints=4.0 chainer=FAUX                                              \
$Z                                      cubique=FAUX                                                                                    \
$Z                                      RVB=VRAI                                                                                        \
$Z                                      ROTATION_OX=-$pis4                                                                              \
$Z                                      ROTATION_OY=$Rotation_OY                                                                        \
$Z                                      ROTATION_OZ=-$pis4                                                                              \
$Z                                      fond=VRAI F=$xTV/FOND fond_dynamique=FAUX                                                       \
$Z                                      $ZBuffer                                                                                        \
$Z                                      R=$xTV/CMAP.1.                                                                                  \
$Z                                                                              $formatI

$Z                  SETParam            Premiere                      1
$Z                                      # Passage de 'set' a 'SET' le 20060221134450...                                               #

$Z                  set                 PremiereA=`$xci/nombres$X A="$K_VIDE" p=$Premiere d=$Premiere`

$X                  $xci/genere$X       RVB=VRAI postfixes_RVB=FAUX                                                                     \
$X                                      C='$xci/neutre$X                                                                                \
$X                                                   A=$xTV/CMAP.1.$PremiereA$%s                                                        \
$X                                                   R=$_____imageR$%s                                                                  \
$X                                                                                                                      $formatI'



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.