mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:48:01 +02:00
36 lines
563 B
ObjectPascal
36 lines
563 B
ObjectPascal
uses
|
|
types;
|
|
|
|
procedure TestAvg(const r: trect);
|
|
var
|
|
res: tpoint;
|
|
o1, o2: int64;
|
|
begin
|
|
res:=centerpoint(r);
|
|
o1 := (int64(r.left) + r.right) div 2;
|
|
o2 := (int64(r.top) + r.bottom) div 2;
|
|
if (res.x <> o1) or
|
|
(res.y <> o2) then
|
|
halt(1);
|
|
end;
|
|
|
|
var
|
|
r: trect;
|
|
begin
|
|
r.left := 1;
|
|
r.right := 3;
|
|
r.top := 3;
|
|
r.bottom := 1;
|
|
testavg(r);
|
|
r.left:=2000000000;
|
|
r.right:=2000000002;
|
|
r.top:=-2000000000;
|
|
r.bottom:=-2000000002;
|
|
testavg(r);
|
|
r.left:=-2000000000;
|
|
r.right:=2000000002;
|
|
r.top:=2000000000;
|
|
r.bottom:=-2000000002;
|
|
end.
|
|
|