Заполнить матрицу пересечения точки с сеткой, заданной левым верхним углом и размерами ячейки сетки (в целых числах)
procedure FillPointWithGridIntersectionMatrix(
px, py, gx, gy, gWidth, gHeight: integer; var matrix: TBitStoreMatrix);
px
py
gx
gy
gWidth
gHeight
matrix