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

[Nikk[UA]]

так что куда еще писать?

[s-andriano]

Что и куда писать, Вам посоветовали.
Вы что-то сделали, но неправильно. Притом, никто не знает, что именно.
Мы не телепаты, где Вы в очередной раз ошиблись, не знаем.

[Nikk[UA]]

Вот вам код. Изображение map.bmp размером 1000х1000

unit MiningLife;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GLKeyboard, ExtCtrls, StdCtrls, AppEvnts, dglopengl;

type
TForm1 = class(TForm)
Process: TTimer;
FPSTimer: TTimer;
ApplicationEvents1: TApplicationEvents;
procedure ProcessTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FPSTimerTimer(Sender: TObject);
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
protected

public
end;


var
Form1: TForm1;
FPS, FullScreenX, FullScreenY: integer;
DC: HDC;
RC: HGLRC;
World : Array [0..999, 0..999, 0..3] of GLUbyte;


implementation

{$R *.dfm}



// - Full Screens Mod
//=================================== ==============
procedure FullScreenMode;
var
dm: TDEVMODE;
begin
Form1.Left := 0;
Form1.Top := 0;
Form1.Width := 800;
Form1.Height := 600;


ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);

FullScreenX := dm.dmPelsWidth;
FullScreenY := dm.dmPelsHeight;

dm.dmPelsWidth := Form1.Width;
dm.dmPelsHeight := Form1.Height;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
end;



procedure ResumeScreenMode;
var
dm: TDEVMODE;
begin
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := FullScreenX;
dm.dmPelsHeight := FullScreenY;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
end;
//=================================== ==============







// Render World
//=================================== ==============
procedure RendW;
begin
glRasterPos2f(-1, 1);
glPixelStorei(GL_UNPACK_ALIGNMENT, 1);
glDrawPixels(1000, 1000, GL_RGBA, GL_UNSIGNED_BYTE, @World);

end;
//=================================== ==============


procedure TForm1.ProcessTimer(Sender: TObject);
begin

if IsKeyDown(VK_ESCAPE) then
begin
ResumeScreenMode;
Form1.Close;
end;


end;

procedure TForm1.FormCreate(Sender: TObject);
var
i, j : Integer;
PixCol : TColor;
Bitmap : TBitmap;
begin
FullScreenMode();

DC := GetDC(Handle);
RC := CreateRenderingContext(Form1.Canvas .Handle,[opDoubleBuffered],32,24,0,0,0,0);


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

end;



procedure TForm1.FPSTimerTimer(Sender: TObject);
begin
Form1.Caption := 'FPS: ' + inttostr(FPS);
FPS := 0;
end;



procedure TForm1.ApplicationEvents1Idle(Sende r: TObject;
var Done: Boolean);
begin
ActivateRenderingContext(DC, RC);

RendW;

SwapBuffers(DC);
DeactivateRenderingContext;
FPS := FPS + 1;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DestroyRenderingContext(RC);
ResumeScreenMode;
end;

end.

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

а байт прозрачности кто будет задавать?

[Nikk[UA]]

можно пример. Я так понял нужно перевести, но как?

[BDA]

Ничего не гарантирую
Попробуйте:

World[1000 - i - 1][j][0] := PixCol and $FF;
World[1000 - i - 1][j][1] := (PixCol and $FF00) shr 8;
World[1000 - i - 1][j][2] := (PixCol and $FF0000) shr 16;
World[1000 - i - 1][j][3] := 255;

[Chudik]

BDA как с вами можно связаться?

[Nikk[UA]]

спс. Работает, но как я не менял значение альфа канала от 0 до 255 изображение рендерится одинаково. Тоесть на 255.

Как сделать чтобы оно было полупрозрачным?

[s-andriano]

Я что-то не обнаружил в коде вообще никакой настройки режима отображения. Она что, где-то в другом модуле?
Какие-нибудь glEnable...

[Nikk[UA]]

пробовал glenable(gl_blend), но это ничего не дало. Я вообще немного в режиме смешивания не догоняю.