Comment calculer, teinte, saturation, luminosité couleur

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
poshu
Messages : 1138
Inscription : sam. 31/juil./2004 22:32

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par poshu »

A vu de nez, l'image que tu as posté en premier lieu est complète, faut bien se rendre compte qu'il faut étaler ton dégradé sur un cercle et non pas sur un carré.
Haut
Lord Nelson
Messages : 355
Inscription : dim. 01/déc./2013 15:29

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par Lord Nelson »

Oui, je pense que tu as raison poschu et c’est ce que je me suis aussi dit :)
Mais je ne sais pas comment procéder pour faire cella :oops:

Sinon une fois fait ça, je pense que j'aurais trouvé se que je veux 8)
Merci.
Haut
poshu
Messages : 1138
Inscription : sam. 31/juil./2004 22:32

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par poshu »

Alors donc, il restait encore quelques cas (3 pour être précis) où ma formule était fausse. C'est réglé :3

Après, j'ai bricolé un truc (mais j'avais pas d'idée précise, alors ça rend pas forcément terrible). Ça utilise un code du Soldat Inconnu ( ici ) pour faire une projection radiale; j'ai pas vraiment étudié si la projection était valide, donc ça reste très pifometré. Note: la fonction du Soldat est lente (surtout avec le debuger en marche).
En théorie, pour obtenir ce que tu veux, faudrait plutot chercher du coté de la trigo, mais bon, je déteste ce sujet et j'ai pas envie de réfléchir maintenant, donc si tu veux un truc plus efficace, faut se sortir les doigts du cul et lire ça : http://web.archive.org/web/201201020134 ... cleve.html

Ça donne ça :
Image

Code : Tout sélectionner

Procedure Max(A,B)
   If A > B
      ProcedureReturn A
   Else
      ProcedureReturn B
   EndIf
EndProcedure

Procedure Min(A,B)
   If A < B
      ProcedureReturn A
   Else
      ProcedureReturn B
   EndIf
EndProcedure

Procedure.f Hue(RGB)
   Protected R, G, B, nImax, nImin, Hue.f
   If RGB < = $FFFFFF Or RGB > = 0
      R = Red(RGB)
      G = Green(RGB)
      B = Blue(RGB)
      
      nImax = Max(Max(r,b),g)
      nImin = Min(Min(r,b),g)
      
      If(nImax = r)   
         Hue=60*(g-b)/(nImax-nImin)
      ElseIf nImax = g
         Hue=60*(b-r)/(nImax-nImin)+120
      ElseIf nImax = b
         Hue=60*(r-g)/(nImax-nImin)+240
      EndIf
      
      If Hue<0
         Hue = 360 + Hue
      EndIf
   EndIf
   
   ProcedureReturn Hue
EndProcedure

Procedure.f Brightness(RGB)
   Protected R, G, B, nImax, Brightness.f
   
   If RGB < = $FFFFFF Or RGB > = 0
      R = Red(RGB)
      G = Green(RGB)
      B = Blue(RGB)
      
      nImax = Max(Max(r,b),g)
      
      Brightness = nImax/255
      
   EndIf
   
   ProcedureReturn Brightness * 100
EndProcedure

Procedure.f Saturation(RGB)
   Protected R, G, B, nImax, nImin, Saturation.f
   If RGB < = $FFFFFF Or RGB > = 0
      R = Red(RGB)
      G = Green(RGB)
      B = Blue(RGB)
      
      nImax = Max(Max(r,b),g)
      nImin = Min(Min(r,b),g)
      
      Saturation = 1 - nImin / nImax
      
   EndIf
   
   ProcedureReturn Saturation * 100
EndProcedure

