Make all the lines equally sharp [duplicate]

Question

Graphics[{
  Line[{{# - 1, -0.5}, {# - 1, 5.5}} & /@ Range[6]],
  Line[{{-0.5, # - 1}, {5.5, # - 1}} & /@ Range[6]]
  }]

There are two kinds of lines in this simple picture, some lines look sharp and others look blurry. How can I avoid this effect?

If I zoom in the graphics by dragging the controlled-corner, the blurry effect still exists with different lines.

Answer 1

This seems to be connected to Antialiasing (which set to Falseproduces crisp lines):

g = Graphics[{Line[{{# - 1, -0.5}, {# - 1, 5.5}} & /@ Range[6]], 
    Line[{{-0.5, # - 1}, {5.5, # - 1}} & /@ Range[6]]}];

Grid[{{g, Style[g, Antialiasing -> False]}}]

Answer 2

I was able to replicate the cosmetic glitch but cannot explain why it occurs.
Anyway, here are some options to minimize the effect.

You could use Gridlines:

Graphics[{}, GridLines -> {Range[6], Range[6]}, PlotRange -> {{1, 6}, {1, 6}},  
PlotRangePadding -> 0.5]

---

Or Thin:

Graphics[{Thin, 
Line[{{# - 1, -0.5}, {# - 1, 5.5}} & /@ Range[6]], 
Line[{{-0.5, # - 1}, {5.5, # - 1}} & /@ Range[6]]}]

---

Or Thickness:

Graphics[{Thickness[.001], 
Line[{{# - 1, -0.5}, {# - 1, 5.5}} & /@ Range[6]], 
Line[{{-0.5, # - 1}, {5.5, # - 1}} & /@ Range[6]]}]

Answer 3

Graphics[{
  EdgeForm@{Black}, Opacity@0,
  Table[Rectangle[{0, 0}, {i, 5}], {i, 5}],
  Table[Rectangle[{0, 0}, {5, i}], {i, 5}]
  }]