Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERSIONS COULEUR / RVB / HSI (OPTIMISÉ)


Information sur la source

Catégorie :Graphique Classé sous : Couleur, HSI, Teinte, Saturation, Luminosité Niveau : Initié Date de création : 08/12/2007 Date de mise à jour : 08/12/2007 16:40:04 Vu / téléchargé: 5 740 / 226

Note :
Aucune note

Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Conversions Variable_Couleur / Rouge_Vert_Bleu / Hue_Saturation_Intensité dans tous les sens (Module + exemple)


##############################
     Un peu de théorie...
##############################

Une couleur peut être codée principalement de 3 façons différentes :
   COULEUR, RVB, et HSI

1°) La COULEUR elle-même sur 24 bits, soit 16 millions de couleurs (exatement 16777216)
     - 8 bits rouge
     - 8 bits vert
     - 8 bits bleu


2°) Ses 3 composantes RVB (Rouge, Vert, Bleu) ou RGB en anglais (Red, Green, Blue)
     - R - Rouge  de 0 à 255, soit 256 niveaux de rouge
     - V - Vert   de 0 à 255, soit 256 niveaux de vert
     - B - Bleu   de 0 à 255, soit 256 niveaux de bleu
     Combinaisons des 3 = 256*256*256 = 16 milions de couleurs (le compte est bon)

Couleur = (((bleu x 256) + vert) x 256) + rouge
         = rouge + (256 x vert) + (65536 x bleu)


3°) Sa correspondance HSI (Hue*, Saturation, Intensity) en anglais
     Abréviation française souvent utilisée : TSL (Teinte, Saturation, Luminosité)
(* prononcer "YOU")
     - H : Hue        = Teinte
     - S : Saturation = Saturation
     - I : Intensity  = Luminosité

     La Teinte (HUE) correspond à la couleur dominante :
       Valeurs de 0 à 239 :
         -   0 = rouge
         -  20 = orange (rouge + un peu de vert)
         -  40 = jaune (rouge + vert)
         -  80 = vert
         - 120 = bleu ciel (vert + bleu)
         - 160 = bleu
         - 200 = violet (bleu + rouge)
         - 239 = presque rouge

       Exemple : Teinte ROUGE (valeur 0) et ses variations de Saturation et de Luminosité :
         - rouge             (rouge)
         - rouge foncé       (marron)
         - rouge très foncé  (noir)
         - rouge clair       (rose)
         - rouge très clair  (blanc)
         - rouge pâle        (gris)

     La Saturation (SATURATION) correspond contraste de couleur :
       Valeur de 0 à 240 :
       - 0   : Vous avez encore une télé en noir et blanc ?!
       - 240 : Attention les yeux !

     La Luminosité (INTENSITY) est la notion de sombre ou clair :
       Valeur de 0 à 240 :
       - 0   : Qui a éteint la lumière ?!
       - 220 : Vive les lunettes de soleil !
       - 240 : Blanc.
       - 120 : Là, c'est beaucoup mieux.

#####################
     En pratique
#####################

"Couleur.bas" est un module comportant toutes les fonctions de conversions de couleurs dont vous aurez besoin.

"Couleur_RVB_HSI.vbp" est une petite application pédagogique utilisant mon module Couleur.bas.
Résolution minimum : 800 x 600

Le but : comprendre le principe de conversion RVB <-> HSI

 

Source

  • Call Fichier_Zip("Rien de tel qu'une bonne démo !")
  • '################################################################
  • '
  • ' UTILISATION DES 4 FONCTIONS SUIVANTES (by Columbiad)
  • '
  • ' - Couleur_2_RVB()
  • ' - Couleur_2_HSI()
  • ' - RVB_2_HSI()
  • ' - HSI_2_RVB()
  • '
  • '################################################################
  • '
  • 'Voici toutes les conversions possibles en une seule ligne :
  • '-----------------------------------------------------------
  • '
  • 'A PARTIR D'UNE COULEUR :
  • '------------------------
  • 'Convertir une COULEUR en R,V,B :
  • ' Call Couleur_2_RVB(COULEUR, R, V, B)
  • ' ou
  • ' Couleur_2_RVB COULEUR, R, V, B
  • '
  • 'Convertir une COULEUR en H,S,I :
  • ' Call Couleur_2_HSI(COULEUR, H, S, I)
  • ' ou
  • ' Couleur_2_HSI COULEUR, H, S, I
  • '
  • 'Convertir une COULEUR en H,S,I et en R,V,B :
  • ' Call Couleur_2_HSI(COULEUR, H, S, I, R, V, B)
  • ' ou
  • ' Couleur_2_HSI COULEUR, H, S, I, R, V, B
  • '
  • '
  • 'A PARTIR DES COMPOSANTES RVB :
  • '------------------------------
  • 'Convertir R, V, B en COULEUR :
  • ' COULEUR = RGB(R, V, B)
  • '
  • 'Convertir R,V,B en H,S,I :
  • ' Call RVB_2_HSI(R, V, B, H, S, I)
  • ' ou
  • ' RVB_2_HSI R, V, B, H, S, I
  • '
  • 'Convertir R,V,B en H,S,I et en COULEUR :
  • ' COULEUR = RVB_2_HSI(R, V, B, H, S, I)
  • '
  • '
  • 'A PARTIR DE LA CORRESPONDANTE HSI :
  • '-----------------------------------
  • 'Convertir HSI en COULEUR :
  • ' COULEUR = HSI_2_RVB(H, S, I)
  • '
  • 'Convertir HSI en RVB :
  • ' Call HSI_2_RVB(H, S, I, R, V, B)
  • ' ou
  • ' HSI_2_RVB H, S, I, R, V, B
  • '
  • 'Convertir HSI en RVB et en COULEUR :
  • ' COULEUR = HSI_2_RVB(H, S, I, R, V, B)
  • '
  • End
