#######################################################################################################################################
#                                                                                                                                     #
#         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.21.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20181121120502).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                                      if                  ($?Ct == $NEXIST) then
$Z                                                          set                 Ct=$_____Ct0
$Z                                      else
$Z                                      endif

$Z                                      $xci/trefle$X       ct=$Ct                                                                      \
$Z                                                          renormaliser=VRAI origine=0 extremite=$LExTrEmItE[$NuMeRo]                  \
$Z                                                          standard=FAUX                                                               \
$Z                                                          R=$PImAgE                                                                   \
$Z                                                                                                                      $formatI

$Z                                      @                   Ct = $Ct + $_____CtP