hedgewars/uTypes.pas
changeset 10874 059a6492176e
parent 10829 158b5dd6b3c9
child 10886 99273b7afbff
child 11046 47a8c19ecb60
--- a/hedgewars/uTypes.pas	Tue Mar 24 21:18:05 2015 +0100
+++ b/hedgewars/uTypes.pas	Wed Mar 25 20:30:52 2015 +0100
@@ -283,6 +283,7 @@
             Tint: LongWord;         // Used to colour a texture
             LinkedGear: PGear;      // Used to track a related gear. Portal pairs for example.
             SoundChannel: LongInt;  // Used to track a sound the gear started
+            Data: Pointer; // pointer to gear type specific data structure (if any)
             end;
     TPGearArray = array of PGear;
     PGearArrayS = record
@@ -516,6 +517,19 @@
             getDimensions, getImageDimensions: boolean;
             end;
 
+    // gear data types
+
+    const cakeh =   27;
+
+    type TCakeData = record
+        CakeI: integer;
+        CakePoints: array[0..Pred(cakeh)] of record
+            x, y: hwFloat;
+        end;
+    end;
+
+    PCakeData = ^TCakeData;
+
 implementation
 
 end.