mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-28 17:29:52 +00:00
18 lines
269 B
ObjectPascal
18 lines
269 B
ObjectPascal
program ExampleProcedure;
|
|
|
|
procedure Tri (x, y, side: integer);
|
|
begin
|
|
MoveTo(x, y);
|
|
LineTo(x + side, y);
|
|
LineTo(x + side div 2, Round(y + Side / Sqrt(2)));
|
|
LineTo(x, y);
|
|
end;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
Tri(10, 10, 100);
|
|
Tri(40, 40, 80);
|
|
Tri(80, 85, 180);
|
|
|
|
end. |