equal
deleted
inserted
replaced
169 if x + bottomPlateMargin + bottomPlateHeight > width then |
169 if x + bottomPlateMargin + bottomPlateHeight > width then |
170 r:= r - (x - width + bottomPlateMargin + bottomPlateHeight); |
170 r:= r - (x - width + bottomPlateMargin + bottomPlateHeight); |
171 end; |
171 end; |
172 } |
172 } |
173 |
173 |
174 if r < rCutoff then Land[y, x]:= 0 else Land[y, x]:= lfObjMask; |
174 if r < rCutoff then |
175 |
175 Land[y, x]:= 0 |
|
176 else if param1 = 0 then |
|
177 Land[y, x]:= lfObjMask |
|
178 else |
|
179 Land[y, x]:= lfBasic |
176 end; |
180 end; |
177 end; |
181 end; |
178 |
182 |
179 if param1 = 0 then |
183 if param1 = 0 then |
180 begin |
184 begin |