mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-05-31 20:41:28 +00:00
26 lines
408 B
ObjectPascal
26 lines
408 B
ObjectPascal
program Rabbits;
|
|
|
|
procedure Draw (row, col, size, pad: integer);
|
|
var
|
|
bounds: Rect;
|
|
begin
|
|
SetRect(bounds, col * size + pad, row * size + pad, (col * size + pad) + 8, (row * size + pad) + 8);
|
|
PaintOval(bounds);
|
|
end;
|
|
|
|
var
|
|
row, col: Integer;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
repeat
|
|
col := 0;
|
|
repeat
|
|
Draw(row, col, 10, 60);
|
|
col := col + 1;
|
|
until col = 10;
|
|
row := row + 1;
|
|
until row = 10;
|
|
|
|
end. |