anchor.diff:    procedure PaintOrePoints(aOreP: TKMPointListArray; Color: Cardinal; aHighlight: Boolean = False);
     var
       I, K, L: Integer;
  -    Color2: Cardinal;
  +    lineColor, fillColor: Cardinal;
       Coef: Single;
     begin
       Coef := 0.15;
  
positive.code:       for K := Length(aOreP) - 1 downto 0 do
          for L := 0 to aOreP[K].Count - 1 do
          begin
            Color2 := Color;
            if K = 1 then
              Color2 := MultiplyBrightnessByFactor(Color, 4);
            if K = 2 then
              Color2 := MultiplyBrightnessByFactor(Color, 7);
            gRenderAux.Quad(aOreP[K][L].X, aOreP[K][L].Y, Color2);
          end;
      end;
    end;
  
    procedure PaintMiningPoints(aPoints: TKMPointList; Color: Cardinal; aHighlight: Boolean = False; aDeepCl: Boolean = False);
    var
      I: Integer;
      Coef: Single;
    begin
      Coef := 0.15;
      if aHighlight then
  
negative.code:       Coef := 0.3;
      end;
  
      ResetAreaData;
      lineColor := Color;
      for I := 1 to Length(aOreP) - 1 do
      begin
        Color := Color and $40FFFFFF; //Add some transparency
  