Function EqualPt returns whether the two specified coordinate locations are equal (i.e., the same point, to 12 significant digits).
FUNCTION EqualPt(
p1X,p1Y : REAL;
p2X,p2Y : REAL): BOOLEAN;def vs.EqualPt(p1, p2):
return BOOLEAN| Name | Type | Description |
|---|---|---|
| p1 | REAL | Coordinates of first comparison point. |
| p2 | REAL | Coordinates of second comparison point. |
PROCEDURE Example;
VAR
x1, y1, x2, y2 :REAL;
BEGIN
x1 := 1;
y1 := 1;
x2 := 1.0000000000001;
y2 := 1.0000000000001;
Message(EqualPt(x1, y1, x2, y2));
END;
RUN(Example);def Example():
x1 = 1
y1 = 1
x2 = 1.0000000000001
y2 = 1.0000000000001
vs.Message(vs.EqualPt(x1, y1, x2, y2))
Example()VS Functions:
Availability: from All Versions