#######################################################################################################################################
#                                                                                                                                     #
#         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.Y1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20160222104825).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SformatI

$Z                  Std

$Z                  $xci/histogramme$X  A=$xiio/MIRE                                                                                    \
$Z                                      histogramme_seul=VRAI                                                                           \
$Z                                      renormaliser_hauteur_maximum=FAUX                                                               \
$Z                                      hauteur_mire=2                                                                                  \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/Sx$X                                                                                                           \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/format.01$X                                                                                                    \
$Z                                      mode=0                                                                                          \
$Z                                      R=$xTV/MIRE_Data1                                                                               \
$Z                                                                                                  $sformatIR
$Z                                      # Le "mode=0" est destine a ce qu'il n'y ait pas de lisere au-dessous de la mire...           #

$Z                  $xci/histogramme$X  A=$xiio/MIRE                                                                                    \
$Z                                      histogramme_seul=VRAI                                                                           \
$Z                                      renormaliser_hauteur_maximum=FAUX                                                               \
$Z                                      hauteur_mire=2                                                                                  \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/format.01$X                                                                                                    \
$Z                                      mode=0                                                                                          \
$Z                                      R=$xTV/MIRE_Data2                                                                               \
$Z                                                                                                  $sformatIR
$Z                                      # Le "mode=0" est destine a ce qu'il n'y ait pas de lisere au-dessus de la mire...            #

$Z                  RformatI

$Z                  $xci/vraies_C$X     A=$xTV/MIRE_Data1                                                                               \
$Z                                      p=$_____PaletteData1                                                                            \
$Z                                      R=$xTV/MIRE_Data1                                                                               \
$Z                                                                                                  $formatI

$Z                  $xci/vraies_C$X     A=$xTV/MIRE_Data2                                                                               \
$Z                                      p=$_____PaletteData2                                                                            \
$Z                                      R=$xTV/MIRE_Data2                                                                               \
$Z                                                                                                  $formatI

$Z                  execRVB             $xci/or_02$X        A1=$xTV/MIRE_Data1%s                                                        \
$Z                                                          A2=$xTV/MIRE_Data2%s                                                        \
$Z                                                          R=$xTV/MIRE%s                                                               \
$Z                                                                                                  $formatI

$Z                  source              $xrd/graph.01$vv$Y
$Z                  G_Init

$Z                  set                 Cursor_RAYON=0.005
$Z                  set                 Echelle_K=$_____G_K

$Z                  set                 CoOrDoNnEeX=0.5
$Z                  G_Cursor1           $CoOrDoNnEeX 0.775 $Origine_COORD_Z
$Z                  G_CentreX           `G_Message "$_____NomData1"`
$Z                  G_Cursor1           $CoOrDoNnEeX 0.200 $Origine_COORD_Z
$Z                  G_CentreX           `G_Message "$_____NomData2"`

$Z                  G_Genere            $xTV/MIRE fond=VRAI F=$xTV/MIRE