Discussion :

[aharel]

Bonjour,

Je cherche une solution pour générer de manière aléatoire des couleurs.
Pour le moment j'ai codé un truc rapide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  MaCouleur := clBlack+Random(clWhite);

Mais pas forcément satisfaisant.
En fait, je voudrais que certaines couleurs soient exclues du tirage comme par exemple le blanc, le gris et le noir.

Si quelqu'un a une suggestion...

[e-ric]

Salut

Si le nombre de couleurs n'est pas trop important, places-les dans un tableau et fais un tirage aléatoire sur l'indice du tableau.

cdlt

[aharel]

C'est effectivement une solution, mais je ne maitrise pas nécessairement le nombre de couleurs que je devrait générer. Potentiellement une bonne centaine.

[guillemouze]

tu re-tire tant que ta couleur est interdite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
repeat
  MaCouleur := clBlack+Random(clWhite);
until not IsCouleurInterdite(MaCouleur);

avec une fonction du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
function IsCouleurInterdite(ACouleur: TColor): Boolean;
begin
  Result :=  (ACouleur <> clBlack) or
                (ACouleur <> clWhite) or
                ... or
                ( (GetRValue(ACouleur) = GetGValue(ACouleur)) and (GetRValue(ACouleur) = GetBValue(ACouleur)) {gris});
end;

[aharel]

Effectivement la solution me semble bien.
Il me reste un petit détail, je voudrais en fait que les couleurs tirées au sort ne soient pas trop sombres car elles me servent comme couleur de fond pour un texte qui lui sera noir. Or noir sur fond marron foncé, c'est difficilement lisible.

[e-ric]

un peu de bidouille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
TColorComp = record
   case boolean of
   False : Valeur : Integer;
   True : Composantes: array[0..4] of byte;
   end;
end;

tu affectes la couleur dans Valeur et tu as la décomposition en RGB dans le tableau Composantes, je te laisse retrouver les corrrespondances (manque de temps et pas de Delphi au boulot), tu satures chaque composante en ajoutant 4 par exemple, ce qui te rapproche du blanc et donc éclaircit les couleurs.

@+

[aharel]

J'ai trouvé la solution pour générer des couleurs satisfaisantes.
Je passe un paramètre en entrée de ma fonction, la couleur générée estensuite mélangée avec cette couleur en paramètre.
Ca me permet d'obtenir des couleurs dans une teinte donnée. Si je passe en paramètre la couleur clWhite, j'obtiens des couleurs pastel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
  //Mixage de la couleur tirée au sort avec la couleur passée en paramètre
  l_red := (l_red + GetRValue(pMixColor)) div 2;
  l_green := (l_green + GetGValue(pMixColor)) div 2;
  l_blue := (l_blue + GetBValue(pMixColor)) div 2;
 
  Result := RGB(l_red, l_green,l_blue);

[e-ric]