Procedure HSBToRGB(Hue.f,Saturation.f,Brightness.f)
   Protected R,G,B
   
   Protected TopColor = Round(Brightness*255/100,#PB_Round_Nearest)
   
   Protected MinColor = Round((Saturation/100 -1)*-1*TopColor,#PB_Round_Nearest)
   
   If Hue > = 60 And Hue < 180
   	G = TopColor
   	Hue = Round((Hue -120) * (TopColor - MinColor) / 60,#PB_Round_Nearest)
   	
   	If Hue > 0
   		R = MinColor
   		B = hue + R
   	Else
   		B = MinColor
   		R = (hue - B) * -1
   	EndIf
   ElseIf Hue > = 180 And Hue < 300
   	B = TopColor
   	Hue = Round((Hue -240) * (TopColor - MinColor) / 60,#PB_Round_Nearest)
   	
   	If Hue > 0
   		G = MinColor
   		R = hue + G
   	Else
   		R = MinColor
   		G = (hue - R) * -1
   	EndIf
   Else
   	R = TopColor
   	If hue >= 300
   		Hue - 360
   	EndIf
   	Hue = Round(Hue * (TopColor - MinColor) / 60,#PB_Round_Nearest)
   	If hue > 0
   		B = MinColor
   		G  = hue + B
   	Else
   		G = MinColor
   		B = (Hue - G) *-1
   	EndIf
   EndIf
   
   ProcedureReturn RGB(R,G,B)
EndProcedure

;{ Code du Soldat Inconnu :
Procedure.i RollUpImage(ImageSource.i, ImageDestination.i, StartAngle.d = 0)
   EnableExplicit
   Protected Largeur.i, Hauteur.i
   Protected Retour.i
   Protected i.i, ii.i, j.i
   Protected Angle.d, x.d, x_droit.i, x_droit_pourcentage.d, x_gauche.i, x_gauche_pourcentage.d, y.d, y1.d, y1_debut.i, y1_debut_pourcentage.d, y2.d, y2_fin.i, y2_fin_pourcentage.d, Plage.d
   Protected Quantite.d, Rouge.d, Vert.d, Bleu.d, Alpha.d
   
   Largeur = ImageWidth(ImageSource)
   Hauteur = ImageHeight(ImageSource)
   
   Protected Dim Image(Largeur, Hauteur * 3)
   StartDrawing(ImageOutput(ImageSource))
      DrawingMode(#PB_2DDrawing_AlphaBlend)
      ; Lecture de l'image
      For i = 0 To Largeur - 1
         For ii = 0 To Hauteur - 1
            Image(i, ii) = Point(i, ii)
            Image(i, ii + Hauteur) = Image(i, ii)
            Image(i, ii + 2 * Hauteur) = Image(i, ii)
         Next
      Next
   StopDrawing()
   
   ; Création de li'mage en coordonnées polaires
   Retour = CreateImage(ImageDestination, Largeur * 2 - 1, Largeur * 2 - 1, 32 , #PB_Image_Transparent)
   If ImageDestination = #PB_Any
      ImageDestination = Retour
   EndIf
   StartDrawing(ImageOutput(ImageDestination))
      DrawingMode(#PB_2DDrawing_AlphaBlend)
      For i = 0 To Largeur * 2 - 2
         For ii = 0 To Largeur * 2 - 2
            x.d = Largeur - 1 - i
            y.d = ii - Largeur + 1
            ; Calcul de l'angle
            If x > 0 And y >= 0
               Angle.d = ATan(y / x)
            ElseIf x < 0 And y >= 0
               Angle.d = #PI - ATan(-y / x)
            ElseIf x < 0 And y < 0
               Angle.d = #PI + ATan(y / x)
            ElseIf x > 0 And y < 0
               Angle.d = 2 * #PI - ATan(-y / x)
            ElseIf y > 0
               Angle.d = #PI / 2
            Else
               Angle.d = 3 * #PI / 2
            EndIf
            Angle + StartAngle
            ; Debug "Position = " + Str(x) + " ; " + Str(y)
            x.d = Sqr(x * x + y * y) ; Rayon qui donne la position en x en partant de la droite de l'image d'origine
            ; Debug "Rayon = " + StrD(x, 3)
            ; Debug "Angle = " + StrD(Angle, 3)
            If x <= Largeur - 2
               x_droit = Largeur - Int(x) - 1
               x_droit_pourcentage.d = 1 - x + Int(x) ; Répartion du rayon sur les pixels
               x_gauche = x_droit - 1
               x_gauche_pourcentage.d = 1 - x_droit_pourcentage
               y.d = Hauteur + Hauteur * Angle / (2 * #PI) ; Position en y dans l'image d'origine, elle dépend de l'angle
               Plage.d = Hauteur / (Largeur * 2 * #PI) * (Largeur / x) ; Plage sur laquelle il faut fusionner les pixels pour obtenir la couleur finale
               If Plage > Hauteur
                  Plage = Hauteur
               EndIf
               ; Debug "Hauteur = " + StrD(y, 3)
               ; Debug "Plage = " + StrD(Plage, 3)
               y1.d = y - Plage / 2
               y1_debut = Round(y1, #PB_Round_Down)
               y1_debut_pourcentage.d = 1 - y1 + y1_debut
               y2.d = y + Plage / 2
               y2_fin = Round(y2, #PB_Round_Up)
               y2_fin_pourcentage.d = 1 - y2_fin + y2
               Quantite.d = 0
               Rouge.d = 0
               Vert.d = 0
               Bleu.d = 0
               Alpha.d = 0
               For j = 0 To 3 * Hauteur - 1
                  If j >= y1 And j <= y2
                     Quantite + 1
                     Rouge + (Red(Image(x_droit, j)) * x_droit_pourcentage + Red(Image(x_gauche, j)) * x_gauche_pourcentage)
                     Vert + (Green(Image(x_droit, j)) * x_droit_pourcentage + Green(Image(x_gauche, j)) * x_gauche_pourcentage)
                     Bleu + (Blue(Image(x_droit, j)) * x_droit_pourcentage + Blue(Image(x_gauche, j)) * x_gauche_pourcentage)
                     Alpha + (Alpha(Image(x_droit, j)) * x_droit_pourcentage + Alpha(Image(x_gauche, j)) * x_gauche_pourcentage)
                  ElseIf j >= y1_debut And j < y1
                     Quantite + y1_debut_pourcentage
                     Rouge + (Red(Image(x_droit, j)) * x_droit_pourcentage + Red(Image(x_gauche, j)) * x_gauche_pourcentage) * y1_debut_pourcentage
                     Vert + (Green(Image(x_droit, j)) * x_droit_pourcentage + Green(Image(x_gauche, j)) * x_gauche_pourcentage) * y1_debut_pourcentage
                     Bleu + (Blue(Image(x_droit, j)) * x_droit_pourcentage + Blue(Image(x_gauche, j)) * x_gauche_pourcentage) * y1_debut_pourcentage
                     Alpha + (Alpha(Image(x_droit, j)) * x_droit_pourcentage + Alpha(Image(x_gauche, j)) * x_gauche_pourcentage) * y1_debut_pourcentage
                  ElseIf j <= y2_fin And j > y2
                     Quantite + y2_fin_pourcentage
                     Rouge + (Red(Image(x_droit, j)) * x_droit_pourcentage + Red(Image(x_gauche, j)) * x_gauche_pourcentage) * y2_fin_pourcentage
                     Vert + (Green(Image(x_droit, j)) * x_droit_pourcentage + Green(Image(x_gauche, j)) * x_gauche_pourcentage) * y2_fin_pourcentage
                     Bleu + (Blue(Image(x_droit, j)) * x_droit_pourcentage + Blue(Image(x_gauche, j)) * x_gauche_pourcentage) * y2_fin_pourcentage
                     Alpha + (Alpha(Image(x_droit, j)) * x_droit_pourcentage + Alpha(Image(x_gauche, j)) * x_gauche_pourcentage) * y2_fin_pourcentage
                  EndIf
               Next
               Rouge / Quantite
               Vert / Quantite
               Bleu / Quantite
               Alpha / Quantite
               If Rouge > 255
                  Rouge = 255
               EndIf
               If Bleu > 255
                  Bleu = 255
               EndIf
               If Vert > 255
                  Vert = 255
               EndIf
               If Alpha > 255
                  Alpha = 255
               EndIf
               Plot(i, ii, RGBA(Rouge, Vert, Bleu, Alpha))
            Else
               Plot(i, ii, $00FFFFFF)
            EndIf
            ; Debug ""
         Next
      Next
   StopDrawing()
   ProcedureReturn Retour
   DisableExplicit
EndProcedure
;}

OpenWindow(0,0,0,280,280,"Color Gradiant",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
;CanvasGadget(0,0,0,101,361)
CreateImage(0,201,721,32)
StartDrawing(ImageOutput(0))
For loopY = 0 To 720
	For loopX = 0 To 200
		Plot(loopX,loopY,HSBToRGB(loopY/2,100 - loopX/2,100))
    Next
Next
StopDrawing()
RollUpImage(0,1)

GrabImage(1,0,60,59,280,280)
ImageGadget(0,0,0,0,0,ImageID(0))

Repeat
   Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
         End
   EndSelect
ForEver
Haut
poshu
Messages : 1138
Inscription : sam. 31/juil./2004 22:32

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par poshu »

Bon, j'ai eu une réalisation soudaine (pendant que je fumais une clope en réfléchissant à mon problème de thread sur mon projet... Fumer tue, mais fumer produit de bonnes idées parfois :3), en fait, y'a pas besoin d'être bon en trigo pour afficher ça correctement : suffit de calculer l’hypoténuse d'un triangle rectangle (c'est tout simple ) pour définir la saturation et de calculer les angles d'un autre triangle rectangle (c'est facile) pour avoir la hue... Du coup, la c'est vachement plus rapide tout en produisant des images plus grandes :

Image

Code : Tout sélectionner

Procedure Max(A,B)
   If A > B
      ProcedureReturn A
   Else
      ProcedureReturn B
   EndIf
EndProcedure

Procedure Min(A,B)
   If A < B
      ProcedureReturn A
   Else
      ProcedureReturn B
   EndIf
EndProcedure

Procedure.f Hue(RGB)
   Protected R, G, B, nImax, nImin, Hue.f
   If RGB < = $FFFFFF Or RGB > = 0
      R = Red(RGB)
      G = Green(RGB)
      B = Blue(RGB)
      
      nImax = Max(Max(r,b),g)
      nImin = Min(Min(r,b),g)
      
      If(nImax = r)   
         Hue=60*(g-b)/(nImax-nImin)
      ElseIf nImax = g
         Hue=60*(b-r)/(nImax-nImin)+120
      ElseIf nImax = b
         Hue=60*(r-g)/(nImax-nImin)+240
      EndIf
      
      If Hue<0
         Hue = 360 + Hue
      EndIf
   EndIf
   
   ProcedureReturn Hue
EndProcedure

Procedure.f Brightness(RGB)
   Protected R, G, B, nImax, Brightness.f
   
   If RGB < = $FFFFFF Or RGB > = 0
      R = Red(RGB)
      G = Green(RGB)
      B = Blue(RGB)
      
      nImax = Max(Max(r,b),g)
      
      Brightness = nImax/255
      
   EndIf
   
   ProcedureReturn Brightness * 100
EndProcedure

Procedure.f Saturation(RGB)
   Protected R, G, B, nImax, nImin, Saturation.f
   If RGB < = $FFFFFF Or RGB > = 0
      R = Red(RGB)
      G = Green(RGB)
      B = Blue(RGB)
      
      nImax = Max(Max(r,b),g)
      nImin = Min(Min(r,b),g)
      
      Saturation = 1 - nImin / nImax
      
   EndIf
   
   ProcedureReturn Saturation * 100
EndProcedure

Procedure HSBToRGB(Hue.f,Saturation.f,Brightness.f)
   Protected R,G,B
   
   Protected TopColor = Round(Brightness*255/100,#PB_Round_Nearest)
   
   Protected MinColor = Round((Saturation/100 -1)*-1*TopColor,#PB_Round_Nearest)
   
   If Hue > = 60 And Hue < 180
   	G = TopColor
   	Hue = Round((Hue -120) * (TopColor - MinColor) / 60,#PB_Round_Nearest)
   	
   	If Hue > 0
   		R = MinColor
   		B = hue + R
   	Else
   		B = MinColor
   		R = (hue - B) * -1
   	EndIf
   ElseIf Hue > = 180 And Hue < 300
   	B = TopColor
   	Hue = Round((Hue -240) * (TopColor - MinColor) / 60,#PB_Round_Nearest)
   	
   	If Hue > 0
   		G = MinColor
   		R = hue + G
   	Else
   		R = MinColor
   		G = (hue - R) * -1
   	EndIf
   Else
   	R = TopColor
   	If hue >= 300
   		Hue - 360
   	EndIf
   	Hue = Round(Hue * (TopColor - MinColor) / 60,#PB_Round_Nearest)
   	If hue > 0
   		B = MinColor
   		G  = hue + B
   	Else
   		G = MinColor
   		B = (Hue - G) *-1
   	EndIf
   EndIf
   
   ProcedureReturn RGB(R,G,B)
EndProcedure

OpenWindow(0,0,0,801,801,"Color Gradiant",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

CreateImage(0,801,801)
StartDrawing(ImageOutput(0))
Hypothenuse.f = Sqr(Pow(400.5,2)*2)/100

For loopX = -400 To 400
	For loopY = -400 To 400
			rayon.f = Sqr(loopX * loopX + loopY * loopY)
			Plot(loopX+400,loopY+400,HSBToRGB(135+Degree(ATan2(loopX/rayon,loopY/rayon)),Sqr(loopX * loopX + loopY * loopY)/Hypothenuse,100))
	Next loopY	
Next loopX	
StopDrawing()

ImageGadget(0,0,0,0,0,ImageID(0))

Repeat
   Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
         End
   EndSelect
ForEver
Vala, c'est ce que tu voulais à la base, nan?
Haut
Lord Nelson
Messages : 355
Inscription : dim. 01/déc./2013 15:29

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par Lord Nelson »

Hoooo bha là je suis bouche-bé 8O
C'est très jolie comme rendus !

Oui, c'est se que je voulais !

Merci infiniment poshu 8)
Je t'embrasse pas mais le cœur y est :D
Haut
Avatar de l’utilisateur
Micoute
Messages : 2584
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par Micoute »

Bonjour à tous, en fait c'est un cercle dans un carré !

Beau travail Poshu !
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 6.20 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Haut
Lord Nelson
Messages : 355
Inscription : dim. 01/déc./2013 15:29

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par Lord Nelson »

Bonjour,

J'ai trouvé une solution très simple pour calculer la luminosité d'une couleurs sur une échelle voulue, regardez ça marche à tous les coups et c'est logique !
j'ai pris comme exemple 3 ampoule de couleurs, une Rouge, une Verte et une Bleu:

La valeur de la composante Rouge, Vert et Bleu va toujours de 0 à 255 = 256 valeur possible ok ?
Donc vous additionnez les 3 valeurs maximum de ces composantes qui sont toujours de 255 -> 255 * 3 = 765 ok ?

Vous divisez la valeur maximum que vous voulez quand la luminosité est au maximum, par exemple ont va dire 255, ok ?
255 / 765 = 0,33333333333333333333333333333333, ok ?

Vous additionnez le Rouge, le Vert et le Bleu pour avoir le totale des ces 3 valeurs en sachant que Minimum = 0 = 0 + 0 + 0 = RGB(0, 0, 0), Maximum = 765 = 255 + 255 + 255 = RGB(255, 255, 255), ok ?
Vous multipliez ce même totale par 0,33333333333333333333333333333333 et vous aurrez la luminosité de votre couleur.

Exemple diverses:

RGB(0, 0, 0) = 0 -> 0 * 0,33333333333333333333333333333333 = 0

RGB(1, 0, 0) = 0 -> 1 * 0,33333333333333333333333333333333 = 0,33333333333333333333333333333333
RGB(0, 1, 0) = 0 -> 1 * 0,33333333333333333333333333333333 = 0,33333333333333333333333333333333
RGB(0, 0, 1) = 0 -> 1 * 0,33333333333333333333333333333333 = 0,33333333333333333333333333333333

RGB(1, 2, 3) = 0 -> 6 * 0,33333333333333333333333333333333 = 2
RGB(3, 2, 1) = 0 -> 6 * 0,33333333333333333333333333333333 = 2

RGB(10, 5, 20) = 35 -> 35 * 0,33333333333333333333333333333333 = 11,666666666666666666666666666667
RGB(50, 150, 200) = 400 -> 400 * 0,33333333333333333333333333333333 = 133,33333333333333333333333333333
RGB(100, 100, 100) = 300 -> 300 * 0,33333333333333333333333333333333 = 100
RGB(255, 255, 255) = 765 -> 765 * 0,33333333333333333333333333333333 = 255

Vous pouvez faire autrement et plus simplement dans ce cas précis et pas dans un autre...
Vous additionnez les valeur Rouge, Vert et Bleu que vous divisez par 3 pour faire la moyenne et vous optenez alors la luminosité de la couleur.

Ya d'autre façon mais bon...
Maintenant est-ce que ces calcules sons bon ?!

Oui car peut être que le Rouge éclair plus que le Vert et le Bleu ou alors Le Vert éclair plus que le Rouge et le Bleu ou alors Le Bleu éclair plus que le Rouge et le Bleu, etc.
A voir pour la suite !
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par Backup »

...
Dernière modification par Backup le mar. 19/août/2014 9:51, modifié 1 fois.
Haut
Lord Nelson
Messages : 355
Inscription : dim. 01/déc./2013 15:29

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par Lord Nelson »

Salut,

Ces valeurs ne sont je pense pas bonnes, tu as qu'a metre:

RGB(1, 0, 0)
RGB(0, 1, 0)
RGB(0, 0, 1)

RGB(1, 1, 0)
RGB(0, 1, 1)
RGB(1, 0, 1)

RGB(1, 1, 1)
RGB(1, 2, 3)
RGB(3, 2, 1)

Tu véras les résultats meme en float.
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Comment calculer, teinte, saturation, luminosité couleur

Message par Backup »

...
Haut
Répondre

Revenir à « Débutants »