hedgewars/uLandTemplates.pas
changeset 7556 4617e8ec0507
parent 7480 536f5f3260f1
child 7563 09a44c8fbfba
equal deleted inserted replaced
7554:e50b266ed85a 7556:4617e8ec0507
    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;