1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
-- File: TopOpeBRep_FaceEdgeFiller.cdl
-- Created: Wed Jun 14 16:45:28 1995
-- Author: Jean Yves LEBEY
-- <jyl@meteox>
---Copyright: Matra Datavision 1995
class FaceEdgeFiller from TopOpeBRep
uses
Shape from TopoDS,
FaceEdgeIntersector from TopOpeBRep,
HDataStructure from TopOpeBRepDS,
DataStructure from TopOpeBRepDS,
Interference from TopOpeBRepDS,
ListOfInterference from TopOpeBRepDS,
ListIteratorOfListOfInterference from TopOpeBRepDS,
Point from TopOpeBRepDS
is
Create returns FaceEdgeFiller from TopOpeBRep;
Insert(me : in out;
F,E : Shape from TopoDS;
FEINT : in out FaceEdgeIntersector from TopOpeBRep;
HDS : HDataStructure from TopOpeBRepDS)
is static;
-- -------
-- private
-- -------
ScanInterfList(me;
IT : in out ListIteratorOfListOfInterference from TopOpeBRepDS;
DSP : Point from TopOpeBRepDS;
BDS : DataStructure from TopOpeBRepDS)
---Purpose:
-- Search, among a list of interferences accessed by the iterator
-- <IT>, a geometry <G> whose 3D point is identical to the 3D point
-- of the TheDSPoint <DSP>.
-- returns True if such an interference has been found, False else.
-- if True, iterator It points (by the Value() method) on the first
-- interference accessing an identical 3D point.
returns Boolean from Standard
is static private;
GetGeometry(me ;
IT : in out ListIteratorOfListOfInterference from TopOpeBRepDS;
EI : FaceEdgeIntersector from TopOpeBRep;
G : in out Integer from Standard;
DS : DataStructure from TopOpeBRepDS)
---Purpose:
-- Search for an interference in list <IT> which 3D geometry
-- equals 3D geometry of the current intersection of <EI>.
-- The search is performed by ScanInterfList.
-- if found, set <G> to the geometry of the interference found.
-- returns found.
returns Boolean from Standard
is static private;
MakeGeometry(me ; EI : in out FaceEdgeIntersector from TopOpeBRep;
DS : in out DataStructure from TopOpeBRepDS)
returns Integer from Standard
is static private;
GetGeometry(me ; L : ListOfInterference from TopOpeBRepDS;
DSP : Point from TopOpeBRepDS;
G : in out Integer from Standard;
DS : in out DataStructure from TopOpeBRepDS)
---Purpose:
-- Get the geometry of a DS point <DSP>.
-- First, search it with ScanInterfList (previous method).
-- if found, set <G> to the geometry of the interference found.
-- else, add the point <DSP> in the <DS> and set <G> to the
-- value of the new geometry such created.
--
-- returns the value of ScanInterfList().
returns Boolean from Standard
is static private;
StoreInterference(me;
I : Interference from TopOpeBRepDS;
LI : in out ListOfInterference from TopOpeBRepDS;
BDS : in out DataStructure from TopOpeBRepDS)
---Purpose:
-- Add interference <I> to list <LI>.
-- Add <I> to the interference list of <I> geometry (via <BDS>).
is static private;
end FaceEdgeFiller from TopOpeBRep;
|
