Comment fonctionne les couleurs

[nico]

Je voudrais savoir par exemple comment passé d'un dégradé de couleur rouge vif vers le rouge clair.

[Dr. Dri]

Code : Tout sélectionner

largeur = 300
hauteur = 100

OpenWindow(0, 0, 0, largeur, hauteur, #PB_Window_SystemMenu, "dégradé")

;couleur1 = RGB(255,   0,   0) ; rouge vif
;couleur2 = RGB(255, 128, 128) ;rouge cmoins vif ^^

couleur1 = RGB(Random(255), Random(255), Random(255))
couleur2 = RGB(Random(255), Random(255), Random(255))

r1 = Red(couleur1)
g1 = Green(couleur1)
b1 = Blue(couleur1)

r2 = Red(couleur2)
g2 = Green(couleur2)
b2 = Blue(couleur2)

dr = r2 - r1
dg = g2 - g1
db = b2 - b1

If StartDrawing( WindowOutput() )
  
  For x = 0 To largeur - 1
    r = r1 + (x * dr) / largeur
    g = g1 + (x * dg) / largeur
    b = b1 + (x * db) / largeur
    
    couleur = RGB(r, g, b)
    
    Line(x, 0, 1, hauteur, couleur)
  Next x
  
  StopDrawing()
EndIf

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Dri

[nico]

Merci Dr Dri.