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

$Z                  $DELETE             $xTV/FOND*                                                                      >& $nul

$Z                  setParam            _____Palettes                 $xiP/gris.01

$Z                  setParam            _____Tx                       0

$Z                  setParam            _____Ty                       0

$Z                  setParam            _____A_ZBuffer                -1000

$Z                  setParam            _____B_ZBuffer                0

$Z                  if                  (-e $_____IFond) then
$Z                                      $xci/vraies_C$X     A=$_____IFond                                                               \
$Z                                                          p=$_____Palettes                                                            \
$Z                                                          RVB=VRAI                                                                    \
$Z                                                          R=$xTV/FOND                                                                 \
$Z                                                                                                                      $formatI
$Z                                      # Le passage en vraies couleurs a ete autorise le 20030311135740...                           #
$Z                  else
$Z                                      # La possibilite d'introduire directement un fond en vraies couleurs a ete introduite         #
$Z                                      # le 20030311135740...                                                                        #
$Z                                      if   ((! -e $_____IFond$ROUGE) || (! -e $_____IFond$ROUGE) || (! -e $_____IFond$ROUGE)) then
$Z                                           EROR "Le fond n'existe ni en fausses, ni en vraies couleurs."
$Z                                      else
$Z                                      endif
$Z                  endif

$X                  $xci/genere$X       RVB=VRAI postfixes_RVB=FAUX                                                                     \
$X                                      C='$xci/move$X                                                                                  \
$X                                                   A=$xTV/FOND$%s                                                                     \
$X                                                   thR=VRAI xR=$_____Tx                                                               \
$X                                                   tvR=VRAI yR=$_____Ty                                                               \
$X                                                   R=$xTV/FOND$%s                                                                     \
$X                                                                                                  $formatI'

$Z                  set                 ZBuffer="fondZ=VRAI"

$Z                  if                  ($?_____ZBuffer == $NEXIST) then
$Z                                      $xci/luminance.01$X                                                                             \
$Z                                                          AR=$xTV/FOND$ROUGE                                                          \
$Z                                                          AV=$xTV/FOND$VERTE                                                          \
$Z                                                          AB=$xTV/FOND$BLEUE                                                          \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/acces$X                                                                                    \
$Z                                                          convertir=VRAI                                                              \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/normalise.01$X                                                                             \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/scale$X                                                                                    \
$Z                                                          standard=FAUX                                                               \
$Z                                                          a=$_____A_ZBuffer                                                           \
$Z                                                          b=$_____B_ZBuffer                                                           \
$Z                                                          R=$xTV/FOND_Z                                                               \
$Z                                                                                                                      $formatI

$Z                                      set                 ZBuffer="$ZBuffer"" imageZF=$xTV/FOND_Z"
$Z                  else
$Z                                      # La possibilite d'introduire directement un 'Z-Buffer' a ete introduite le 20030313104724.   #
$Z                                      set                 ZBuffer="$ZBuffer"" imageZF=$_____ZBuffer"
$Z                  endif