Function EqualRect returns whether the two specified rectangular areas are equal.
FUNCTION EqualRect(
rectAp1X,rectAp1Y : REAL;
rectAp2X,rectAp2Y : REAL;
rectBp1X,rectBp1Y : REAL;
rectBp2X,rectBp2Y : REAL): BOOLEAN;def vs.EqualRect(rectAp1, rectAp2, rectBp1, rectBp2):
return BOOLEAN| Name | Type | Description |
|---|---|---|
| rectAp1 | REAL | Top left coordinate of rectangle A. |
| rectAp2 | REAL | Bottom right coordinate of rectangle A. |
| rectBp1 | REAL | Top left coordinate of rectangle B. |
| rectBp2 | REAL | Bottom right coordinate of rectangle B. |
PROCEDURE Example;
BEGIN
Message(EqualRect(0,0,3,3,3,3,0,0));
END;
RUN(Example);def Example():
vs.Message(vs.EqualRect(0,0,3,3,3,3,0,0))
Example()resultOK := EqualRect(1.0, 2.0, 0.5, 1.5, 3.0, 1.0, 2.0, 0.5);import vs
# Function EqualRect returns whether the two specified rectangular areas are
# equal.
rectAp1 = 'Example'
rectAp2 = 'Example'
rectBp1 = 'Example'
rectBp2 = 'Example'
ok = vs.EqualRect(rectAp1, rectAp2, rectBp1, rectBp2)
if ok:
vs.Message('EqualRect succeeded')
else:
vs.Message('EqualRect failed')Availability: from All Versions