equal
deleted
inserted
replaced
14 procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat); |
14 procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat); |
15 procedure RandomizePoints(var pa: TPixAr); |
15 procedure RandomizePoints(var pa: TPixAr); |
16 |
16 |
17 implementation |
17 implementation |
18 |
18 |
19 uses uLandGraphics, uDebug, uVariables, uLandTemplates, uMisc, uRandom, uUtils; |
19 uses uLandGraphics, uDebug, uVariables, uLandTemplates, uRandom, uUtils; |
20 |
20 |
21 |
21 |
22 |
22 |
23 var Stack: record |
23 var Stack: record |
24 Count: Longword; |
24 Count: Longword; |