index 53ad6c64ee378ac6512170b2cb32243ec289b18c..ae5cea44fa511f3597b9cf9a44591d52a4cc1533 100644 (file)
* 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 e_amodes.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;
+ //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;
+ //image, ii: PByte;
+ //width, height: Integer;
+ //imageSize: Integer;
img: TImageData;
- x, y: Integer;
- clr: TColor32Rec;
+ //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;
+ //width, height: Integer;
imageSize: Integer;
img: TImageData;
x, y: Integer;