Path Head To Tail |
This function returns TRUE if all edges of the input path are consecutive.
NOTE Definition according to ISO/CD 10303-42:1992
This function returns TRUE if for the edges of the input path the end vertex of each edge is the same as the start vertex of its successor.
NOTE Function adapted from path_head_to_tail defined in ISO10303-42.
HISTORY New function in IFC2.0
FUNCTION IfcPathHeadToTail
(APath : IfcPath) : LOGICAL;
LOCAL
N : INTEGER := 0;
P : LOGICAL := UNKNOWN;
END_LOCAL;
N := SIZEOF (APath.EdgeList);
REPEAT i := 2 TO N;
P := P AND (APath.EdgeList[i-1].EdgeEnd :=:
APath.EdgeList[i].EdgeStart);
END_REPEAT;
RETURN (P);
END_FUNCTION;
References: IfcPath