我正在尝试在二维网格上实现视线算法。我知道它在概念上需要如何工作，但我想不起来如何将其实现为算法。

基本思想很简单。用伪代码：

function LineOfSight(point1, point2): boolean
  squares = GetListOfSquaresOnLine(point1, point2)
  for each square in squares
    if square.IsOpaque then return false
  return true

GetListOfSquaresOnLine（在概念上）从点1的网格正方形的中心到点2的网格正方形的中心绘制一条直线，并返回此线穿过的所有正方形的列表。但这就是我不知道如何实现的部分。有人知道怎么做吗？最好使用Delphi或C示例，但不是必需的。