anchor.diff:  
   //Render debug symbols
   procedure TKMInfluences.Paint(aRect: TKMRect);
  +const
  +  COLOR_WHITE = $FFFFFF;
  +  COLOR_BLACK = $000000;
  +  COLOR_GREEN = $00FF00;
  +  COLOR_RED = $0000FF;
  +  COLOR_YELLOW = $00FFFF;
  +  COLOR_BLUE = $FF0000;
   var
     PL, WatchedPL: TKMHandIndex;
     I, Cnt: Word;
  
positive.code:     for PL := 0 to gHands.Count - 1 do
      begin
        if (WatchedPL = PL) then
          Col := $0000FF00 // Green
        else if (gHands[WatchedPL].Alliances[PL] = at_Ally) then
          Col := $00FF0000 // Blue
        else
          Col := $000000FF; // Red
  
        for I := 0 to fPolygons - 1 do
        begin
  
negative.code:         end;
        end;
      end;
      {
      for I := 0 to fPolygons - 1 do
      begin
        BestCnt := 0;
        for PL := 0 to gHands.Count - 1 do
        begin
          Cnt := PresenceAllGroups[PL,I];
          if (Cnt > BestCnt) then
          begin
            BestCnt := Cnt;
            if (WatchedPL = PL) then
              Col := COLOR_GREEN
            else if (gHands[WatchedPL].Alliances[PL] = at_Ally) then
              Col := COLOR_BLUE
            else
              Col := COLOR_RED;
          end;
        end;
        if (BestCnt > 0) then
        begin
          BestCnt := Min(BestCnt,$9F);
          //NavMesh polys coverage
          gRenderAux.TriangleOnTerrain(
            NodeArr[PolyArr[I].Indices[0]].Loc.X,
            NodeArr[PolyArr[I].Indices[0]].Loc.Y,
            NodeArr[PolyArr[I].Indices[1]].Loc.X,
            NodeArr[PolyArr[I].Indices[1]].Loc.Y,
            NodeArr[PolyArr[I].Indices[2]].Loc.X,
            NodeArr[PolyArr[I].Indices[2]].Loc.Y, (Col OR (BestCnt shl 24)) );
        end;
      end;
      //}
    end;
  end;
  
  