equal
deleted
inserted
replaced
7 procedure DivideEdges(fillPointsCount: LongWord; var pa: TPixAr); |
7 procedure DivideEdges(fillPointsCount: LongWord; var pa: TPixAr); |
8 |
8 |
9 var minDistance, dabDiv: LongInt; // different details size |
9 var minDistance, dabDiv: LongInt; // different details size |
10 |
10 |
11 implementation |
11 implementation |
12 uses uVariables, uTypes, uConsts, uFloat, uLandUtils, uRandom, SDLh, math; |
12 uses uVariables, uConsts, uFloat, uLandUtils, uRandom, SDLh, math; |
13 |
13 |
14 |
14 |
15 procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray); |
15 procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray); |
16 var i: LongInt; |
16 var i: LongInt; |
17 begin |
17 begin |