$DefaultFont = {"Helvetica", 14}; g1 = ContourGraphics[ Table[ Sin[x] Cos[y], {x, 0, Pi, 0.05 Pi}, {y, 0, Pi, 0.05 Pi} ], ContourShading -> False, ContourStyle -> RGBColor[1.0, 0.0, 0.0] ]; g2 = ContourGraphics[ Table[ Sin[y] Cos[x], {x, 0, Pi, 0.05 Pi}, {y, 0, Pi, 0.05 Pi} ], ContourShading -> False, ContourStyle -> RGBColor[0.0, 0.0, 1.0] ]; Show[g1, g2];