Прозрачность TGA текстур в OpenGL.

[_PROGRAMM_]

Добрый день. Начну сразу со своей проблемы. Я хочу на OpenGL прозрачную, но не полностью, текстуру в формате TGA (с альфа-каналом). Изучая особенности загрузки таких файлов, сделал свою небольшую функцию. Включил ее в код и начал создавать элементарное графическое приложение в delphi с помощью библиотеки OpenGL. И вот настал момент компиляции. Я обрадовался. Да вот получилось совсем не то, что нужно. Все подозрения упали на мною созданную функцию для загрузки TGA изображений. Я где-то раздобыл тестовое приложение (прикрепил к сообщению), и там была найдена схожая с моей, опять же для загрузки текстур, функция. Пришлось подключать файл TGATexture.pas(Из стороннего приложения для загрузки изображений TGA. Этот .pas тоже прикреплен), чтобы использовать LoadTexture(Name:String; Tex:GLuint):boolean. После замены функции я получил такой же результат. Появилось мнение, что текстура выполнена не качественно (имеется в виду неправильный альфа-канал), но при замене текстуры в стороннем приложении, которое я прикрепил, она прекрасно отображалась. Итак, что мы имеем:
1. Качественную текстуру. (т.е. она правильно отображается в приложениях).
2.Модуль TGATexture.pas, который содержит функцию загрузки текстуры и используется в рабочем приложении.
3. Мое не очень хорошее и не рабочее приложение, в котором, кажется, и содержится ошибка.
Все что мне нужно это указание на ошибку. По возможности расскажите, как ее исправить.
С уважением Владислав.

[RomiKon]

Что ж я вам посоветую только одно. Прежде чем использовать чужие библиотеки внимательно изучите их. Непосредственно в вашем коде я нашёл несколько ошибок исправил и получил нужный результат. Пока что я вам не буду говорить что именно не правильно, попробуйте сами. Скажу одно - вы не ознакомились с функцией LoadTexture. Посмотрите внимательно что она делает и ответ придёт сам.

[_PROGRAMM_]

Честно скажу, что я так и не нашел ошибку. Может быть знаний маловато. Было у меня предположение об отсутствии вот таких строк:

glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
и т.д.

Но к сожалению они мне никакой помощи не оказали. И плюс ко всему в функции CreateTexture того же файла эти строки есть. Возможно я неправильно написал параметры. В общем, жажду узнать свою ошибку. Мне очень интересно в чем же она заключается.

[RomiKon]

Сейчас не дома поэтому на коде не покажу. В общем LoadTexture не только грузит инфо о изображении но ещё и сама создаёт текстуру. А вы зачем то потом ещё раз создаёте её и всё ваше изображение так и не попадает вам а в руки а начинает блуждать по видяхе. Короче вызываешь LoadTexture и всё ни каких GenTextures потом не надо выдумывать. Функция всё сделает за вас.

[_PROGRAMM_]

Спасибо вам большое.

__ADD
Вот все равно я "накосячил". Текстура уже местами прозрачная, но теперь она как бы... Я не могу это объяснить. Прикреплю исходник.
Еще раз очень благодарю за помощь
__2ADD
Все проблему решил. Я неправильно накладывал текстуру glTexCoord2f;