- VAR
- tex: PTAUX_RGBImageRec;
- begin
- tex := AuxDIBImageLoadA('c:/windows/kacheln.bmp');
- glGenTextures(1, tex.data);
- glBindTexture(GL_TEXTURE_2D, tex.sizeX);
- glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
- glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);
- glTexImage2D(GL_TEXTURE_2D, 0, 3,
- tex^.sizeX, tex^.sizeY, 0,
- GL_RGB, GL_UNSIGNED_BYTE, tex^.data);