Отрисовка масива пикселей opengl

[Nikk[UA]]

Всем привет. Я пишу простенькую двухмерную игру, но уже столкнулся с трудностями.

Когда я отрисовую изображение по пикселю то в розрешении 800х600 фпс падает до 5

Мне предложили идею отрисовки масива пикселей как одного изображения. Я пробовал рисовать битмап в огле и фпс действительно возрос до 120.
Такой вопрос как масив пикселей максимально быстро отрисовать как одно изображение не переводя в битмап.

Вот код отрисовки:

procedure RendW;
var
x, y : integer;
begin
for x:= 0 to 800 do
for y:= 0 to 600 do
begin
GLPointSize(1);
GLBegin(GL_POINTS);
glColor3d(1,0,0);
glVertex2d(2*x/800-1,2*y/600-1);
GLEnd;
end;

end;

[IvanBegin]

зачем тебе opengl для двумерной игры?

[Пепел Феникса]

затем что тогда работает видюха и можно применятьь всякие красивости, что за флуд?

[Kostia]

Ваш код(сохраняя вашу логику) можно ооочень круто оптимизировать

procedure RendW;
var
 x, y : integer;
begin
 GLPointSize(1);
 GLBegin(GL_POINTS);
 for x:= 0 to 800 do
  for y:= 0 to 600 do
  begin
   glColor3d(1,0,0);
   glVertex2d(2*x/800-1,2*y/600-1);
  end;
 GLEnd;
end;

Правда есть один вопрос. А текстуры использовать никак?
В принципе есть еще glDrawPixels.
Но если не использовать текстуры, то толку от GL абсолютно НОЛЬ, может даже будет FPS меньше чем у GDI.

[Пепел Феникса]

при обработке точками в принципе не очень выгодна. там свои методы для точек(типа червей например)
а тупо закрасить экран лучше прямоугольником.

[s-andriano]

Одного универсального алгоритма пригодного для всех случаев нет, поэтому для графики и используются различные технологии.
В зависимости от поставленной задачи.
Опишите свою задачу, и мы попытаемся порекомендовать оптимальный способ отрисовки именно для нее.

Кстати, как показывает практика, и процессором (т.е. без OpenGL, etc.) можно достаточно быстро (те же 120 fps) отрисовывать картинку даже на при тактовой частоте процессора 0.1 ГГц.

[Nikk[UA]]

Я додумался все пиксели записать в массив и отрисовывать как одно изображение.ФПС поднялось до 60. Только теперь мне нужен альфа канал, так как под этим миром из пикселей находится еще картинка заднего фона.

Вопрос: как модернизировать этот код, чтобы был альфа канал?

объявление массива:

World : Array [0..3999, 0..3999, 0..2] of GLUbyte;

загружаем изображение в массив:

Bitmap := TBitmap.Create;
Bitmap.LoadFromFile ('map.bmp');
For i := 0 to 3999 do
For j := 0 to 3999 do begin
PixCol := Bitmap.Canvas.Pixels [j, i];
World[4000 - i - 1][j][0] := PixCol and $FF;
World[4000 - i - 1][j][1] := (PixCol and $FF00) shr 8;
World[4000 - i - 1][j][2] := (PixCol and $FF0000) shr 16;
end;
BitMap.FreeImage;

Рендерим всю картину

glRasterPos2f(-5, 5);
glPixelStorei(GL_UNPACK_ALIGNMENT, 1);
glDrawPixels(4000, 4000, GL_RGB, GL_UNSIGNED_BYTE, @World);

[Пепел Феникса]

4 байта на пиксель, а далее формат пикселя RGBA.

[Nikk[UA]]

Это сделал. Теперь изображение вообще не рендерится. Тупо черный экран.

Что еще нужно вписать?

[s-andriano]

Значит, неправильно сделал.