From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Wed, 16 Aug 2017 07:42:42 +0000 (+0300)
Subject: cosmetix
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=0cf82d25f7ffee01d662d9d11793077805a263cb;p=d2df-sdl.git

cosmetix
---

diff --git a/src/engine/e_textures.pas b/src/engine/e_textures.pas
index 53ad6c6..8dfd2cc 100644
--- a/src/engine/e_textures.pas
+++ b/src/engine/e_textures.pas
@@ -75,8 +75,8 @@ function CreateTexture (var tex: GLTexture; Width, Height, aFormat: Word; pData:
 var
   Texture: GLuint;
   fmt: GLenum;
-  buf: PByte;
-  f, c: Integer;
+  //buf: PByte;
+  //f, c: Integer;
 begin
   tex.width := Width;
   tex.height := Height;
@@ -215,12 +215,12 @@ end;
 
 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;
@@ -244,7 +244,7 @@ end;
 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;