From math.simba in srl6:
Simba Code:
(*
grid
~~~~
.. code-block:: pascal
function grid(columns, rows, w, h, diffX, diffY: integer; starTPoint: TPoint): TBoxArray;
Returns a grid of TBoxes (see gridBox for parameters).
.. note::
- by Coh3n
- Last Modified: Jan. 25th, 2012 by Coh3n
Example:
.. code-block:: pascal
SMART_DrawBoxes(false, grid(5, 10, 20, 20, 25, 25, point(30, 30)), clYellow);
*)
function grid(columns, rows, w, h, diffX, diffY: integer; starTPoint: TPoint): TBoxArray;
var
i: integer;
begin
setLength(result, (columns * rows));
for i := 0 to high(result) do
result[i] := gridBox(i, columns, rows, w, h, diffX, diffY, starTPoint);
end;