mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2025-01-15 12:31:11 +00:00
26 lines
425 B
ObjectPascal
26 lines
425 B
ObjectPascal
|
program ExampleAround;
|
||
|
|
|
||
|
|
var
|
||
|
|
count, countup, countdown: Integer;
|
||
|
|
box: rect;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
{ Create the window rect }
|
||
|
|
SetRect(box, 100, 100, 320, 320);
|
||
|
|
SetDrawingRect(box);
|
||
|
|
ShowDrawing;
|
||
|
|
|
||
|
|
{ Draw lines }
|
||
|
|
for count := 0 to 20 do
|
||
|
|
begin
|
||
|
|
countup := count * 4;
|
||
|
|
countdown := 200 - countup;
|
||
|
|
Moveto(countup, 0);
|
||
|
|
Lineto(200, countup);
|
||
|
|
Lineto(countdown, 200);
|
||
|
|
Lineto(0, countdown);
|
||
|
|
Lineto(countup, 0);
|
||
|
|
end
|
||
|
|
|
||
|
|
end.
|