hedgewars/uLand.pas
changeset 495 62c1c2b4414c
parent 431 79ac59673df3
child 498 9c8b385dc9a1
equal deleted inserted replaced
494:503758a35c02 495:62c1c2b4414c
   210 pa.ar[pa.Count].y:= opa.ar[StartI].Y;
   210 pa.ar[pa.Count].y:= opa.ar[StartI].Y;
   211 inc(pa.Count)
   211 inc(pa.Count)
   212 end;
   212 end;
   213 
   213 
   214 procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat);
   214 procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat);
   215 var x, y, i, StartLoop: LongInt;
   215 var i, StartLoop: LongInt;
   216     opa: TPixAr;
   216     opa: TPixAr;
   217 begin
   217 begin
   218 opa:= pa;
   218 opa:= pa;
   219 pa.Count:= 0;
   219 pa.Count:= 0;
   220 i:= 0;
   220 i:= 0;