Dots and Grids
Remarks
column: m
row: n
Dots:
Sequence[Sequence[(x(A) + a, y(A) + b), a, 0, m], b, 0, n]
Grids:
{Sequence[Segment[(x(A) + a, y(A)), (x(A) + a, y(A) + n)], a, 0, m], Sequence[Segment[(x(A), y(A) + b), (x(A) + m, y(A) + b)], b, 0, n]}