#######################################################################################################################################
#                                                                                                                                     #
#         F R O N T   D E   D I F F U S I O N   F R A C T A L  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRON.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____PasX                     2

$Z                  setParam            _____PasY                     2

$Z                  setParam            _____Seuil                    $GRIS_7

$Z                  Pal

$Z                  $xci/gauss$X                                                                                                        \
$Z                                      R=$xTV/GAUSS                                                                                    \
$Z                                                                                                                      $formatI

$Z                  $xci/transpose$X                                                                                                    \
$Z                                      A=$xiio/MIRE                                                                                    \
$Z                                                                                                  $format_Std                   |     \
$Z                  $xci/Sx$X                                                                                                           \
$Z                                                                                                  $format_Std                   |     \
$Z                  $xci/format.01$X                                                                                                    \
$Z                                      mode=0                                                                                          \
$Z                                                                                                  $format_Std                         \
$Z                                                                                                  $formatR_Pal                  |     \
$Z                  $xci/random.03$X                                                                                                    \
$Z                                      R=$xTV/RANDOM                                                                                   \
$Z                                                                                                                      $formatI

$Z                  $xci/init$X                                                                                                         \
$Z                                      n=$BLANC                                                                                        \
$Z                                      px=$_____PasX                                                                                   \
$Z                                      py=$_____PasY                                                                                   \
$Z                                      R=$xTV/GRILLE                                                                                   \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                                                                                                      $formatI

$Z                  $xci/and$X                                                                                                          \
$Z                                      A1=$xTV/RANDOM                                                                                  \
$Z                                      A2=$xTV/GRILLE                                                                                  \
$Z                                      R=$xTV/RANDOM                                                                                   \
$Z                                                                                                                      $formatI

$Z                  $xci/filtre.01$X                                                                                                    \
$Z                                      A=$xTV/RANDOM                                                                                   \
$Z                                      seuil=$_____Seuil                                                                               \
$Z                                      N=$xTV/GAUSS                                                                                    \
$Z                                      R=$xTV/FILTRE                                                                                   \
$Z                                                                                                                      $formatI

$Z                  set                 _____Translation=0.004

$Z                  $xci/move$X                                                                                                         \
$Z                                      A=$xTV/FILTRE                                                                                   \
$Z                                      yR=+$_____Translation                                                                           \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/move$X                                                                                                         \
$Z                                      yR=-$_____Translation                                                                           \
$Z                                      R=$_____Images                                                                                  \
$Z                                                                                                                      $formatI