Ma réponse (l'ajout de 4) du dessus est bancale, désolé, elle ne tient pas compte des dépassement de capacité.
Il suffit d'appliquer un masque avec un OR :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  ...
  l_red := l_red OR 128;
  l_green := l_green OR 128;
  l_blue := l_blue OR 128;
  ...

Cela force le bit de plus fort poids à 1 s'il ne l'est pas déjà, auquel cas la couleur est sans doute déjà assez claire.

@+

[guillemouze]

Sinon, tu peux toujours passer ta couleur en TLS, et vérifier que la luminosité est insuffisante, auquel cas tu l'augmente et la reconvertit en RGB.
Je crois que GR32 gère les conversions RVB <-> TLS

[niocco]

une couleur claire sera une couleur dont les 3 composantes R G et B se rapprochent de 255. ( blanc: 255, 255, 255 ).
partant de la il suffirait de définir un seuil en dessous duquel on considère une couleur trop sombre ( pour un background je choisirais une valeur assez elevée style 190 )

Du coup :

monSeuil := 190;
maxColor := 255;

myColor := RGB( random( monSeuil, maxColor ), random( monSeuil, maxColor ), random( monSeuil, maxColor ));

[guillemouze]

une couleur claire sera une couleur dont les 3 composantes R G et B se rapprochent de 255. ( blanc: 255, 255, 255 ).
partant de la il suffirait de définir un seuil en dessous duquel on considère une couleur trop sombre ( pour un background je choisirais une valeur assez elevée style 190 )

Pas vraiment, c'est l'ensemble des composantes qui définit si la couleur est claire. Par exemple, clAqua ($ffff00) est une couleur claire, et pourtant sa composante rouge est 0 !

[Gilbert Geyer]

Bonjour,

Guillemouze : Pas vraiment, c'est l'ensemble des composantes qui définit si la couleur est claire. Par exemple, clAqua ($ffff00) est une couleur claire, et pourtant sa composante rouge est 0 !

Exact, et clAqua converti en sa nuance de gris c'est environ kif-kif à la luminosité soit un gris de (255 + 255 + 0) div 3 = 170 soit du RGB(170,170,170) d'où un seuil de 170.

Ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
function clAleatoireFond(const monSeuil: byte; CouleurInterdite: tColor): tColor;
var Gris, R, G, B: integer;
begin
  repeat
    R := random(256); G := random(256); B := random(256);
    Gris := (R + G + B) div 3;
    Result := RGB(R, G, B);
  until (Gris >= monSeuil) and (Result <> CouleurInterdite);
end;

A+.

[e-ric]

Salut

@Gilbert, en faisant la moyenne des trois composantes, on obtient donc une indication sur la luminosité, je ne savais pas, c'est une bonne info, on peut avoir des précisions ?

@+

[Gilbert Geyer]

Re-bonjour,

E-ric : en faisant la moyenne des trois composantes, on obtient donc une indication sur la luminosité, je ne savais pas, c'est une bonne info, on peut avoir des précisions ?

En fait on obtient l'équivalent du gris des anciens téléviseurs en "noir et blanc" avec la formule NTSC suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Gris := integer( 77*rgbtRed + 150*rgbtGreen + 29*rgbtBlue) shr 8; 
ce qui est égal à Gris1 = 0,3007*R + 0,5859*G +  0,1133*B;

donc si on prend Gris2 = moyenne des 3 c'est à dire 0,3333*R + 0,3333*G + 0,3333*B on privilégie le Rouge et le Bleu au détriment du Vert ce qui donne un Gris2 un chouilla plus sombre que Gris1 puisque la plage de plus grande sensibilité de l'oeil se trouve dans celle des Verts-Jaunes .

Mais rien n'empêche d'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
function clAleatoireFond(const monSeuil: byte; CouleurInterdite: tColor): tColor;
var Gris, R, G, B: integer;
begin
  repeat
    R := random(256); G := random(256); B := random(256);
    Gris := trunc(0.3007 * R + 0.5859 * G +  0.1133 * B);
    Result := RGB(R, G, B);
  until (Gris >= monSeuil) and (Result <> CouleurInterdite);
end;

A+.

[guillemouze]

Salut

@Gilbert, en faisant la moyenne des trois composantes, on obtient donc une indication sur la luminosité, je ne savais pas, c'est une bonne info, on peut avoir des précisions ?

@+

J'ai regardé le code de la fonction GR32.RGBtoHSL, et le calcul de la luminosité est le suivant :
( Min(R,G,B) + Max(R,G,B) ) / 2
avec RGB € [0,1] et donc la luminosité aussi entre 0 et 1

[Gilbert Geyer]

Bonjour,

Guillemouze : ... GR32.RGBtoHSL, et le calcul de la luminosité est le suivant : ( Min(R,G,B) + Max(R,G,B) ) / 2

A mon avis, que l'on s'appuie sur le calcul de la luminosité ou de la valeur du niveau de Gris, le résultat final sera à peu près kif-kif car dans les deux cas le résultat final dépendra surtout de la valeur retenue pour le paramètre "monSeuil".

A+.