--- 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';