equal
deleted
inserted
replaced
274 end; |
274 end; |
275 |
275 |
276 procedure Distort2(var Template: TEdgeTemplate; var pa: TPixAr); |
276 procedure Distort2(var Template: TEdgeTemplate; var pa: TPixAr); |
277 var i: Longword; |
277 var i: Longword; |
278 begin |
278 begin |
279 for i:= 1 to Template.BezierizeCount do |
279 //for i:= 1 to Template.BezierizeCount do |
280 DivideEdges(pa); |
280 // DivideEdges(pa); |
|
281 repeat |
|
282 i:= pa.Count; |
|
283 DivideEdges(pa) |
|
284 until i = pa.Count; |
281 |
285 |
282 {for i:= 1 to Template.BezierizeCount do |
286 {for i:= 1 to Template.BezierizeCount do |
283 begin |
287 begin |
284 BezierizeEdge(pa, _0_5); |
288 BezierizeEdge(pa, _0_5); |
285 RandomizePoints(pa); |
289 RandomizePoints(pa); |