mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-05-31 20:41:28 +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. |