mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2025-01-16 03:30:16 +00:00
15 lines
193 B
ObjectPascal
15 lines
193 B
ObjectPascal
program ExampleWedge;
|
|
|
|
var
|
|
whole, wedge: Rect;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
|
|
SetRect(whole, 10, 10, 90, 90);
|
|
PaintArc(whole, 0, 144);
|
|
FillArc(whole, 144, 120, ltgray);
|
|
FrameOval(whole);
|
|
|
|
end. |