equal
deleted
inserted
replaced
1 unit uLandGenTemplateBased; |
1 unit uLandGenTemplateBased; |
2 interface |
2 interface |
3 |
3 |
4 uses uLandTemplates; |
4 uses uLandTemplates, uLandOutline; |
5 |
5 |
6 procedure GenTemplated(var Template: TEdgeTemplate); |
6 procedure GenTemplated(var Template: TEdgeTemplate); |
|
7 procedure DivideEdges(fillPointsCount: LongWord; var pa: TPixAr); |
7 |
8 |
8 implementation |
9 implementation |
9 uses uVariables, uConsts, uFloat, uLandOutline, uLandUtils, uRandom, SDLh, math; |
10 uses uVariables, uConsts, uFloat, uLandUtils, uRandom, SDLh, math; |
10 |
11 |
11 |
12 |
12 procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray); |
13 procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray); |
13 var i: LongInt; |
14 var i: LongInt; |
14 begin |
15 begin |