hedgewars/uConsts.pas
changeset 1912 c3d31fb59f0e
parent 1910 ae0addb05791
child 1914 aab686a4e0c5
--- a/hedgewars/uConsts.pas	Sun Mar 22 20:56:22 2009 +0000
+++ b/hedgewars/uConsts.pas	Sun Mar 22 21:03:59 2009 +0000
@@ -120,16 +120,19 @@
 			Pos: LongWord;
 			AmmoType: TAmmoType;
 			end;
+
+	TVertex2f = record
+		X, Y: GLfloat;
+		end;
+			
 	TTexture = record
 			id: GLuint;
 			w, h: LongInt;
 			rx, ry: GLfloat;
+			vb, tb: array [0..3] of TVertex2f;
 			end;
 	PTexture = ^TTexture;
 
-	TVertex2f = record
-		X, Y: GLfloat;
-		end;
 const
 	errmsgCreateSurface   = 'Error creating SDL surface';
 	errmsgTransparentSet  = 'Error setting transparent color';