#######################################################################################################################################
# #
# G E N E R A T I O N D E S L I S T E S D E S C O U L E U R S { R , V , B } : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.c.62.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____TModulo 1
$Z # Introduit le 20100103110320 pour 'v $xiirv/PRIM.91'... #
$Z setParam _____RandomTLS $NEXIST
$Z setParam _____GraineT 1789
$Z setParam _____GraineL 1947
$Z setParam _____GraineS 2001
$Z $DELETE $xTV/COULEURS$TEINT
$Z $DELETE $xTV/COULEURS$LUMIN
$Z $DELETE $xTV/COULEURS$SATUR
$Z $DELETE $xTV/COULEURS$Y
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z $DELETE $xTV/PROPAGATION_COULEURS
$Z # Introduit le 20050815125510... #
$Z # #
$Z # Aux environs du 20200314120741, en voulant regenerer 'v $xiak/REFM.Y1$R16', je me suis #
$Z # rendu compte que detruire 'PROPAGATION_COULEURS' etait alors completement stupide pour #
$Z # cette animation de propagation d'une epidemie. J'ai vu de plus que cet 'include' ne #
$Z # servait alors a rien. Il n'est donc pas utilise pour 'v $xiak/REFM.Y1$R16'... #
$Z @ TeinteMagenta = $GRIS_7
$Z @ TeinteCyan = $GRIS_4 + $GRIS_8
$Z IfBasic ($_____RandomTLS == $NEXIST) ThenBasic
$Z # Test introduit le 20241112112409... #
$Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \
$Z vD=$TeinteMagenta vA=`calculINS $_____TModulo*$TeinteCyan` \
$Z modulo=VRAI \
$Z origine=$TeinteMagenta extremite=$TeinteCyan \
$Z cubique=FAUX \
$Z entiers=VRAI \
$Z > $xTV/COULEURS$TEINT
$Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \
$Z vD=$GRIS_4 vA=$GRIS_4 \
$Z cubique=FAUX \
$Z entiers=VRAI \
$Z > $xTV/COULEURS$LUMIN
$Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \
$Z vD=$GRIS_8 vA=$GRIS_8 \
$Z cubique=FAUX \
$Z entiers=VRAI \
$Z > $xTV/COULEURS$SATUR
$Z ElseBasic
$Z $xci/valeurs_alea$X premiere=$Part0 derniere=$PartN \
$Z inferieur=$GRIS_0 superieur=$GRIS_8 \
$Z graine=$_____GraineT \
$Z entiers=VRAI message_borne_superieure_entiere=FAUX \
$Z > $xTV/COULEURS$TEINT
$Z $xci/valeurs_alea$X premiere=$Part0 derniere=$PartN \
$Z inferieur=$GRIS_4 superieur=$GRIS_4 \
$Z graine=$_____GraineL \
$Z entiers=VRAI message_borne_superieure_entiere=FAUX \
$Z > $xTV/COULEURS$LUMIN
$Z $xci/valeurs_alea$X premiere=$Part0 derniere=$PartN \
$Z inferieur=$GRIS_8 superieur=$GRIS_8 \
$Z graine=$_____GraineS \
$Z entiers=VRAI message_borne_superieure_entiere=FAUX \
$Z > $xTV/COULEURS$SATUR
$Z EndifBasic
$Z $xrv/HLS_RVB.01$X \
$Z ne=$Npart \
$Z LISTE_HUE=$xTV/COULEURS$TEINT \
$Z LISTE_LUMINANCE=$xTV/COULEURS$LUMIN \
$Z LISTE_SATURATION=$xTV/COULEURS$SATUR \
$Z pR=1 pV=0 pB=0 \
$Z > $xTV/COULEURS$ROUGE
$Z # ATTENTION : j'ai decouvert le 20051019103924 que le 'ne=$Npart' manquait a cette date, #
$Z # 'v $xivP_d09_f2/.REFL.w.53.$U 20051019103503' montrant que cette anomalie #
$Z # semblait ne perturber que '$LACT16'... #
$Z $xrv/HLS_RVB.01$X \
$Z ne=$Npart \
$Z LISTE_HUE=$xTV/COULEURS$TEINT \
$Z LISTE_LUMINANCE=$xTV/COULEURS$LUMIN \
$Z LISTE_SATURATION=$xTV/COULEURS$SATUR \
$Z pR=0 pV=1 pB=0 \
$Z > $xTV/COULEURS$VERTE
$Z # ATTENTION : j'ai decouvert le 20051019103924 que le 'ne=$Npart' manquait a cette date, #
$Z # 'v $xivP_d09_f2/.REFL.w.53.$U 20051019103503' montrant que cette anomalie #
$Z # semblait ne perturber que '$LACT16'... #
$Z $xrv/HLS_RVB.01$X \
$Z ne=$Npart \
$Z LISTE_HUE=$xTV/COULEURS$TEINT \
$Z LISTE_LUMINANCE=$xTV/COULEURS$LUMIN \
$Z LISTE_SATURATION=$xTV/COULEURS$SATUR \
$Z pR=0 pV=0 pB=1 \
$Z > $xTV/COULEURS$BLEUE
$Z # ATTENTION : j'ai decouvert le 20051019103924 que le 'ne=$Npart' manquait a cette date, #
$Z # 'v $xivP_d09_f2/.REFL.w.53.$U 20051019103503' montrant que cette anomalie #
$Z # semblait ne perturber que '$LACT16'... #
$Z $DELETE $xTV/COULEURS$TEINT
$Z $DELETE $xTV/COULEURS$LUMIN
$Z $DELETE $xTV/COULEURS$SATUR
$Z $DELETE $xTV/COULEURS$Y