Быстрая отрисовка

[zub]

>>или использовать компонент OpenGLContext;
нет такого компонента.

Вот небольшой тестик разных способов отрисовки (gdi,gdi+,agg,ogl) мне была интересна простая отрисовка линий, поэтому в тесте только линии.
в Form1.OpenGLPaint можно посмотреть настройку матриц для попиксельного соответствия gl<->canvasas

[Alex2013]

>>или использовать компонент OpenGLContext;
нет такого компонента.

OpenGLContext;- название модуля
OpenGLControl1: TOpenGLControl; класс
Пакет ...
Author: Mattias Gaertner
Description / Abstract: Simple cross-platform OpenGL viewer control
Filename: D:\lazarus\components\opengl\lazopenglcontext.lpk
Current state: installed, RunAndDesignTime

Что непонятного то ? Не точно название сказал ? Ну извиняюсь ...

Вот небольшой тестик разных способов отрисовки (gdi,gdi+,agg,ogl) мне была интересна простая отрисовка линий, поэтому в тесте только линии.
в Form1.OpenGLPaint можно посмотреть настройку матриц для попиксельного соответствия gl<->canvasas

Вот за это спасибо ! Мне тоже интересно ....
Зы
Кстати в какой версии Лазаря это чудо собирать ? (в 1.6 что на планшете стоит не собирается )

[zub]

кстати, про ошибаюсь. писал большую телегу, но видимо редактирование поста забыл закончить.
>>6 Если программа будет писаться только под Виндовс можно получить неслабое ускорение вывода векторной графики используя Метафайлы
Неслабое ускорение от метафайла ты не получишь. Это всеголишь способ сохранить последовательность вызова операций рисования.
Если ты их вызываешь паралельно делая какието сложные расчеты (или как у тебя из тормозного скрипта) - повторная отрисовка метафайлом будет гораздо быстрее... но это не ускорение вывода графики, а кэширование промежуточных результатов вычислений

[Alex2013]

кстати, про ошибаюсь. писал большую телегу, но видимо редактирование поста забыл закончить.
>>6 Если программа будет писаться только под Виндовс можно получить неслабое ускорение вывода векторной графики используя Метафайлы
Неслабое ускорение от метафайла ты не получишь. Это всеголишь способ сохранить последовательность вызова операций рисования.
Если ты их вызываешь паралельно делая какието сложные расчеты (или как у тебя из тормозного скрипта) - повторная отрисовка метафайлом будет гораздо быстрее... но это не ускорение вывода графики, а кэширование промежуточных результатов вычислений

1 Тут согласен ... метафайлы просто мене зависимы от размера рабочего поля( Вначале с такого "горя" пытался сделать "собственную версию метафайла" ) Шут знает почему но вывод с метафайлми идет быстрее .
2 Вообще интересная идея сделать альтернативный режим рисования с OpenGL но есть сомнения получится "совместить" все примитивы, зато как классно можно делать масштабирование всего рабочего поля !

[zub]

>>Кстати в какой версии Лазаря это чудо собирать ? (в 1.6 что на планшете стоит не собирается )
Чудо это когда говоришь что неработает и не говоришь сообщение об ошибке, но зачемто рассказываешь где оно стоит
Собирать надо в актуальной на текущий момент версии. Если нравятся постарше, убери модную строчку "DesignTimePPI = 113" из lfm, и незабудт при этом почистить lib

[Alex2013]

>>Кстати в какой версии Лазаря это чудо собирать ? (в 1.6 что на планшете стоит не собирается )
Чудо это когда говоришь что неработает и не говоришь сообщение об ошибке, но зачемто рассказываешь где оно стоит
Собирать надо в актуальной на текущий момент версии. Если нравятся постарше, убери модную строчку "DesignTimePPI = 113" из lfm, и незабудт при этом почистить lib

Ок !
Просто на планшете редко что-то программирую вот и завалялось старье ...

Мда !

Код: Выделить всё

Draw 10000 random lines
OpenGL  :.....15 msec
Canvas  :....161 msec
...AGG  :...3672 msec
GDIPlus :...5168 msec


Canvas: 161 msec - "серебряный призер" однако

Ps
Надо будет добавить "битовую графику" и ОpenCV (есть мысль что он "всех порвет" )

[zub]

у агг линии там чуток антиалиаснутые, поэтому его результат необъективен. Но всеравно ускоренные на гпу варианты (canvas, dx, ogl...) всегда превзойдут "ускоренные" процом

Добавлено спустя 2 минуты 39 секунд:
добавь вместо агг свой вариант. но только чтобы это было чесное рисование в памяти, а не gdi через канвас

