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