Dégradé Lissé

Question

Bonjour,

Je voudrais savoir comment je peux faire un d&#233;grad&#233; vraiment lisse (smooth gradient) dans un TImage. J'ai r&#233;ussi &#224; faire un petit bout de code qui fait passer du jaune au bleu en passant par autant de variantes qu'il y a de lignes dans mon TImage. Pourtant, le r&#233;sultat n'est pas parfait. Globalement, &#231;a d&#233;grade bien, mais y'a comme un effet de lignes par dessus mon truc...

Voici ma fonction, si qqn connait un algorithme un peu plus performant, &#231;a me brache bien !

procedure TFRMMain.CalculerGradient;
var
  i, nColor1, nColor2, nColor3: integer;
  r1, g1, b1, r2, g2, b2, r3, g3, b3: integer;
begin
  Image1.Picture.Bitmap.Width :=  Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;

  nColor1 := clYellow;

  r1 := GetRValue(nColor1);
  g1 := GetGValue(nColor1);
  b1 := GetBValue(nColor1);

  nColor2 := clBlue;

  r2 := GetRValue(nColor2);
  g2 := GetGValue(nColor2);
  b2 := GetBValue(nColor2);

   for  i : = 0 to Image1.Height do
  begin
    r3 := Trunc(((Image1.Height - i) * r1)/Image1.Height + (i * r2)/Image1.Height);
    g3 := Trunc(((Image1.Height - i) * g1)/Image1.Height + (i * g2)/Image1.Height);
    b3 := Trunc(((Image1.Height - i) * b1)/Image1.Height + (i * b2)/Image1.Height);

    nColor3 := RGB(r3, g3, b3);
    Image1.Canvas.Pen.Color := nColor3;
    Image1.Canvas.MoveTo(0, i);
    Image1.Canvas.LineTo(Image1.Width, i);
  end;
end;



Ghislain "Sokoban" Martin
http://perso.wanadoo.fr/sokoban

sokoban · Answer

procedure TFRMMain.CalculerGradient;
var
  i, nColor1, nColor2, nColor3: integer;
  r1, g1, b1, r2, g2, b2, r3, g3, b3: integer;
begin
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;


  nColor1 := clYellow;


  r1 := GetRValue(nColor1);
  g1 := GetGValue(nColor1);
  b1 := GetBValue(nColor1);


  nColor2 := clBlue;


  r2 := GetRValue(nColor2);
  g2 := GetGValue(nColor2);
  b2 := GetBValue(nColor2);


  for i := 0 to Image1.Height do
  begin
    r3 := Trunc(((Image1.Height - i) * r1)/Image1.Height + (i * r2)/Image1.Height);
    g3 := Trunc(((Image1.Height - i) * g1)/Image1.Height + (i * g2)/Image1.Height);
    b3 := Trunc(((Image1.Height - i) * b1)/Image1.Height + (i * b2)/Image1.Height);


    nColor3 := RGB(r3, g3, b3);
    Image1.Canvas.Pen.Color := nColor3;
    Image1.Canvas.MoveTo(0, i);
    Image1.Canvas.LineTo(Image1.Width, i);
  end;
end;


Ghislain "Sokoban" Martin
http://perso.wanadoo.fr/sokoban

sokoban · Answer

En gros, ce que je cherche &#224; obtenir, ce sont des d&#233;grad&#233;s aussi beaux que ceux de PhotoShop et autres OpenGL !
Mais apparemment, les fonctions GetRValue, GetGValue, GetBValue et RGB associ&#233;es &#224; une simple fonction lin&#233;aire ne suffisent pas...


Ghislain "Sokoban" Martin
http://perso.wanadoo.fr/sokoban

Dégradé Lissé

2 réponses

Votre réponse

Discussions similaires