index e6246bcc0f833de66dd39080ce5893b272d2f8ad..7e1bceaa7b7b1a3a164a23c138baaa2f1fdb1b46 100644 (file)
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
unit e_textures;
{ This unit provides interface to load 24-bit and 32-bit uncompressed images
var
Texture: GLuint;
fmt: GLenum;
- buf: PByte;
- f, c: Integer;
begin
tex.width := Width;
tex.height := Height;
function LoadTextureMem (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
var
- image, ii: PByte;
- width, height: Integer;
- imageSize: Integer;
img: TImageData;
- x, y: Integer;
- clr: TColor32Rec;
begin
result := false;
pWidth := 0;
function LoadTextureMemEx (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; fX, fY, fWidth, fHeight: Word; Fmt: PWord=nil): Boolean;
var
image, ii: PByte;
- width, height: Integer;
imageSize: Integer;
img: TImageData;
x, y: Integer;