hedgewars/uLandObjects.pas
changeset 7035 823caba67738
parent 7021 0c75512a8920
child 7053 8c9dcaedc7a8
equal deleted inserted replaced
7034:e3639ce1d4f8 7035:823caba67738
    35 
    35 
    36 const MaxRects = 512;
    36 const MaxRects = 512;
    37       MAXOBJECTRECTS = 16;
    37       MAXOBJECTRECTS = 16;
    38       MAXTHEMEOBJECTS = 32;
    38       MAXTHEMEOBJECTS = 32;
    39 
    39 
    40 type PRectArray = ^TRectsArray;
    40 type TRectsArray = array[0..MaxRects] of TSDL_Rect;
    41      TRectsArray = array[0..MaxRects] of TSDL_Rect;
    41      PRectArray = ^TRectsArray;
    42      TThemeObject = record
    42      TThemeObject = record
    43                      Surf: PSDL_Surface;
    43                      Surf: PSDL_Surface;
    44                      inland: TSDL_Rect;
    44                      inland: TSDL_Rect;
    45                      outland: array[0..Pred(MAXOBJECTRECTS)] of TSDL_Rect;
    45                      outland: array[0..Pred(MAXOBJECTRECTS)] of TSDL_Rect;
    46                      rectcnt: Longword;
    46                      rectcnt: Longword;