- Function XRayLoadTexture(Datei: pANSIChar): gluInt;
- Var
- T: GluInt;
- Texture: PTAUX_RGBImageRec;
- Begin
- Texture:= auxDIBImageLoadA(Datei);
- If not Assigned(Texture) then
- MessageBox(0,'Kann die verk***te Textur nicht finden.', 'Knistiger Mist',MB_OK or MB_ICONERROR);
- glGenTextures(1, T);
- glBindTexture(GL_TEXTURE_2D, T);
- 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, Texture^.sizeX, Texture^.sizeY, 0, GL_RGB, GL_UNSIGNED_BYTE, Texture.data);
- XRayLoadTexture:= T;
- End;