mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-23 14:29:35 +00:00
25 lines
413 B
ObjectPascal
25 lines
413 B
ObjectPascal
program ExampleClone;
|
|
|
|
const
|
|
size = 50;
|
|
|
|
var
|
|
a, b: Rect;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
|
|
SetRect(a, 0, size, size * 2, size * 3);
|
|
PaintArc(a, 0, 90);
|
|
SetRect(a, size, size, size * 2, size * 2);
|
|
b := a;
|
|
|
|
OffSetRect(b, size, 0);
|
|
CopyBits(thePort^.portBits, thePort^.portBits, a, b, srcCopy, nil);
|
|
OffSetRect(b, 0, size);
|
|
CopyBits(thePort^.portBits, thePort^.portBits, a, b, srcCopy, nil);
|
|
|
|
FrameRect(b);
|
|
|
|
end. |