Добавлено спустя 56 секунд:
>> и ОpenCV (есть мысль что он "всех порвет" )
сомневаюсь. он совсем непроэто

[Alex2013]

"Битовый" вариант на "скорую руку" 1184 msec Бронза !
(Ожидаемо бо рисование линий "никакое")

Код: Выделить всё

  procedure DrawLine(Var BB:TBitmap;x1,y1, x2,y2: Integer);
  var b,dx,dy,y,x,i:integer;
  begin
    dx:=abs(x2-x1);
    dy:=abs(y2-y1);

    if dx >= dy then
    begin
      if (x1<x2) then
        for i := x1 to x2 do
        begin
          y:=Round(((y2-y1)/(x2-x1))*i + (y1-x1*((y2-y1)/(x2-x1))));
          SetPix(BB,i,y,$FF);
        end;

      if (x2<x1) then
        for i := x2 to x1 do
        begin
          y:=Round(((y2-y1)/(x2-x1))*i + (y1-x1*((y2-y1)/(x2-x1))));
          SetPix(BB,i,y,$FF);
        end;
    end;

    if dx<dy then
    begin
      if (y1<y2) then
        for i := y1 to y2 do
        begin
          x:=Round(((x2-x1)/(y2-y1))*i + (x1-y1*((x2-x1)/(y2-y1))));
          SetPix(BB,x,i,$FF);
        end;

      if (y2<y1) then
        for i := y2 to y1 do
        begin
          x:=Round(((x2-x1)/(y2-y1))*i + (x1-y1*((x2-x1)/(y2-y1))));
          SetPix(BB,x,i,$FF);
        end;
    end;


OpenCV про быструю обработку видео потока ... странно если там линии рисовались бы сильно медленно ... Хотя все может быть !

Ps
Чуть "оптимизировал" и получил 882 msec ! Ура мне !
Текущий рекорд
Draw 10000 random lines
OpenGL: 15 msec
Bayte...: 878 msec
..AGG...: 3721msec
GDIPlus : 5414 msec
Честно включил TPanel(Sender).Canvas.Draw(0,0,bb); в учет времени...

[zub]

написав брезенхема, заменив SetPix на манипуляции непосредственно с указателем на пиксел, распаралелив отрезки по потокам - может ты и обойдешь канвас на своем планшете. на нормальной видеокарте - наврятли. Только зачем оно надо?

Добавлено спустя 3 минуты 28 секунд:

OpenGL driver info: NVIDIA Corporation GeForce GTX 680/PCIe/SSE2 4.6.0 NVIDIA 397.31
Draw 10000 random lines
Canvas: 12msec
GDIPlus: 458msec
AGG: 714msec
OpenGL: 2msec

мои цифры

[Alex2013]

Порядок чисел совершенно то-же самый ...
От "образца"(OpenGL) что канвас что мой кривой "бинарный метод" ( SetPix - как раз "работает напрямую с указателем" ) на порядок отличается, а все прочие на два . Особенно проседает GDIPlus что предсказуемо ... (Кстати странно что у тебя он быстрее )

Зы
Планшет так себе: Проц Intel Atom X5-Z8300 (Intel Cherry Trail)(Чистота Максимум 1.84 ГГц рабочая 1.44 ГГц ) / RAM 2 ГБ
OpenGL driver info: Intel Intel(R) HD Graphics 4.4.0 - Build 20.19.15.4474Д
Драйвер на планшете нуждается обновлении но сильно сомневаюсь что эта операция сделает его быстрее .

[zub]

>>SetPix - как раз "работает напрямую с указателем"
В каком месте это он работает напрямую?
Выкладывай свой вариант, вспомню спектрумовское детство, сделаю:
Canvas:
Alex byte:
zub byte:
OpenGL:
Зря ты канвас выкинул, это какраз ориентир. агг и гди+ - никуда негодно

[Alex2013]

>>SetPix - как раз "работает напрямую с указателем"
В каком месте это он работает напрямую?
Выкладывай свой вариант, вспомню спектрумовское детство, сделаю:
Canvas:
Alex byte:
zub byte:
OpenGL:
Зря ты канвас выкинул, это какраз ориентир. агг и гди+ - никуда негодно

Да на предыдущей странице ты же сам его забраковал (и я почти согласился: так делать не стоит по множеству причин ).
Но даже так получается быстрее чем GDI и Аgg

Код: Выделить всё

Procedure SetPix(Var BB:TBitmap;X,Y,C:Integer);
Type
TA=Array[0..1] of byte;
var
PA:^TA;
n:integer;
begin
if bb = NIL then exit;
if not InR(x,0,bb.Width-1) then exit;
if not InR(y,0,bb.Height-1) then exit;

