equal
deleted
inserted
replaced
100 end; |
100 end; |
101 inc(dx) |
101 inc(dx) |
102 end; |
102 end; |
103 if (dx = dy) then ChangeCircleLines(x, y, dx, dy, Delta); |
103 if (dx = dy) then ChangeCircleLines(x, y, dx, dy, Delta); |
104 end; |
104 end; |
105 |
|
106 |
105 |
107 procedure ClearLandPixel(y, x: LongInt); |
106 procedure ClearLandPixel(y, x: LongInt); |
108 var p: PByteArray; |
107 var p: PByteArray; |
109 begin |
108 begin |
110 p:= @PByteArray(LandSurface^.pixels)^[LandSurface^.pitch * y]; |
109 p:= @PByteArray(LandSurface^.pixels)^[LandSurface^.pitch * y]; |