#######################################################################################################################################
#                                                                                                                                     #
#         P R O D U I T   D E   H O R N E R   D U   Q U A T R I E M E   D E G R E   D E   D E U X   I M A G E S  :                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HORN.31.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20181121150904).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                                      if                  ($?Mt == $NEXIST) then
$Z                                                          set                 Mt=$_____Mt0
$Z                                      else
$Z                                      endif

$Z                                      $xci/spiArchimede$X mr=16 mt=$Mt                                                                \
$Z                                                          renormaliser=VRAI origine=0 extremite=$LExTrEmItE[$NuMeRo]                  \
$Z                                                          standard=FAUX                                                               \
$Z                                                          R=$PImAgE                                                                   \
$Z                                                                                                                      $formatI

$Z                                      @                   Mt = $Mt + $_____MtP