OpenGL. Текстуры.

[_PROGRAMM_]

Добрый день. Опять я что-то неправильно "смешал". Изучая текстуры в OpenGL, решил (всегда так делаю) изменить код, а не списать. И что-то не так сделал. Получившийся куб не имеет текстуры, точнее самой текстурой является один и тот же цвет, а еще точнее - пиксель картинки 64 на 64. Исходник во "вложениях".
Буду благодарен.

[RomiKon]

Ну тут всё просто. Координаты текстуры тоже указывать надо. По вашему коду(особенно по комментарию) я вижу что вы не поняли принципа наложения текстур. Советую ознакомится с таковой ещё раз. А пока вот держите пример.

[_PROGRAMM_]

Спасибо большое. Перечитал NeHe. glTexCoord2f имеет два параметра. Это координаты текстуры, а не независимый прямоугольник. Немного иначе понял урок.

[_PROGRAMM_]

Не подскажите, почему текстура перевернутая?

Где-то спотыкался через такую тему.

[RomiKon]

Текстура перевёрнутая потому что в Windows принято что ось Y направлена вниз, а в OpenGL вверх. Проблема решается тремя способами:
1) направить ось Y в OpenGL вниз(самый плохой способ)
2) инвертировать второй параметр функции gltexcoord2f(x, 1-y);
3) перевернуть растр текстуры в любом графическом редакторе( я так всегда и делаю)

[_PROGRAMM_]

Спасибо большое. Извините, у меня еще один вопрос (надоел, наверное, я уже) думаю, что он будет в тему, так как мой способ не очень хорош (использование битмапа, цикла и т.д.).
Вот нашел код, который опубликовал XProger(не могу нарушать авторское право).

var
  F : File;
  Size : Integer;
  Data : Pointer;
begin
  AssignFile(F, 'myfileblabla.raw');
  Reset(F, 1);
  Size := FileSize(F);
  GetMem(Data, Size);
  BlockRead(F, Data^, Size);
  CloseFile(F);
  
  glGenTextures(1, @Result);
  glBindTexture(GL_TEXTURE_2D, Result);
... // какие-то дополнительные параметры текстуры
  glTexImage2D(......, Data);
  FreeMem(Data);
end;

Написано, что этот способ более эффективен, а точнее - быстрей. Меня интересует значение процедур и откуда берется Result:

  glGenTextures(1, @Result);
  glBindTexture(GL_TEXTURE_2D, Result);

. Почему-то в гугле не нашел. Узнал только о том, что без этих функций никак. Хотя убрав их, получается нормальная текстура, наверное.

Большое спасибо за ответы.

[RomiKon]

Ну начнём с того с в первой версии OpenGL чтобы заново использовать текстуру нужно было повторно загрузить её в память при помощи всем известной функции glTexImage2D. Это было очень неудобно поэтому в версии 1.1(вроде бы, а может в 1.2=)) ввели понятие текстурных объектов. Это такие указатели на область памяти в видеокарте. теперь благодаря им можно один раз загрузить текстуру в видео память и работать с ней через указатель. Был введён ряд новых функций.

  glGenTextures(count: Integer; var tex: PGLUint); 
  //эта функция генерирует count новых текстурных объектов и 
  //записываетуказатели на них в tex
  glGenTextures(1, @ID); // теперь в ID хранится указатель на одну текстуру
  // далее нужно как то указывать с какой текстурой мы хотим работать
  // для этого появилась функция 
  glBindTexture(GL_TEXTURE_2D, ID); // делает активной текстуру ID
  // теперь можно старыми методами загрузить текстуру
  // glTexImage или glBuild2DMipMaps

Откуда берётся Result? Так это же стандартная переменая любой функции, нужна для возврата значений
А вообще вам ещё рано так далеко уходить в изучении OpenGL.

[_PROGRAMM_]

Спасибо большое. Буду знать.
--Add
А что это за тип PGLUint? Указатель или что?

[RomiKon]

Ну это просто тип OPenGL, используй обычный Cardinal

[_PROGRAMM_]

Еще раз извините. Можете написать, а точнее дописать эти две строчки правильно(glGenTextures(1, @Result); glBindTexture(GL_TEXTURE_2D, Result); )? Я думаю, что нигде такой информации я не найду.
У меня delphi 7, поэтому заголовочный файл устаревший и данных процедур нет. Я их сам дописал (не знаю правильно ли) и не получил результата. В папку с приложением положил свой OpenGL.pas, поэтому, если будите компилировать удалите его. Еще одна просьба. Киньте свой OpenGL.pas, если он у вас "рабочий» (т.е. работают эти процедуры).

С огромным уважением.