Call Fichier_Zip("Rien de tel qu'une bonne démo !")

'################################################################
'
'     UTILISATION DES 4 FONCTIONS SUIVANTES (by Columbiad)
'
'     - Couleur_2_RVB()
'     - Couleur_2_HSI()                                      
'     - RVB_2_HSI()
'     - HSI_2_RVB()
'
'################################################################
'
'Voici toutes les conversions possibles en une seule ligne :
'-----------------------------------------------------------
'
'A PARTIR D'UNE COULEUR :
'------------------------
'Convertir une COULEUR en R,V,B :
'    Call Couleur_2_RVB(COULEUR, R, V, B)
'      ou
'    Couleur_2_RVB COULEUR, R, V, B
'
'Convertir une COULEUR en H,S,I :
'    Call Couleur_2_HSI(COULEUR, H, S, I)
'      ou
'    Couleur_2_HSI COULEUR, H, S, I
'
'Convertir une COULEUR en H,S,I et en R,V,B :
'    Call Couleur_2_HSI(COULEUR, H, S, I, R, V, B)
'      ou
'    Couleur_2_HSI COULEUR, H, S, I, R, V, B
'
'
'A PARTIR DES COMPOSANTES RVB :
'------------------------------
'Convertir R, V, B en COULEUR :
'    COULEUR = RGB(R, V, B)
'
'Convertir R,V,B en H,S,I :
'    Call RVB_2_HSI(R, V, B, H, S, I)
'      ou
'    RVB_2_HSI R, V, B, H, S, I
'
'Convertir R,V,B en H,S,I et en COULEUR :
'    COULEUR = RVB_2_HSI(R, V, B, H, S, I)
'
'
'A PARTIR DE LA CORRESPONDANTE HSI :
'-----------------------------------
'Convertir HSI en COULEUR :
'    COULEUR = HSI_2_RVB(H, S, I)
'
'Convertir HSI en RVB :
'    Call HSI_2_RVB(H, S, I, R, V, B)
'      ou
'    HSI_2_RVB H, S, I, R, V, B
'
'Convertir HSI en RVB et en COULEUR :
'    COULEUR = HSI_2_RVB(H, S, I, R, V, B)
'
End

Conclusion

PS : Vous trouverez parfois la SATURATION ou l'INTENSITE en pourcentages
     (valeurs de 0 à 100)
  -> Il vous suffira de les multiplier par 2,4 avant de les utiliser.

 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

08 décembre 2007 11:54:31 :
petite mise en page
08 décembre 2007 11:56:58 :
petite mise en page
08 décembre 2007 12:09:34 :
petite mise en page
08 décembre 2007 12:16:26 :
petite mise en page
08 décembre 2007 12:21:53 :
petite mise en page
08 décembre 2007 12:52:20 :
Ajout capture d'écran
08 décembre 2007 16:14:04 :
Petite modif de description : merci WINDOB (^-^)
08 décembre 2007 16:16:38 :
Petite modif de description : merci WINDOB (^_^)
08 décembre 2007 16:40:04 :
petite mise en page

Commentaires et avis

signaler à un administrateur
Commentaire de windob le 08/12/2007 14:13:17

Pour chipoter :
Hue = Teinte en français
L'abréviation la plus souvent utilisée en français est TSL pour Teinte Saturation Luminosité.

signaler à un administrateur
Commentaire de clock le 09/12/2007 17:05:13

Super travail , voici 2 ans que je cherche à convertir une couleur d'un pixel en une donnée numérique équivalente ...... Merci !
Je te donne 10/10 ....
Biensur , sur ce site il y à quantité de progs parlant de se sujet
cependant plus claire , plus accomplis que ça , non !!..

