OpenGL Искажается текстура

[Alexan-Dwer]

Создаю текстуры в OpenGL (раньше загружал их из bmp файлов, сейчас, для примера, уже просто заливаю их цветом):

//
Textures: array of GLuint;

procedure LoadTexture(const TextureID: Byte; var Texture: GLuint);
var
//
w, h: Cardinal;
//
Data: PByteArray;
begin
//
if TextureID = 0 then
//
  begin
//
w:=512; h:=512;
  end
                 else
//
  begin
//
w:=128; h:=64;
  end;

//
GetMem(Data, 3 * w * h);

//
if TextureID = 0 then
//
FillChar(Data^, w * h * 3, 204)
                 else
//
FillChar(Data^, w * h * 3, 102);

//
glBindTexture(GL_TEXTURE_2D, Texture);

//
glTexParameteri(GL_TEXTURE_2D,
//
GL_TEXTURE_MAG_FILTER, GL_NEAREST);

//
glTexParameteri(GL_TEXTURE_2D,
//
GL_TEXTURE_MIN_FILTER, GL_LINEAR);

//
glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB8,
//
w, h, 0, GL_RGB, GL_UNSIGNED_BYTE, Data);

//
FreeMem(Data, w * h * 3);
//
Data:=nil;
end;

procedure glInit;
begin
//
glEnable(GL_TEXTURE_2D);

//
SetLength(Textures, 2);
//
glGenTextures(1, @Textures[0]);
//
LoadTexture(0, Textures[0]);
//
glGenTextures(1, @Textures[1]);
//
LoadTexture(1, Textures[1]);

//
glClearColor(1, 1, 1, 0);
//
glShadeModel(GL_SMOOTH);
//
glClearDepth(1);
//
glDisable(GL_DEPTH_TEST);
//
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);

//
glViewport(0, 0, 800, 600);
//
glMatrixMode(GL_PROJECTION);
//
glLoadIdentity;
//
glOrtho(0, 800, 600, 0, 0, 1);
//
glMatrixMode(GL_MODELVIEW);
//
glLoadIdentity;
end;

и вывожу их на экран:

procedure glDraw;
begin
//
glClearColor(1, 1, 1, 0);

//
glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT);

//
glBindTexture(GL_TEXTURE_2D, Textures[0]);

//
glBegin(GL_QUADS);
//
glTexCoord2f(0, 0);
//
glVertex2f(0,   0);
//
glTexCoord2f(1, 0);
//
glVertex2f(512, 0);
//
glTexCoord2f(1, 1);
//
glVertex2f(512, 512);
//
glTexCoord2f(0, 1);
//
glVertex2f(0,   512);
//
glEnd;

//
glBindTexture(GL_TEXTURE_2D, Textures[1]);
//
glBegin(GL_QUADS);
//
glTexCoord2f(0, 0);
//
glVertex2f(128,   64);
//
glTexCoord2f(1, 0);
//
glVertex2f(256, 64);
//
glTexCoord2f(1, 1);
//
glVertex2f(256, 128);
//
glTexCoord2f(0, 1);
//
glVertex2f(128, 128);
//
glEnd;
end;

Но почему-то, после glClear или glBindTexture у текстуры может произойти обнуление байтов картинки (Data Pixels). Выглядит это так: обнулились байты первой текстуры или обнулились байты второй текстуры. Но иногда этого не происходит, и все выглядит нормально.

Использовал glGetTexImage для проверки, текстуры загружаются нормально, но после glClear или glBindTexture первые байты какой-то текстуры могут обнулиться. Почему так может быть, и с чем это связано?

[f.hump]

поставь еще

glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAX_LEVEL, 0);

[Alexan-Dwer]

У меня не определена константа GL_TEXTURE_MAX_LEVE, нашел что она равна 33085, это так?

В любом случае, даже с

glTexParameteri(GL_TEXTURE_2D, 33085, 0)

ничего не изменилось.

Проблема в том, что обнуление происходит всегда по-разному, а порой его может и не быть, хотя код не изменяется вообще...

[f.hump]

че-то не заметил сразу, что квады у тебя на одной высоте, видеокарта может отрисовывать часть второго раньше первого. поставь glVertex3f и разную высоту.

[Alexan-Dwer]

f.hump, тоже думал об этом раньше, не помогло...

Проблема в том, что если считать байты текстуры через glGetTexImage, то при загрузке текстуры они нормальные., а вот после вызова glClear или glBindTexture, у какой-то текстуры они могут обнулиться.

Запустил EXE файл, все нормально, закрыл и запустил заново, и вот уже у какой-то текстуры байты обнулились... Причем каждый раз обнуляется разное количество байт. А порой этого не происходит вообще. Чудеса?

[f.hump]

тоже думал об этом раньше, не помогло...

ну, если оставить glDisable(GL_DEPTH_TEST), то высота погоды не делает.

[Alexan-Dwer]

glEnable(GL_DEPTH_TEST);
...
glOrtho(0, 800, 600, 0, -1, 1);
...
//
glBegin(GL_QUADS);
//
glTexCoord2f(0, 0);
//
glVertex3f(0,   0, 0);
//
glTexCoord2f(1, 0);
//
glVertex3f(512, 0, 0);
//
glTexCoord2f(1, 1);
//
glVertex3f(512, 512, 0);
//
glTexCoord2f(0, 1);
//
glVertex3f(0,   512, 0);
//
glEnd; 
...
//
glBegin(GL_QUADS);
//
glTexCoord2f(0, 0);
//
glVertex3f(128,   64, 0.5);
//
glTexCoord2f(1, 0);
//
glVertex3f(256, 64, 0.5);
//
glTexCoord2f(1, 1);
//
glVertex3f(256, 128, 0.5);
//
glTexCoord2f(0, 1);
//
glVertex3f(128, 128, 0.5);
//
glEnd;

Результат тот же, что и на скриншотах.

Как можно отловить, из-за чего обнуляются байты текстуры?

[f.hump]

мысли закончились.

glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB8,
//
w, h, 0, GL_RGB, GL_UNSIGNED_BYTE, Data);


формат должен быть просто GL_RGB

OpenGL only allows "R", "RG", "RGB", or "RGBA"; other combinations are not allowed as internal image formats.

[Alexan-Dwer]

f.hump, пробовал я и GL_RGB и GL_RGBA, все тоже.

Может скинуть весь проект?

[f.hump]

не, не надо, мысли завели в тупик.

единственное, что еще могу предложить, так это поставить glFinish сразу после glTexImage2D.