equal
deleted
inserted
replaced
12 procedure DrawEdge(var pa: TPixAr; value: Word); |
12 procedure DrawEdge(var pa: TPixAr; value: Word); |
13 procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat); |
13 procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat); |
14 |
14 |
15 implementation |
15 implementation |
16 |
16 |
17 uses uLandGraphics, uDebug, uVariables, uLandTemplates, uLandUtils; |
17 uses uLandGraphics, uDebug, uVariables, uLandTemplates; |
18 |
18 |
19 |
19 |
20 var Stack: record |
20 var Stack: record |
21 Count: Longword; |
21 Count: Longword; |
22 points: array[0..8192] of record |
22 points: array[0..8192] of record |