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

$Z                                      if                  ($?GrAiNe == $NEXIST) then
$Z                                                          set                 GrAiNe=$_____Graine0
$Z                                      else
$Z                                      endif

$Z                                      $xci/fract_2D.01$X  graine=$GrAiNe                                                              \
$Z                                                          iterations=$_____Iterations                                                 \
$Z                                                          standard=FAUX                                                               \
$Z                                                          renormaliser=VRAI origine=0 extremite=$LExTrEmItE[$NuMeRo]                  \
$Z                                                          R=$PImAgE                                                                   \
$Z                                                                                                                      $formatI

$Z                                      @                   GrAiNe = $GrAiNe + $_____GraineP