Помогите оптимизировать!

[Altera]

Привет всем!
Вот написал функцию градиальной заливки... Но помойму слишкрм громостко. Поделитесь опытом оптимезации!

function{ градивльная заливка }gradial(const cl1, cl2: tColor; w, h: integer): tBitmap;
var
b: tBitmap;
temp: integer;
cl: array of tColor;
s_rgb, e_rgb: integer;
rg, gg, bg: real;
rd, gd, bd: integer;
rs, gs, bs: integer;
re, ge, be: integer;
begin
   setLength(cl, h);

   b := tBitmap.Create;
   b.Width := w;
   b.Height := h;

   s_rgb := cl1;
   e_rgb := cl2;

   rs := getRValue(s_rgb);
   gs := getGValue(s_rgb);
   bs := getBValue(s_rgb);

   re := getRValue(e_rgb);
   ge := getGValue(e_rgb);
   be := getBValue(e_rgb);

   rd := re - rs;
   gd := ge - gs;
   bd := be - bs;

   rg := rd / h;
   gg := gd / h;
   bg := bd / h;

   for temp := 0 to 100 do
   begin
      re := round(rs + temp*rg);
      ge := round(gs + temp*gg);
      be := round(bs + temp*bg);
      cl[temp] := RGB(re, ge, be);
   end;

   for temp := 0 to 100 do
   begin
      b.Canvas.Pen.Color := cl[temp];
      b.Canvas.MoveTo(0, temp);
      b.Canvas.LineTo(200, temp);
   end;
   //result := tBitmap.Create;
   result := b;
  // b.Free;
end;

Спасибо заранее!!!

[mutabor]

Может градиентной?

procedure TForm1.FormPaint(Sender: TObject);
var
  Row, Ht: Word;
begin
 Ht := (ClientHeight + 255) div 256;
   for Row := 0 to 255 do 
     with Canvas do
      begin
       Brush.Color := RGB(0, 0, Row);
       FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
      end;
end;

[pu4koff]

два последних цикла объединить в один и массив cl нафиг не нужен. посчитали цвет и сразу присваиваем в Canvas.Pen.Color

[Altera]

Может градиентной?

Код:
view plaincopy to clipboardprint?

procedure TForm1.FormPaint(Sender: TObject);  
var  
  Row, Ht: Word;  
begin  
 Ht := (ClientHeight + 255) div 256;  
   for Row := 0 to 255 do   
     with Canvas do  
      begin  
       Brush.Color := RGB(0, 0, Row);  
       FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));  
      end;  
end;

Тут цвета не настраиваются?

[SNUPY]

Всё зависит от конкретно поставленной задачи. Можно извратиться и все сделать через DirectDraw или OpenGL. Под вопросом остается, что есть оптимизация: красота кода или же скорость выполнения данного кода?

[Altera]

Скорость на первом месте! Но и код если выглядит безобразно и не читабельно, тоже плохой тон!

[mutabor]

Тут цвета не настраиваются?

Это горизонтальный градиент синего цвета. То, что он синий, можно понять не запуская из этой строки:
Brush.Color := RGB(0, 0, Row);
Причем градиент масштабируемый (не зависит от высоты заливаемой области). Если понять как он работает, доработать его до цветного не составит труда.

Скорость на первом месте! Но и код если выглядит безобразно и не читабельно, тоже плохой тон!

Для каждой задачи свой подход. Если скорость критична, кому нужен этот тон? Если же скорость не особо важна, можно уделить внимание читабельности кода. Я так думаю...!