//Bb.BeginUpdate; ;
pa:=Pointer(BB.RawImage.Data);
N:=Y*(BB.Width*3)+X*3;
pa^[n]  :=Blue(C);
pa^[n+1]:=Green(C);
pa^[n+2]:=red(C);
//Bb.EndUpdate;
end;                 


[zub]

выложи свой вариант gditest. в мозаику из кусочков я не играю

[Pavia]

Alex2013
Чёто у вас медленно.
Вот у меня линии рисуются на ровне с GDI в Delphi чутка быстрее в лазарусе медленнее.
16-20 мс

[Alex2013]

Код: Выделить всё

//бывший GDI (сделано вчера за десять минут по этому совсем не фонтан )
procedure TForm1.GDIPaint(Sender: TObject);
var
  i:integer;
  w,h:integer;
  LPTime:Tdatetime;
  tv1,tv2:GDBVertex;
  Function InR(AA,B,C:Longint):Boolean;
begin
InR:=((AA>=B) And (AA<=C));
End;

// Только 24 Бита !
Procedure SetPix(Var BB:TBitmap;X,Y,C:Integer);
Type
TA=Array[0..1] of byte;
var
PA:^TA;
n:integer;
begin
if bb = NIL then exit;
if not InR(x,0,bb.Width-1) then exit;
if not InR(y,0,bb.Height-1) then exit;

//Bb.BeginUpdate; ;
pa:=Pointer(BB.RawImage.Data);
N:=Y*(BB.Width*3)+X*3;
pa^[n]  :=Blue(C);
pa^[n+1]:=Green(C);
pa^[n+2]:=red(C);
//Bb.EndUpdate;
end;

  procedure DrawLine(Var BB:TBitmap;x1,y1, x2,y2: Integer);
  var b,dx,dy,y,x,i:integer;
  begin
    dx:=abs(x2-x1);
    dy:=abs(y2-y1);

    if dx >= dy then
    begin
      if (x1<x2) then
        for i := x1 to x2 do
        begin
          y:=Round(((y2-y1)/(x2-x1))*i + (y1-x1*((y2-y1)/(x2-x1))));
          SetPix(BB,i,y,$FF);
        end;

      if (x2<x1) then
        for i := x2 to x1 do
        begin
          y:=Round(((y2-y1)/(x2-x1))*i + (y1-x1*((y2-y1)/(x2-x1))));
          SetPix(BB,i,y,$FF);
        end;
    end;

    if dx<dy then
    begin
      if (y1<y2) then
        for i := y1 to y2 do
        begin
          x:=Round(((x2-x1)/(y2-y1))*i + (x1-y1*((x2-x1)/(y2-y1))));
          SetPix(BB,x,i,$FF);
        end;

      if (y2<y1) then
        for i := y2 to y1 do
        begin
          x:=Round(((x2-x1)/(y2-y1))*i + (x1-y1*((x2-x1)/(y2-y1))));
          SetPix(BB,x,i,$FF);
        end;
    end;

   // Form1.Image1.Picture.Bitmap.Assign(bmp);
  end;
Const BB:TBitmap=nil;
  begin


     w:=TPanel(Sender).Width;
     h:=TPanel(Sender).Height;
     needtransform:=CheckBox1.Checked;
//     If bb=nil then begin
      BB:=TBitmap.Create;
      bb.PixelFormat:=pf24bit;
      bb.SetSize(w,h);

  //   end;
Bb.BeginUpdate; ;
     LPTime:=now();
     for i:=1 to SpinEdit1.Value do
     begin
          tv1:=GetRandomVertex(w,h,w);
          tv2:=GetRandomVertex(w,h,w);
      DrawLine(BB,round(tv1.x),round(tv1.y),round(tv2.x),round(tv2.y));

         // TPanel(Sender).canvas.Line(round(tv1.x),round(tv1.y),round(tv2.x),round(tv2.y));
     end;
  Bb.EndUpdate;
       TPanel(Sender).Canvas.Draw(0,0,bb);
     lptime:=now()-LPTime;


     bb.Free;
     Label1.Caption:=' Byte : '+inttostr(round(lptime*10e7))+'msec';
     processresult;
end;



Кстати забавная реакция на изменение масштаба: в "полноэкранном режиме" OpenGl работает даже быстрее
Зы
Где-то сидит ошибка (линии сдвигаются ) но для теста скорости это без разницы...

Добавлено спустя 33 минуты 14 секунд:

Alex2013
Чёто у вас медленно.
Вот у меня линии рисуются на ровне с GDI в Delphi чутка быстрее в лазарусе медленнее.
16-20 мс

Ну так линии боле умно сделаны + маленький чит : окошко меньше.