mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-24 05:30:42 +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.
|