#######################################################################################################################################
#                                                                                                                                     #
#         L E G E N D E   D ' U N E   D O U B L E   H E L I C E  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HELI.52.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240427100037).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____LargeurC                 $G_BlocAlphabet0
$Z                                      # Les caracteres de la bibliotheque 0 sont inscrits dans des blocs carres 6x6...              #

#20240427102744____:$Z                  setParam            _____LDimension               0.0030                                      #
$Z                  setParam            _____LDimension               0.0020

#20240427102744____:$Z                  setParam            _____LRayon                   0.0040                                      #
$Z                  setParam            _____LRayon                   0.0020

$Z                  setParam            _____LRougeP                  $GRIS_5
$Z                  setParam            _____LVerteP                  $GRIS_3
$Z                  setParam            _____LBleueP                  $GRIS_0

$Z                  setParam            _____LRougeE                  $GRIS_1
$Z                  setParam            _____LVerteE                  $GRIS_5
$Z                  setParam            _____LBleueE                  $GRIS_3

$Z                  @                   DeMi_LaRgEuR = $_____LargeurC / 2

$Z                  @                   LLeGeNdE_P = `echo "$_____Legende_P" | $WCc`
$Z                  @                   LLeGeNdE_P = $LLeGeNdE_P - 1
$Z                  set                 LCoOrDoNnEe_PX=`calcul $LCoOrDoNnEe_PX-(($LLeGeNdE_P*$_____KChiffres)*$DeMi_LaRgEuR)`

$Z                  $xrd/message.01$vv$Z                                                                                                \
$Z                                      $_____ImageR                                                                                    \
$Z                                      "$_____Legende_P"                                                                               \
$Z                                      $_____ImageRL                                                                                   \
$Z                                      $LCoOrDoNnEe_PX $LCoOrDoNnEe_PY $LCoOrDoNnEe_PZ                                                 \
$Z                                      $_____LDimension $_____LRayon                                                                   \
$Z                                      $_____LRougeP $_____LVerteP $_____LBleueP                                                       \
$Z                                      $EXIST

$Z                  @                   LLeGeNdE_E = `echo "$_____Legende_E" | $WCc`
$Z                  @                   LLeGeNdE_E = $LLeGeNdE_E - 1
$Z                  set                 LCoOrDoNnEe_EX=`calcul $LCoOrDoNnEe_EX-(($LLeGeNdE_E*$_____KChiffres)*$DeMi_LaRgEuR)`

$Z                  $xrd/message.01$vv$Z                                                                                                \
$Z                                      $_____ImageRL                                                                                   \
$Z                                      "$_____Legende_E"                                                                               \
$Z                                      $_____ImageRL                                                                                   \
$Z                                      $LCoOrDoNnEe_EX $LCoOrDoNnEe_EY $LCoOrDoNnEe_EZ                                                 \
$Z                                      $_____LDimension $_____LRayon                                                                   \
$Z                                      $_____LRougeE $_____LVerteE $_____LBleueE                                                       \
$Z                                      $EXIST