equal
deleted
inserted
replaced
497 inc(c); |
497 inc(c); |
498 end; |
498 end; |
499 |
499 |
500 if c < 4 then // 0-3 neighbours |
500 if c < 4 then // 0-3 neighbours |
501 begin |
501 begin |
502 LandPixels[Y, X]:= ToggleLongInt(Land[Y, X] = COLOR_LAND, LandBackPixel(X, Y), 0); |
502 if Land[Y, X] = COLOR_LAND then LandPixels[Y, X]:= LandBackPixel(X, Y) else LandPixels[Y, X]:= 0; |
503 Land[Y, X]:= 0; |
503 Land[Y, X]:= 0; |
504 exit(true); |
504 exit(true); |
505 end; |
505 end; |
506 end; |
506 end; |
507 Despeckle:= false |
507 Despeckle:= false |