Mélange de couleurs

**Matt2094** · 12/03/2006, 17h43

Je n'arrive pas à trouver une fonction qui permet de mélanger deux couleurs. Est-ce-que vous en connaissez une?

**edam** · 12/03/2006, 18h04

inspire de : http://nono40.developpez.com/sources/source0072/
en plus voir dans le site de nono j'ai déjà vu quelque chose de ce genre

**Graffito** · 12/03/2006, 19h40

Bonjour,

Il me semble qu'il faut décomposer en RGB et mélanger chacune des 3 couleurs indépendamment :

Code :

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

1
2
3
C3:= ((((C1 and $FF0000)+(C2 and $FF0000)) div 2) and $FF0000) +
     ((((C1 and $FF00)  +(C2 and $FF00))   div 2) and $FF00  ) +
     ((((C1 and $FF)    +(C2 and $FF))     div 2) and $FF    ) ;

**Sub0** · 12/03/2006, 22h29

Graffito !
C'est la moyenne de chaque composant (R, G et B) des couleurs à melanger.
Le code donné ci-dessus est donc bon.

à+

**smyley** · 12/03/2006, 22h47

Sauf que tout ça est égal en fait à ( C1 + C2 ) div 2

Par contre pour faire du vert par exemple il faut écrire $00FF00 donc tous les 0 ont leur importance

**Graffito** · 13/03/2006, 09h21

Smiley a écrit :

Sauf que tout ça est égal en fait à ( C1 + C2 ) div 2

si C1=$0000100 et C2=$0000001
alors C3=$000000
tandis que (C1+C2) div 2 = $000080

**Tardiff Jean-François** · 13/03/2006, 10h39

Bonjour,

Pour tous ce qui est graphique regarder chez efg's

Pour les couleurs :

http://homepages.borland.com/efg2lab/Library/Delphi/Graphics/Color.htm

Vous avez un projet d'exemple de mélange de couleur en couleur additive et en couleur substractive.
Cela revient a applique les formule RGB qui vous ont été fournis, mais avec un exemple visuelle.

**Matt2094** · 13/03/2006, 18h43

Mais j'ai pas très bien compris comment on décomposait une couleur ...

**sjrd** · 13/03/2006, 19h13

Envoyé par Matt2094

Mais j'ai pas très bien compris comment on décomposait une couleur ...

Ben Graffito t'as donné le code complet et exact à utiliser. Il assigne à C3 une couleur qui est le mélange de C1 et C2.

**Matt2094** · 13/03/2006, 20h21

Mais si je veux mélanger par exemple 3 couleurs, je mets ça :

Code :

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

1
2
3
C4:= ((((C1 and $FF0000)+(C2 and $FF0000))+(C3 and $FF0000)) div 2) and $FF0000) + 
     ((((C1 and $FF00)  +(C2 and $FF00)   +(C3 and $FF00))   div 2) and $FF00  ) + 
     ((((C1 and $FF)    +(C2 and $FF)     +(C3 and $FF))     div 2) and $FF    ) ;

**Pedro** · 13/03/2006, 20h28

Mais non pas div 2 mais div 3

Le principe est très simple: tu décomposes tes couleurs en leurs 3 composantes R, G et B. Tu fais la moyenne entre elles et tu reconstitue la couleur résultante avec les moyennes R G et B trouvées

et en Delphi, ça donne, pour 3 couleurs:

Code :

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

1
2
3
4
 
C4:= ((((C1 and $FF0000)+(C2 and $FF0000))+(C3 and $FF0000)) div 3) and $FF0000) +
     ((((C1 and $FF00)  +(C2 and $FF00)   +(C3 and $FF00))   div 3) and $FF00  ) +
     ((((C1 and $FF)    +(C2 and $FF)     +(C3 and $FF))     div 3) and $FF    ) ;