hedgewars/uLandTemplates.pas
changeset 7035 823caba67738
parent 6982 8d41d22a291d
child 7046 acc6b5159cde
equal deleted inserted replaced
7034:e3639ce1d4f8 7035:823caba67738
    22 interface
    22 interface
    23 uses SDLh;
    23 uses SDLh;
    24 
    24 
    25 const NTPX = Low(SmallInt);
    25 const NTPX = Low(SmallInt);
    26 
    26 
    27 type PPointArray = ^TPointArray;
    27 type TPointArray = array[0..64] of TSDL_Rect;
    28      TPointArray = array[0..64] of TSDL_Rect;
    28      PPointArray = ^TPointArray;
    29      TEdgeTemplate = record
    29      TEdgeTemplate = record
    30                      BasePoints: PPointArray;
    30                      BasePoints: PPointArray;
    31                      BasePointsCount: Longword;
    31                      BasePointsCount: Longword;
    32                      FillPoints: PPointArray;
    32                      FillPoints: PPointArray;
    33                      FillPointsCount: Longword;
    33                      FillPointsCount: Longword;