signaler à un administrateur
Commentaire de Renfield le 09/12/2007 22:01:37 administrateur CS

optimisé, je ne sais pas, reste que tu semble bien maitriser ton sujet

signaler à un administrateur
Commentaire de Columbiad le 10/12/2007 18:29:04

Merci CLOCK ! Je me suis efforcé de rendre mes explication aussi claires que possible. Je suis heureux d'avoir pu te rendre ce service.
---
Renfield : Si tu me trouves des fonctions de conversion plus réduites que dans le module Couleur.bas, je suis preneur (^_^). (L'optimisation ne porte que sur ce module, l'appli de démo n'est là que pour comprendre les conversions RVB/HSI, un peu bourrin je l'avoue, mais ça fonctionne...)
---
Salutations à toutes et tous (^_^)

signaler à un administrateur
Commentaire de Renfield le 10/12/2007 19:11:07 administrateur CS

j'avais pas mal bossé avec ce genre de conversion...

concernant l'optimisation, voici de betes exemples...

MIN(MIN(R, V), B)
induit deux appels de fonction, donc deux passages de parametres, etc...
fais une fonction Min3... par exemple

les divisions sont plus couteuses en nombre de cycles que les multiplications...
/2 se dit * 0.5

Couleur_2_RVB est à recoder en calculs, sans passage par la case String
(voir http://www.vbfrance.com/codes/RGB-VICE-VERSA-TRES-RAPIDE_40189.aspx)

tu pourrais sans doute utilise des Byte, mais quitte a ne pas le faire, utilises des Long plutot que des Integer, les processeurs 32 bits prefereront...


  If I < 240 / 2 Then
    ColorL = (I / 240) * (1 - (S / 240))
    ColorH = (I / 240) * (1 + (S / 240))
  Else
    ColorL = (I / 240) - (1 - (I / 240)) * (S / 240)
    ColorH = (I / 240) + (1 - (I / 240)) * (S / 240)
  End If
dans ce genre de cas, il peut etre fructueux de mettre en cache les calculs intermédiaires (tes divisions)


j'ai pas tout suivit de la logique appliquée, a toi de voir s'il n'est pas possible d'utiliser des ElseIf... (cas qui s'exclueraient les uns les autres)
  If V = Color1 And R = Color3 Then Plage = 6: Color2 = B: sens = -1
  If V = Color1 And B = Color3 Then Plage = 4: Color2 = R: sens = 1
  If R = Color1 And B = Color3 Then Plage = 4: Color2 = V: sens = -1
  If R = Color1 And V = Color3 Then Plage = 2: Color2 = B: sens = 1
  If B = Color1 And V = Color3 Then Plage = 2: Color2 = R: sens = -1
  If B = Color1 And R = Color3 Then Plage = 0: Color2 = V: sens = 1




Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

[?] Couleur RGB et luminosité [ par Ghislain ] Bonjour à tous,Je cherche à récupérer à partir d'une couleur (rgb ou long) la valeur des trois composantes de luminosité, teinte et contraste.Une idée conversion couleurs RGB <-> teinte luminosité... [ par jannoman ] Salut !J'aimerais savoir comment est cod&#233; une couleur avec teinte luminosit&#233;... en RGB ou de 1 &#224; 16 millionsMerci.A+.Thomas. Définir la couleur d'un texte en fonction du fond [ par daddycool76 ] Bonjour à tous,Une petite question :Etant donné que dans mon application la couleur de fond est choisie par l'utilisateur (donc variable) ,existe-t-il bitmap vers texte [ par arnovb ] bon j'ai cherché sur le forum mais je n'ai pas trouvéje voudrai ouvrir un bitmap en mode texte pour aller tester la couleur de certains pixel à l'inté recupere la color paplette et modifier une couleur [ par fdo ] BonjoursJ'aimerais recupere la color palette d'une picture box et changer certaine couleurmerci d'avence Couleur translucide dans doc HTML [ par melie1234 ] Bonjour ! Pour commencer, je tiens à préciser que je ne suis pas une bete en dév. et je ne maitrise pas tout le vocabulaire !je suis en train de monte Avoir 1 ligne sur 2 avec couleur de fond différente dans une Listview [ par Bogorno ] Bonjour,J'ai une Listview avec plusieurs colonnes et je souhaiterai avoir 1 ligne sur 2 une couleur différente (pas le texte mais le fond). Je voudrai Localiser un pixel coloré dans une image [ par cymoud ] Bonjour,j'ai besoin de chercher la position d'un ou plusieurs pixels dans une image en indiquant une couleur</ copier coller sous conditions de couleur [ par TiteZ ] Bonjour je cherche a crée une macro qui sous une condition de couleur d'une cellule me copierais la ligne entiere dans une autre feuille que je crée a


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,406 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.