hedgewars/uLandTemplates.pas
changeset 109 ab0340f580c2
parent 107 b08ce0293a51
child 160 207f520b9e83
equal deleted inserted replaced
108:08f1fe6f21f8 109:ab0340f580c2
    35 interface
    35 interface
    36 uses SDLh;
    36 uses SDLh;
    37 {$INCLUDE options.inc}
    37 {$INCLUDE options.inc}
    38 
    38 
    39 type PPointArray = ^TPointArray;
    39 type PPointArray = ^TPointArray;
    40      TPointArray = array[0..0] of TPoint;
    40      TPointArray = array[0..64] of TPoint;
    41      TEdgeTemplate = record
    41      TEdgeTemplate = record
    42                      BasePoints: PPointArray;
    42                      BasePoints: PPointArray;
    43                      BasePointsCount: Longword;
    43                      BasePointsCount: Longword;
    44                      BezPassCnt: Longword; 
    44                      BezPassCnt: Longword; 
    45                      PassMin, PassDelta: Longword;
    45                      PassMin, PassDelta: Longword;