GL_TEXTURE_MAG_FILTER - устанавливает функцию используемую при увеличении текстуры. Если ты решил её изменить, то ты должен установить GL_TEXTURE_MAG_FILTER вторым параметром в glTexParameteri, а третий сможет принимать значения:

GL_TEXTURE_WRAP_S - устанавливает повторения текстуры по координате S. Может принимать значения:

GL_TEXTURE_WRAP_Т - то же самое, что и GL_TEXTURE_WRAP_S, только для координаты Т. Возможные значения третьего параметра те же.

GL_TEXTURE_BORDER_COLOR - устанавливает цвет обрамления текстуры. При этом параметре, третий сможет принимать значение массива из четырёх значений, которые интерпретируются как цвет (RGBA). Пор умолчанию (0,0,0,0).

Теперь перейдём к функции glTexEnvf. Она устанавливает параметры среды текстуры. Первый параметр должен быть GL_TEXTURE_ENV. Второй должен быть GL_TEXTURE_ENV_MODE. Третий может принимать значения GL_MODULATE, GL_DECAL или GL_BLEND. Я использую второй параметр, а ты можешь попробовать другие и посмотреть на результат.

Функция glTexImage2d устанавливает 2D текстуру. Первый параметр должен быть GL_TEXTURE_2D. Второй параметр - уровень детализации текстуры (0 - основной). Третий - количество цветовых компонент в текстуре (может быть 1,2,3 или 4). Дальше идёт ширина и высота. Дальше идёт обрамление (может быть 0 или 1). Я использую 0, чтобы не было никаких обрамлений. Далее - формат, в котором хранятся цветовые данные в массиве. Здесь могут быть значения GL_COLOR_INDEX, GL_RED, GL_GREEN, GL_BLUE, GL_ALPHA, GL_RGB, GL_RGBA, GL_LUMINANCE или GL_LUMINANCE_ALPHA. Предпоследний параметр - тип в котором хранятся цветовые данные (может быть GL_UNSIGNED_BYTE, GL_BYTE, GL_BITMAP, GL_UNSIGNED_SHORT, GL_SHORT, GL_UNSIGNED_INT, GL_INT или GL_FLOAT). Последний параметр - указатель на массив текстуры.

Надо заметить, что в качестве последнего параметра должна передаватся реальная ссылка на текстуру. Прежде чем вызывать glTexImage2d, текстура должна быть уже загружена и подготовлена в этой переменной. Чуть позже я покажу, как загружается текстура.

После всех этих настроек, можно включить текстуру. Я это дулаю с помощью:

 glEnable(GL_TEXTURE_GEN_S);
 glEnable(GL_TEXTURE_GEN_T);
 glEnable(GL_TEXTURE_2D);

Первые две необязательны. Они просто включают использование определённых функций текстуры. Я их привёл только для примера, и в большинстве случаев они вам не понадобятся. Последний непосредственно включает показ текстуры. Теперь, все объекты которые мы будем рисовать, будут обтянуты выбранной текстурой. Это будет происходить, пока мы не отключим текстуру с помощью glDisable(GL_TEXTURE_2D) .

Всё остальное должно быть понятно. Так что давай ещё рассмотрим процедуру для загрузки текстуры из системной иконки.

procedure TForm1.GetTexture;
var
 BMInfo      :TBitmapInfo;
 I,ImageSize :Integer;
 Temp        :Byte;
 Bitmap      :Graphics.TBitmap;
 TempImage   :TBitmap;
 MemDC       : HDC;
begin
 //Подготавливаю переменные, для работы с картинками.
 Bitmap:=TBitmap.Create;
 TempImage:=TBitmap.Create;
 TempImage.Width:=32;
 TempImage.Height:=32;
 //Прорисовываю системную иконку (Icon) в TempImage
 //Если захочешь использовать текстуру из BMP файла
 //то можно его напрямую засунуть в TempImage.
 //Для этого достаточно написать TempImage.LoadFromFile('filename.bmp');
 TempImage.Canvas.Draw(0,0,Icon);
 //Определяю ближайшие размеры текстуры которые воспримет OpenGL.
 Bitmap.Width:=RoundUpToPowerOf2(TempImage.Width);
 Bitmap.Height:=RoundUpToPowerOf2(TempImage.Height);
 //Копирую текстуру из TempImage в Bitmap с учётом размеров 
 //воспринимаемых OpenGL
 Bitmap.Canvas.CopyRect(Rect(0,0,Bitmap.Width,Bitmap.Height), 
        TempImage.Canvas, Rect(0,0,32,32));
 //Создаю контекст в памяти.
 MemDC:=CreateCompatibleDC(0);
 try
  with bitmap do
   begin
    ImageSize:=bitmap.Width*bitmap.Height;
    TextureW:=bitmap.Width;
    TextureH:=bitmap.Height;
//Выделяю память для переменной Texture, в которой будет
//хранится преобразованная текстура. Обрати внимание, как она
//объявлена.
    GetMem(Texture,ImageSize*3);
    MemDC:=CreateCompatibleDC(0);
    FillChar(BMInfo,SizeOf(BMInfo),0);
//Заполняю BMInfo информацией о текстуре.
    With BMInfo.bmiHeader do
     begin
      biSize:=sizeof(TBitmapInfoHeader);
      biBitCount:=24;
      biWidth:=bitmap.Width;
      biHeight:=-bitmap.Height;
      biPlanes:=1;
      biCompression:=BI_RGB;
     end;
//Копирую данные из Bitmap в Texture
    GetDIBits(MemDC,Bitmap.Handle,0,bitmap.Height,
        Texture,BMInfo,DIB_RGB_COLORS);
  {$R-}
//Запускаю цикл, в котором меняются местами цветовые
//компоненты красного и голубого т.е. идёт перевод из RGB в BGR
    for i:=0 to ImageSize-1 do
     begin
      Temp:=Texture^[i*3];
      Texture^[I*3]:=Texture^[I*3+2];
      Texture^[I*3+2]:=Temp;
     end;
  {$R-}
    glPixelStorei(GL_UNPACK_ALIGNMENT,0);
    glPixelStorei(GL_UNPACK_ROW_LENGTH,0);
    glPixelStorei(GL_UNPACK_SKIP_ROWS,0);
    glPixelStorei(GL_UNPACK_SKIP_PIXELS,0);
   end;
 finally
//Освобождаю всё не нужное.
  Bitmap.Free;
  TempImage.Free;
  DeleteDC(MemDC);
 end;
end;

Я не буду её расписывать, потому что она не совсем относится к OpenGL, но я постарался снабдить текст комментариями, чтобы можно было разобраться. Обязательно посмотри на них, там я описал много интересного. Для большей ясности я дам ещё несколько заметок:

function TForm1.RoundUpToPowerOf2(Value: Integer): Integer;
var
  LogTwo : Extended;
begin
 LogTwo:=log2(Value);
 if Trunc(LogTwo) < LogTwo then
  Result:=Trunc(Power(2,Trunc(LogTwo)+1))
 else
  Result:=value;
end;

На сегодня всё. Можешь качать и играться с исходниками.

 Исходники примера забирай здесь Заголовочные файлы возьми на моей страничке в разделе "Полезности".