equal
deleted
inserted
replaced
80 fps^[i].y:= LAND_HEIGHT - 1 - fps^[i].y; |
80 fps^[i].y:= LAND_HEIGHT - 1 - fps^[i].y; |
81 end; |
81 end; |
82 end |
82 end |
83 end; |
83 end; |
84 |
84 |
85 |
|
86 procedure Distort1(var Template: TEdgeTemplate; var pa: TPixAr); |
|
87 var i: Longword; |
|
88 begin |
|
89 for i:= 1 to Template.BezierizeCount do |
|
90 begin |
|
91 BezierizeEdge(pa, _0_5); |
|
92 RandomizePoints(pa); |
|
93 RandomizePoints(pa) |
|
94 end; |
|
95 for i:= 1 to Template.RandPassesCount do |
|
96 RandomizePoints(pa); |
|
97 BezierizeEdge(pa, _0_1); |
|
98 end; |
|
99 |
|
100 procedure FindPoint(si: LongInt; fillPointsCount: LongWord; var newPoint: TPoint; var pa: TPixAr); |
85 procedure FindPoint(si: LongInt; fillPointsCount: LongWord; var newPoint: TPoint; var pa: TPixAr); |
101 const mapBorderMargin = 40; |
86 const mapBorderMargin = 40; |
102 var p1, p2, p4, fp, mp: TPoint; |
87 var p1, p2, p4, fp, mp: TPoint; |
103 i, t1, t2, iy, ix, aqpb: LongInt; |
88 i, t1, t2, iy, ix, aqpb: LongInt; |
104 a, b, p, q: LongInt; |
89 a, b, p, q: LongInt; |