changed license to GPLv3 only; sorry, no trust to FSF anymore

[d2df-editor.git] / src / engine / e_graphics.pas

diff --git a/src/engine/e_graphics.pas b/src/engine/e_graphics.pas
index 63a9e5bc113c6569f0cda0a65bcf5bc5d63c9bd6..96513d90755f8abcbe1e5237a36767dd8c45316f 100644 (file)
--- a/src/engine/e_graphics.pas
+++ b/src/engine/e_graphics.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_graphics;
 
 interface
@@ -37,7 +36,7 @@ type
     X, Y: Double;
   end;
 
-  TRect = record
+  TRectE = record
     Left, Top, Right, Bottom: Integer;
   end;
 
@@ -52,7 +51,7 @@ type
 
   PPoint = ^TPoint;
   PPoint2f = ^TPoint2f;
-  PRect = ^TRect;
+  PRect = ^TRectE;
   PRectWH = ^TRectWH;
 
 
@@ -126,7 +125,7 @@ procedure e_EndRender();
 function _RGB(Red, Green, Blue: Byte): TRGB;
 function _Point(X, Y: Integer): TPoint2i;
 function _Rect(X, Y: Integer; Width, Height: Word): TRectWH;
-function _TRect(L, T, R, B: LongInt): TRect;
+function _TRect(L, T, R, B: LongInt): TRectE;
 
 //function e_getTextGLId (ID: DWORD): GLuint;
 
@@ -1522,7 +1521,7 @@ begin
  Result.Height := Height;
 end;
 
-function _TRect(L, T, R, B: LongInt): TRect;
+function _TRect(L, T, R, B: LongInt): TRectE;
 begin
  Result.Top := T;
  Result.Left := L;