才发现ListContourPlot的“描边”颜色总比设置的颜色淡，会自动加了层透明度（大概Opacity[0.5]）😂，搞得和别的图总有个色差。
也可能是我火星了，搜了圈google也没有太相关信息。
也没有默认设置能调，帮助里好像也没看到提这个事，不过用Opacity能改，就是有点麻烦

附code，感兴趣可以试试：
ListContourPlot[
Table[Sin[x] Sin[y], {x, -3, 3, 0.1}, {y, -3, 3, 0.1}],
ContourStyle -> {{Black, Thickness[0.01]}, {Blue, Thickness[0.01]}},
ContourShading -> None]
ContourPlot[{Sin[x] Sin[y] == 0.2, Sin[x] Sin[y] == -0.2}, {x, -3,
3}, {y, -3, 3},
ContourStyle -> {{Black, Thickness[0.01]}, {Blue, Thickness[0.01]}},
ContourShading -> None]
ContourPlot[{Sin[x] Sin[y] == 0.2, Sin[x] Sin[y] == -0.2}, {x, -3,
3}, {y, -3, 3},
ContourStyle -> {{Opacity[0.5,Black], Thickness[0.01]}, {Opacity[0.5,Blue], Thickness[0.01]}},
ContourShading -> None]

不麻烦，就一句替换的事
ListContourPlot[
Table[Sin[x] Sin[y], {x, -3, 3, 0.1}, {y, -3, 3, 0.1}],
ContourStyle -> {{Black, Thickness[0.01]}, {Blue, Thickness[0.01]}},
ContourShading -> None] /. {Opacity[_] -> Opacity[1]}

……这好像是个bug，而且我总觉得我曾经报过这个bug。出问题的其实不止ListContourPlot，ContourPlot也有类似的问题。这个看文档就能看出来了。当前版本：
这俩图看上去分明是一样的。进一步检查你就会发现这俩图不单是看起来一样，它们的表达式也
几乎是一样的：
ContourPlot[Sin[x] Sin[y], {x, -3, 3}, {y, -3, 3},
ContourStyle -> Black] ==
ContourPlot[Sin[x] Sin[y], {x, -3, 3}, {y, -3, 3},
ContourStyle -> Automatic] /. a_Directive :> Sort@a
(* True *)
顺便，下面这个是版本8的文档的输出：