| Цитата |
Есть более простое решение. Использовать вместо LineTo Polyline и передвать сразу массив вершин. LineTo тормозит из-за издержек на начало рисования и окончание. Polyline производит всего одну операция начала и завершения поэтому скорость будет в n раз выше (где n число точек)
|
Я рассуждая примерно так же, что вдруг хотя бы на вызовах сэкономлю, кинул на форму TPaintBox с парой кнопок:
| Код |
procedure TForm2.Button1Click(Sender: TObject);
var w,h,i:Integer;
Canvas:TCanvas;
t:Cardinal;
begin
w:=PB.Width;
h:=PB.Height;
Randomize;
Canvas:=PB.Canvas;
Canvas.Pen.Width:=2;
t:=GetTickCount;
for i:=0 to D do
Canvas.LineTo(Random(w-1),Random(h-1));
Label1.Caption:=IntToStr(GetTickCount-t);
end;
procedure TForm2.Button2Click(Sender: TObject);
var w,h,i:Integer;
Canvas:TCanvas;
t:Cardinal;
begin
w:=PB.Width;
h:=PB.Height;
Randomize;
Canvas:=PB.Canvas;
Canvas.Pen.Width:=2;
for i:=0 to D do
begin
P[i].X:=Random(w-1);
P[i].Y:=Random(h-1);
end;
t:=GetTickCount;
Canvas.Polyline(P);
Label1.Caption:=IntToStr(GetTickCount-t);
end;
|
При D=999 polyline отрабатывала за 172 мс, а цикл с LineTo 32, при D=9999 polyline просто вешает компьютер так, что его потом только ресетом. 
| Цитата | | Если с дровами OpenGL нет проблем |
Э-э. Вроде они с любыми драйверами видеокарт, даже чипсетками всегда идут?
Вообще с DirectX я пару лет назад ковырялся, даже книжечку купил небезызвестного Миши Фленова, так что в этом плане он немного предпочтительнее OpenGL, который я не ковырял вообще.
Качнул либы, немного покурил форум, как заставить их работать с 2007.
| Код |
Randomize;
t:=GetTickCount;
for i:=0 to 9999 do
PB.Canvas.LineTo(Random(100), Random(100));
Label1.Caption:=IntToStr(GetTickCount-t);
|
И Label1.Caption=32
| Код |
Randomize;
GDIPlus := TGPGraphics.Create(PB.Canvas.Handle);
pen:= TGPPen.Create(MakeColor(255, 0, 0, 255));
t:=GetTickCount;
for i:=0 to 9999 do
GDIPlus.DrawLine(pen, 0, 0, Random(100), Random(100));
GDIPlus.DrawRectangle(pen,20,20,200,200);
GDIPlus.Free;
pen.Free;
Label1.Caption:=IntToStr(GetTickCount-t);
|
И Label1.Cation=18266  Что я делаю не так?? |
)
