mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-06-01 11:42:07 +00:00
21 lines
264 B
ObjectPascal
21 lines
264 B
ObjectPascal
program ExampleScale;
|
|
|
|
var
|
|
clip: Rect;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
|
|
{ origine }
|
|
SetRect(clip, 10, 10, 100, 100);
|
|
PaintArc(clip, 0, 180);
|
|
FrameRect(clip);
|
|
|
|
{ scale }
|
|
EraseArc(clip, 0, 180);
|
|
InsetRect(clip, 20, 20);
|
|
PaintArc(clip, 0, 180);
|
|
FrameRect(clip);
|
|
|
|
end. |