mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-06-10 10:29:29 +00:00
21 lines
275 B
ObjectPascal
21 lines
275 B
ObjectPascal
program ExampleTranslate;
|
|
|
|
var
|
|
clip: Rect;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
|
|
{ origine }
|
|
SetRect(clip, 10, 10, 100, 100);
|
|
PaintArc(clip, 0, 180);
|
|
FrameRect(clip);
|
|
|
|
{ translation }
|
|
EraseArc(clip, 0, 180);
|
|
OffSetRect(clip, 40, 40);
|
|
PaintArc(clip, 0, 180);
|
|
FrameRect(clip);
|
|
|
|
end. |