Test for 0022778: Bug in BRepMesh
[occt.git] / src / XSControl / XSControl_ConnectedShapes.cdl
CommitLineData
b311480e 1-- Created on: 1999-02-24
2-- Created by: Christian CAILLET
3-- Copyright (c) 1999 Matra Datavision
4-- Copyright (c) 1999-2012 OPEN CASCADE SAS
5--
6-- The content of this file is subject to the Open CASCADE Technology Public
7-- License Version 6.5 (the "License"). You may not use the content of this file
8-- except in compliance with the License. Please obtain a copy of the License
9-- at http://www.opencascade.org and read it completely before using this file.
10--
11-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13--
14-- The Original Code and all software distributed under the License is
15-- distributed on an "AS IS" basis, without warranty of any kind, and the
16-- Initial Developer hereby disclaims all such warranties, including without
17-- limitation, any warranties of merchantability, fitness for a particular
18-- purpose or non-infringement. Please see the License for the specific terms
19-- and conditions governing the rights and limitations under the License.
20
7fd59977 21
22
23class ConnectedShapes from XSControl inherits SelectExplore from IFSelect
24
25 ---Purpose : From a TopoDS_Shape, or from the entity which has produced it,
26 -- searches for the shapes, and the entities which have produced
27 -- them in last transfer, which are adjacent to it by VERTICES
28
29uses AsciiString, Transient, Graph, EntityIterator,
30 HSequenceOfTransient from TColStd,
31 Shape from TopoDS, ShapeEnum from TopAbs,
32 TransientProcess from Transfer, TransferReader from XSControl
33
34is
35
36 Create returns ConnectedShapes;
37 ---Purpose : Creates a Selection ConnectedShapes. It remains to be set a
38 -- TransferReader
39
40 Create (TR : TransferReader) returns ConnectedShapes;
41 ---Purpose : Creates a Selection ConnectedShapes, which will work with the
42 -- current TransferProcess brought by the TransferReader
43
44 SetReader (me : mutable; TR : TransferReader);
45 ---Purpose : Sets a TransferReader to sort entities : it brings the
46 -- TransferProcess which may change, while the TransferReader does not
47
48 Explore (me; level : Integer; ent : Transient; G : Graph;
49 explored : in out EntityIterator)
50 returns Boolean;
51 ---Purpose : Explores an entity : entities from which are connected to that
52 -- produced by this entity, including itself
53
54
55 ExploreLabel (me) returns AsciiString from TCollection;
56 ---Purpose : Returns a text defining the criterium.
57 -- "Connected Entities through produced Shapes"
58
59
60 AdjacentEntities (myclass;
61 ashape : Shape from TopoDS;
62 TP : TransientProcess from Transfer;
63 type : ShapeEnum from TopAbs)
64 returns HSequenceOfTransient;
65 ---Purpose : This functions considers a shape from a transfer and performs
66 -- the search function explained above
67
68fields
69
70 theTR : TransferReader;
71
72end ConnectedShapes;