`diag1 = Graphics[{Line[{{1/2, 0}, {0, 1/2}}],
Line[{{1/2, 1}, {1, 1/2}}]}, ImagePadding -> None,
PlotRangePadding -> None];
diag2 = Graphics[{Line[{{1/2, 0}, {1, 1/2}}],
Line[{{1/2, 1}, {0, 1/2}}]}, ImagePadding -> None,
PlotRangePadding -> None];
With[{m = 13, n = 21},
GraphicsGrid[
ArrayReshape[
If[# == 1, diag1, diag2] & /@ RandomInteger[1, m n], {m, n}],
Spacings -> {0, 0}, Frame -> None, ImageSize -> 600]]`