b311480e |
1 | -- Created on: 1997-10-01 |
2 | -- Created by: Christian CAILLET |
3 | -- Copyright (c) 1997-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | class SelectFaces from IGESSelect inherits SelectExplore |
18 | |
19 | ---Purpose : This selection returns the faces contained in an IGES Entity |
20 | -- or itself if it is a Face |
21 | -- Face means : |
22 | -- - Face (510) of a ManifoldSolidBrep |
23 | -- - TrimmedSurface (144) |
24 | -- - BoundedSurface (143) |
25 | -- - Plane with a Bounding Curve (108, form not 0) |
26 | -- - Also, any Surface which is not in a TrimmedSurface, a |
27 | -- BoundedSurface, or a Face (FREE Surface) |
28 | -- -> i.e. a Face for which Natural Bounds will be considered |
29 | |
30 | uses AsciiString from TCollection, Transient, EntityIterator, Graph |
31 | |
32 | is |
33 | |
34 | |
6e33d3ce |
35 | Create returns SelectFaces; |
7fd59977 |
36 | |
37 | |
38 | Explore (me; level : Integer; ent : Transient; G : Graph; |
39 | explored : in out EntityIterator) |
40 | returns Boolean; |
41 | ---Purpose : Explores an entity, to take its faces |
42 | -- Works recursively |
43 | |
44 | |
45 | ExploreLabel (me) returns AsciiString from TCollection; |
46 | ---Purpose : Returns a text defining the criterium : "Faces" |
47 | |
48 | end SelectFaces; |