X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_textures.pas;h=7e1bceaa7b7b1a3a164a23c138baaa2f1fdb1b46;hb=cd1d110f20a449413d8bce030b23847770d75d40;hp=e6246bcc0f833de66dd39080ce5893b272d2f8ad;hpb=c3be56f2a3849cd22be39ce594498c7990e05606;p=d2df-editor.git

diff --git a/src/engine/e_textures.pas b/src/engine/e_textures.pas
index e6246bc..7e1bcea 100644
--- a/src/engine/e_textures.pas
+++ b/src/engine/e_textures.pas
@@ -2,8 +2,7 @@
  *
  * 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
@@ -13,7 +12,7 @@
  * 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
@@ -76,8 +75,6 @@ function CreateTexture (var tex: GLTexture; Width, Height, aFormat: Word; pData:
 var
   Texture: GLuint;
   fmt: GLenum;
-  buf: PByte;
-  f, c: Integer;
 begin
   tex.width := Width;
   tex.height := Height;
@@ -216,12 +213,7 @@ 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;
   img: TImageData;
-  x, y: Integer;
-  clr: TColor32Rec;
 begin
   result := false;
   pWidth := 0;
@@ -245,7 +237,6 @@ 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;
   imageSize: Integer;
   img: TImageData;
   x, y: Integer;