hedgewars/uTypes.pas
changeset 4379 6cd6b77df8b8
parent 4367 f4a0ec067601
child 4420 6be946bcd17a
equal deleted inserted replaced
4378:91655618a510 4379:6cd6b77df8b8
   218     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   218     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   219     TVisualGear = record
   219     TVisualGear = record
   220         NextGear, PrevGear: PVisualGear;
   220         NextGear, PrevGear: PVisualGear;
   221         Frame,
   221         Frame,
   222         FrameTicks: Longword;
   222         FrameTicks: Longword;
   223         X : float;
   223         X : real;
   224         Y : float;
   224         Y : real;
   225         dX: float;
   225         dX: real;
   226         dY: float;
   226         dY: real;
   227         tdX: float;
   227         tdX: real;
   228         tdY: float;
   228         tdY: real;
   229         State : Longword;
   229         State : Longword;
   230         Timer: Longword;
   230         Timer: Longword;
   231         Angle, dAngle: real;
   231         Angle, dAngle: real;
   232         Kind: TVisualGearType;
   232         Kind: TVisualGearType;
   233         doStep: TVGearStepProcedure;
   233         doStep: TVGearStepProcedure;