mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-29 08:29:18 +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.
|