#######################################################################################################################################
#                                                                                                                                     #
#         R A Y O N S   E T   C O U L E U R S   A L E A T O I R E S  :                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PART.4.15.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        $xci/valeurs_alea$X premiere=1 derniere=$NpartS2                                                                              \
$Z                            graine=1789 inf=$_____RayonI sup=$_____RayonS                                                             \
$Z                            entiers=FAUX                                                                                              \
$Z                            | $AW ' { print $1 "\n" $1 } '                                                                            \
$Z                                                                                                  > $xTV/RAYON.1
$Z        decaleC             $xTV/RAYON.1                  1
$Z
$Z        @                   NOIRp = $NOIR + 1
$Z

$Z        set                 Graine=314

$X        $xci/genere$X       RVB=VRAI postfixes_RVB=FAUX                                                                               \
$X                            corriger_certaines_fautes=FAUX                                                                            \
$X                            C='$xci/valeurs_alea$X                                                                                    \
$X                                         premiere=1 derniere=$NpartS2                                                                 \
$X                                         graine=$Graine                                                                               \
$X                                         inf=$NOIRp sup=$BLANC                                                                        \
$X                                         entiers=VRAI                                                                                 \
$X                                         message_borne_superieure_entiere=FAUX                                                  |     \
$X                               $AW                                                                                                    \
$X                                         '"'"' { print $1 "\n" $1 } '"'"'                                                             \
$X                                                                                                  > $xTV/COULEUR$%s             ;     \
$X                               @                   Graine = $Graine + 271'
$X        $xci/genere$X       RVB=VRAI postfixes_RVB=FAUX                                                                               \
$X                            C='decaleC             $xTV/COULEUR$%s 1'