19 unit uLandTemplates;

    19 unit uLandTemplates;

    20 interface

    20 interface

    21 uses SDLh;

    21 uses SDLh;

    22 {$INCLUDE options.inc}

    22 {$INCLUDE options.inc}

    23 

    23 

    25 

    25 

    26 type PPointArray = ^TPointArray;

    26 type PPointArray = ^TPointArray;

    27      TPointArray = array[0..64] of TSDL_Rect;

    27      TPointArray = array[0..64] of TSDL_Rect;

    28      TEdgeTemplate = record

    28      TEdgeTemplate = record

    29                      BasePoints: PPointArray;

    29                      BasePoints: PPointArray;

    30                      BasePointsCount: Longword;

    30                      BasePointsCount: Longword;

    31                      FillPoints: PPointArray;

    31                      FillPoints: PPointArray;

    32                      FillPointsCount: Longword;

    32                      FillPointsCount: Longword;

    33                      BezierizeCount: Longword;

    33                      BezierizeCount: Longword;

    34                      RandPassesCount: Longword;

    34                      RandPassesCount: Longword;

    36                      canMirror, canFlip, isNegative, canInvert: boolean;

    36                      canMirror, canFlip, isNegative, canInvert: boolean;

    37                      end;

    38                      end;

    38 

    39 

    39 //////////////////////////////////////////////////////////////////////////////

    40 //////////////////////////////////////////////////////////////////////////////

    40 /////////////////// MIRRORED FOUR TIMES //////////////////////////////////////

    41 /////////////////// MIRRORED FOUR TIMES //////////////////////////////////////

    41 //////////////////////////////////////////////////////////////////////////////

    42 //////////////////////////////////////////////////////////////////////////////

    81         FillPointsCount: Succ(High(Template0FPoints));

    82         FillPointsCount: Succ(High(Template0FPoints));

    82         BezierizeCount: 4;

    83         BezierizeCount: 4;

    83         RandPassesCount: 12;

    84         RandPassesCount: 12;

    84         TemplateHeight: 1024; TemplateWidth: 4096;

    85         TemplateHeight: 1024; TemplateWidth: 4096;

    85         canMirror: true; canFlip: false; isNegative: true; canInvert: false;

    86         canMirror: true; canFlip: false; isNegative: true; canInvert: false;

    86        )

    88        )

    87       );

    89       );

    88 

    90 

    89 

    91 

    90 

    92