hedgewars/uLandTemplates.pas
changeset 7976 e1029baf2483
parent 7857 2bc61f8841a1
child 8026 4a4f21070479
child 9058 1d58ca61bdcd
equal deleted inserted replaced
7974:7ac6699b6228 7976:e1029baf2483
    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 TRectArray = array[0..64] of TSDL_Rect;
    27 type TPointArray = array[0..64] of TSDL_Rect;
    28      PRectArray = ^TRectArray;
       
    29      TPointArray = array[0..64] of TPoint;
       
    30      PPointArray = ^TPointArray;
    28      PPointArray = ^TPointArray;
    31      TEdgeTemplate = record
    29      TEdgeTemplate = record
    32                      BasePoints: PRectArray;
    30                      BasePoints: PPointArray;
    33                      BasePointsCount: Longword;
    31                      BasePointsCount: Longword;
    34                      FillPoints: PPointArray;
    32                      FillPoints: PPointArray;
    35                      FillPointsCount: Longword;
    33                      FillPointsCount: Longword;
    36                      BezierizeCount: Longword;
    34                      BezierizeCount: Longword;
    37                      RandPassesCount: Longword;
    35                      RandPassesCount: Longword;