#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   I M A G E S  :                                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000008/face.2/.CHUR.5.14.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  Pal

$Z                  setParam            _____FacteurR                 0.01

$Z                  setParam            _____RotationOX               $dpi

$Z                  setParam            _____RotationOY               0.0

$Z                  setParam            _____RotationOZ               0.0

$Z                  setParam            _____Vaxes                    "$K_VIDE"

$Z                  setParam            _____Zoom                     1.0

$Z                  set                 NombreX=`$CA $xTV/COORDONNEES$COORD_X | $WCl`
$Z                  set                 NombreY=`$CA $xTV/COORDONNEES$COORD_Y | $WCl`
$Z                  set                 NombreZ=`$CA $xTV/COORDONNEES$COORD_Z | $WCl`
#20220615105316____:$Z                  set                 Nombre=`$xcg/MAX3.01$X a=$NombreX b=$NombreY c=$NombreZ`                  #
$Z                  set                 Nombre=`$xcg/MIN3.01$X a=$NombreX b=$NombreY c=$NombreZ`

$Z                  set                 NombreNC=`$GRE "^titre=.*+churn=$NEXIST"'$' $Fanalyse | $WCl`
$Z                  set                 NombreC=`$GRE "^titre=.*+churn=$EXIST"'$' $Fanalyse | $WCl`
$Z                  set                 NombreNCpC=`calcul $NombreNC+$NombreC`

$Z                  echo                "nombre de clients traites....... = ""$Nombre"
$Z                  echo                "nombre de clients 'NON CHURNER's = +""$NombreNC"
$Z                  echo                "nombre de clients 'CHURNER's.... = +""$NombreC"

#20150611220011____:$Z                  if                  (    ($NombreNCpC != $Nombre)                                          \  #
#20150611220011____:$Z                                       ) then                                                                   #
$Z                                      # ATTENTION : l'ecriture du 'if(...)' precedent sur deux lignes est volontaire ; il permet,   #
$Z                                      # par la preseence du '\' en bout de ligne, d'eliminer ce test dans 'v $Falias_listG FiLeT3'. #
#20150611220011____:$Z                                                                                                                #
#20150611220011____:$Z                       echo                "ERREUR de decomptage : $NombreNC+$NombreC est different de $Nombre" #
#20150611220011____:$Z                  else                                                                                          #
#20150611220011____:$Z                  endif                                                                                         #
$Z                                      # La modification du 20150611220011 est destinee a faire disparaitre le message :             #
$Z                                      #                                                                                             #
$Z                                      #                   Too many )'s                                                              #
$Z                                      #                                                                                             #
$Z                                      # qui vient de la ligne suite qui n'est pas recuperee et il y a donc effectivement un         #
$Z                                      # desequilibre des parentheses...                                                             #

$Z                  set                 Part0=$Premiere
$Z                  set                 PartN=$Derniere

$Z                  Gen                 $xTV/ROTATION_OX              0.0                 $_____RotationOX    cubique=VRAI
$Z                  Gen                 $xTV/ROTATION_OY              0.0                 $_____RotationOY    cubique=VRAI
$Z                  Gen                 $xTV/ROTATION_OZ              0.0                 $_____RotationOZ    cubique=VRAI

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      iterations=$Nombre                                                                              \
$Z                                      np=$NimagesA                                                                                    \
$Z                                      AXYZ=1 BXYZ=0                                                                                   \
$Z                                      LISTE_X=$xTV/COORDONNEES$COORD_X                                                                \
$Z                                      LISTE_Y=$xTV/COORDONNEES$COORD_Y                                                                \
$Z                                      LISTE_Z=$xTV/COORDONNEES$COORD_Z                                                                \
$Z                                      Ar=$_____FacteurR                                                                               \
$Z                                      LISTE_RAYON=$xTV/COORDONNEES.r                                                                  \
$Z                                      LISTE_ROUGE=$xTV/COULEURS$ROUGE                                                                 \
$Z                                      LISTE_VERTE=$xTV/COULEURS$VERTE                                                                 \
$Z                                      LISTE_BLEUE=$xTV/COULEURS$BLEUE                                                                 \
$Z                                      ROTATION_OX=$xTV/ROTATION_OX                                                                    \
$Z                                      ROTATION_OY=$xTV/ROTATION_OY                                                                    \
$Z                                      ROTATION_OZ=$xTV/ROTATION_OZ                                                                    \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      Lz=1000                                                                                         \
$Z                                      Vaxes=VRAI $_____Vaxes                                                                          \
$Z                                      N_au_carre=FAUX                                                                                 \
$Z                                      R=$_____images.                                                                                 \
$Z                                                                                                                      $formatI