hedgewars/uLandTemplates.pas
changeset 6552 91adc9ee7b8c
parent 4976 088d40d8aba2
child 6553 91365db8b82c
equal deleted inserted replaced
6551:a2f39cb9af62 6552:91adc9ee7b8c
    20 
    20 
    21 unit uLandTemplates;
    21 unit uLandTemplates;
    22 interface
    22 interface
    23 uses SDLh;
    23 uses SDLh;
    24 
    24 
    25 const NTPX = Low(TSDL_Rect.x);
    25 const NTPX = Low(LongInt);
    26 
    26 
    27 type PPointArray = ^TPointArray;
    27 type PPointArray = ^TPointArray;
    28      TPointArray = array[0..64] of TSDL_Rect;
    28      TPointArray = array[0..64] of TSDL_Rect;
    29      TEdgeTemplate = record
    29      TEdgeTemplate = record
    30                      BasePoints: PPointArray;
    30                      BasePoints: PPointArray;