mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-06-14 05:29:34 +00:00
23 lines
343 B
ObjectPascal
23 lines
343 B
ObjectPascal
program ExampleRecurse;
|
|
|
|
var
|
|
i, left, top, right, bottom: Integer;
|
|
box: rect;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
PenSize(9, 9);
|
|
PenMode(patXor);
|
|
|
|
for i := 1 to 50 do
|
|
begin
|
|
left := 110 - 1 * i;
|
|
top := 110 - 10 * i;
|
|
right := 120 + 10 * i;
|
|
bottom := 115 + 10 * i;
|
|
SetRect(box, left, top, right, bottom);
|
|
PaintOval(box);
|
|
end
|
|
|
|
end. |