390        for i:= x1 to x2 do Land[k, i]:= $FFFFFF

   390        for i:= x1 to x2 do Land[k, i]:= $FFFFFF

   391    end

   391    end

   392 end;

   392 end;

   393 

   393 

   394 procedure AddHHPoints;

   394 procedure AddHHPoints;

   396 

   396 

   397     function CountNonZeroz(x, y: integer): integer;

   397     function CountNonZeroz(x, y: integer): integer;

   398     var i: integer;

   398     var i: integer;

   399     begin

   399     begin

   400     Result:= 0;

   400     Result:= 0;

   402     for i:= max(x - 6, 0) to min(x + 6, 2043) do

   402     for i:= max(x - 6, 0) to min(x + 6, 2043) do

   403         if Land[y, i] <> 0 then inc(Result)

   403         if Land[y, i] <> 0 then inc(Result)

   404     end;

   404     end;

   405 

   405 

   406 begin

   406 begin

   408     begin

   409     begin

   409     y:= -24;

   410     y:= -24;

   411     while y < 1023 do

   411     while y < 1023 do

   412           begin

   412           begin

   413           repeat

   413           repeat

   414           inc(y, 2);

   414           inc(y, 2);

   415           until (y > 1023) or (CountNonZeroz(x, y) = 0);

   415           until (y > 1023) or (CountNonZeroz(x, y) = 0);

   419           inc(t, 2)

   419           inc(t, 2)

   420           until (y > 1023) or (CountNonZeroz(x, y) <> 0);

   420           until (y > 1023) or (CountNonZeroz(x, y) <> 0);

   421           if (t > 22) and (y < 1023) then AddHHPoint(x, y - 12);

   421           if (t > 22) and (y < 1023) then AddHHPoint(x, y - 12);

   422           inc(y, 100)

   422           inc(y, 100)

   423           end;

   423           end;

   424     end;

   425     end;

   425 end;

   426 end;

   426 

   427 

   427 procedure GenLandSurface;

   428 procedure GenLandSurface;

   428 var pa: TPixAr;

   429 var pa: TPixAr;