FUNCTION list_shell_faces
(s : shell) : LIST [0:?] OF face;
LOCAL
faces : LIST[0:?] OF face := [];
END_LOCAL;
IF ('TOPOLOGY_SCHEMA.CLOSED_SHELL' IN TYPEOF(s)) OR
('TOPOLOGY_SCHEMA.OPEN_SHELL' IN TYPEOF(s)) THEN
REPEAT i := 1 TO SIZEOF(s\connected_face_set.cfs_faces);
faces := faces + s\connected_face_set.cfs_faces[i];
END_REPEAT;
END_IF;
RETURN(faces); END_FUNCTION; -- list_shell_faces
|