anchor.diff:        Coef := 0.3;
       end;
   
  +    ResetAreaData;
  +    lineColor := Color;
       for I := 1 to Length(aOreP) - 1 do
       begin
         Color := Color and $40FFFFFF; //Add some transparency
  
positive.code:       Color := Color and $40FFFFFF; //Add more transparency
      Color := MultiplyBrightnessByFactor(Color, Coef);
  
      for I := 0 to aPoints.Count - 1 do
        gRenderAux.Quad(aPoints[I].X, aPoints[I].Y, Color);
    end;
  
  var
  
negative.code:       Color := SELECTED_ORE_COLOR;
        Coef := 0.3;
      end;
  
      lineColor := Color;
  
      if aDeepCl then
        Color := Color and $80FFFFFF //Add some transparency
  