#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   L ' A C I N U S   P U L M O N A I R E  :                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.ACIN.Z1.6.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160222112009).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                                      if                  ($_____MixerData1_Data2 == $EXIST) then
$Z                                                          set                 FoNd_Data1="$K_VIDE"
$Z                                                          set                 FoNd_Data2="$K_VIDE"
$Z                                      else
$Z                                                          set                 FoNd_Data1="fond=VRAI F=$xTV/MIRE_Data1"
$Z                                                          set                 FoNd_Data2="fond=VRAI F=$xTV/MIRE_Data2"
$Z                                      endif

$Z                                      set                 Npart=`$CA $FPoInTs$COORD_X | $WCl`
$Z                                      # Introduit le 20160222115642 a cause de 'v $xiird/.ACIN.Z1.4.$U Nparticules_'...             #

$Z        set       MaximumL__L=`$CA $FDoNnEeSL.FLength___ | $xrv/extrema.01$X ne=0 fichier== | $GRE '^maximum=' | $SE -e 's/^.*=//'`
$Z                                      set                 ZoOm=`calcul $_____Zoom*($MaximumL__L/$MaximumL____)`
$Z                                      set                 RaYoN=`calcul ($_____mRayon+$_____MRayon)/2`
$Z                                      # Ainsi le rapport de zoom est fonction de la longueur des branches, de meme donc, de facon   #
$Z                                      # implicite, le rayon...                                                                      #

$Z                                      $xrv/particule.10$X np=1 iterations=$Npart                                                      \
$Z                                                          $ArGuMeNtS                                                                  \
$Z                                                          LISTE_X=$FPoInTs$COORD_X                                                    \
$Z                                                          LISTE_Y=$FPoInTs$COORD_Y                                                    \
$Z                                                          LISTE_Z=$FPoInTs$COORD_Z                                                    \
$Z                                                          LISTE_NIVEAU=$FPoInTs$_____PostFixeData1$NIVEAU                             \
$Z                                                          p=$_____PaletteData1                                                        \
$Z                                                          LISTE_RAYON=$RaYoN                                                          \
$Z                                                          chainer=FAUX                                                                \
$Z                                                          ZOOM=$ZoOm                                                                  \
$Z                                                          $FoNd_Data1                                                                 \
$Z                                                          R=$_____ImageR$_____PostFixeData1.$TeMpS                                    \
$Z                                                          chiffres=0                                                                  \
$Z                                                                                                            $formatI

$Z                                      $xrv/particule.10$X np=1 iterations=$Npart                                                      \
$Z                                                          $ArGuMeNtS                                                                  \
$Z                                                          LISTE_X=$FPoInTs$COORD_X                                                    \
$Z                                                          LISTE_Y=$FPoInTs$COORD_Y                                                    \
$Z                                                          LISTE_Z=$FPoInTs$COORD_Z                                                    \
$Z                                                          LISTE_NIVEAU=$FPoInTs$_____PostFixeData2$NIVEAU                             \
$Z                                                          p=$_____PaletteData2                                                        \
$Z                                                          LISTE_RAYON=$RaYoN                                                          \
$Z                                                          chainer=FAUX                                                                \
$Z                                                          ZOOM=$ZoOm                                                                  \
$Z                                                          $FoNd_Data2                                                                 \
$Z                                                          R=$_____ImageR$_____PostFixeData2.$TeMpS                                    \
$Z                                                          chiffres=0                                                                  \
$Z                                                                                                            $formatI

$Z                                      if                  ($_____MixerData1_Data2 == $EXIST) then
$Z                                                          execRVB  "$xci/scroll$X                                                     \
$Z                                                                                        A=$_____ImageR$_____PostFixeData1.$TeMpS%s    \
$Z                                                                                        toreX=FAUX toreY=FAUX                         \
$Z                                                                                        trX=+0.5   trY=0                              \
$Z                                                                                                                      $formatI  |     \
$Z                                                                    $xci/scroll$X                                                     \
$Z                                                                                        toreX=FAUX toreY=FAUX                         \
$Z                                                                                        trX=-0.5   trY=0                              \
$Z                                                                                        R=$_____ImageR$_____PostFixeData1.1.$TeMpS%s  \
$Z                                                                                                                      $formatI"

$Z                                                          execRVB  "$xci/scroll$X                                                     \
$Z                                                                                        A=$_____ImageR$_____PostFixeData2.$TeMpS%s    \
$Z                                                                                        toreX=FAUX toreY=FAUX                         \
$Z                                                                                        trX=-0.5   trY=0                              \
$Z                                                                                                                      $formatI  |     \
$Z                                                                    $xci/scroll$X                                                     \
$Z                                                                                        toreX=FAUX toreY=FAUX                         \
$Z                                                                                        trX=+0.5   trY=0                              \
$Z                                                                                        R=$_____ImageR$_____PostFixeData2.1.$TeMpS%s  \
$Z                                                                                                                      $formatI"

$Z                                                          execRVB   $xci/or_03$X                                                      \
$Z                                                                                   A1=$_____ImageR$_____PostFixeData1.1.$TeMpS%s      \
$Z                                                                                   A2=$_____ImageR$_____PostFixeData2.1.$TeMpS%s      \
$Z                                                                                   A3=$xTV/MIRE_Data1_Data2%s                         \
$Z                                                                                   R=$_____ImageR$_____PostFixeData1_Data2.$TeMpS%s   \
$Z                                                                                                                      $formatI
$Z                                      # Le mixage entre 'PO2' et 'CV' a ete introduit le 20160527161613...                          #
$Z                                      else
$Z                                      endif