OpenGL Textures

// Регистрация текстуры
function prepareTexture: GLuint;
    var texture_data: array [0..res_y - 1, 0..res_x - 1, 0..2] of byte;
            texture_id: GLuint;
            x, y: integer;
            color: TColor;
begin
    // Здесь каким-то образом заполняется массив texture_data
    glEnable(GL_TEXTURE_2D); // включить обработку текстур
  glGenTextures(1, @texture_id); // записать в texture_id число, идентефицирующее новую текстуру
  glBindTexture(GL_TEXTURE_2D, texture_id); // сделать текстуру с номером texture_id текущей
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); // настройка интерполяции
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); // настройка замощения
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
  glTexImage2D(GL_TEXTURE_2D, 0, 3, res_x, res_y, 0, GL_RGB, GL_UNSIGNED_BYTE, @texture_data);
  // загрузить текстуру в память видеокарты, параметры можно воспринимать как иероглифы
end;

// Рисование сферы, на которую можно наложить текстуру
procedure drawSphere;
  var sphere: PGLUquadricObj;
begin
  sphere := gluNewQuadric();
  gluQuadricTexture(sphere, GL_TRUE);
    gluSphere(sphere, 1.0, 20, 20);
  gluDeleteQuadric(sphere);
end;