anchor.diff:  
   {Reveal whole map to max value}
   procedure TKMFogOfWar.RevealEverything;
  -var I,K: Word;
  +var
  +  I,K: Word;
   begin
     for I := 0 to MapY - 1 do
       for K := 0 to MapX - 1 do
  
positive.code: 
    //Check all four corners and choose max
    Result := CheckVerticeRev(aRevArray,X-1,Y-1);
    if Result = 255 then exit;
    if X <= MapX-1 then Result := max(Result, CheckVerticeRev(aRevArray,X,Y-1));
    if Result = 255 then exit;
    if (X <= MapX-1) and (Y <= MapY-1) then Result := max(Result, CheckVerticeRev(aRevArray,X,Y));
    if Result = 255 then exit;
    if Y <= MapY-1 then Result := max(Result, CheckVerticeRev(aRevArray,X-1,Y));
  end;
  
  
  
negative.code: 
  
  procedure TKMFogOfWar.CoverEverything;
  var
    I,K: Word;
  begin
    for I := 0 to MapY - 1 do
      for K := 0 to MapX - 1 do
  