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 ) ;