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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
-- File: ShapeAnalysis_WireVertex.cdl
-- Created: Wed Jun 3 12:01:40 1998
-- Author: data exchange team
-- <det@nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1998
-- szv#4 S4163
class WireVertex from ShapeAnalysis
---Purpose: Analyzes and records status of vertices in a Wire
--
-- The Wire has formerly been loaded in a ShapeExtend_WireData
-- For each Vertex, a status and some data can be attached
-- (case found, position and parameters)
-- Then, these informations can be used to fix problems
uses
XYZ from gp,
HArray1OfXYZ from TColgp,
HArray1OfInteger from TColStd,
HArray1OfReal from TColStd,
Wire from TopoDS,
WireData from ShapeExtend
is
Create returns WireVertex;
---Purpose: Empty constructor
Init (me: in out; wire: Wire from TopoDS; preci : Real);
Init (me: in out; swbd: WireData from ShapeExtend; preci : Real);
Load (me: in out; wire: Wire from TopoDS);
Load (me: in out; sbwd: WireData from ShapeExtend);
SetPrecision (me: in out; preci: Real);
---Purpose: Sets the precision for work
-- Analysing: for each Vertex, comparison between the end of the
-- preceeding edge and the start of the following edge
-- Each Vertex rank corresponds to the End Vertex of the Edge of
-- same rank, in the ShapeExtend_WireData. I.E. for Vertex <num>,
-- Edge <num> is the preceeding one, <num+1> is the following one
Analyze (me: in out);
SetSameVertex (me: in out; num: Integer);
---Purpose: Records status "Same Vertex" (logically) on Vertex <num>
SetSameCoords (me: in out; num: Integer);
---Purpose: Records status "Same Coords" (at the Vertices Tolerances)
SetClose (me: in out; num: Integer);
---Purpose: Records status "Close Coords" (at the Precision of <me>)
SetEnd (me: in out; num : Integer;
pos : XYZ from gp;
ufol: Real);
---Purpose: <num> is the End of preceeding Edge, and its projection on the
-- following one lies on it at the Precision of <me>
-- <ufol> gives the parameter on the following edge
SetStart (me: in out; num : Integer;
pos : XYZ from gp;
upre: Real);
---Purpose: <num> is the Start of following Edge, its projection on the
-- preceeding one lies on it at the Precision of <me>
-- <upre> gives the parameter on the preceeding edge
SetInters (me: in out; num : Integer;
pos : XYZ from gp;
upre,ufol: Real);
---Purpose: <num> is the Intersection of both Edges
-- <upre> is the parameter on preceeding edge, <ufol> on
-- following edge
SetDisjoined (me: in out; num: Integer);
---Purpose: <num> cannot be said as same vertex
IsDone (me) returns Boolean;
---Purpose: Returns True if analysis was performed, else returns False
Precision (me) returns Real;
---Purpose: Returns precision value used in analysis
NbEdges (me) returns Integer;
---Purpose: Returns the number of edges in analyzed wire (i.e. the
-- length of all arrays)
WireData (me) returns WireData from ShapeExtend;
---Purpose: Returns analyzed wire
---C++ : return const &
Status (me; num: Integer) returns Integer;
---Purpose: Returns the recorded status for a vertex
-- More detail by method Data
Position (me; num: Integer) returns XYZ from gp;
UPrevious(me; num: Integer) returns Real; --szv#4:S4163:12Mar99 was Interger
UFollowing(me; num: Integer) returns Real; --szv#4:S4163:12Mar99 was Interger
Data(me; num : Integer;
pos : out XYZ from gp;
upre,ufol: out Real)
returns Integer;
---Purpose: Returns the recorded status for a vertex
-- With its recorded position and parameters on both edges
-- These values are relevant regarding the status:
-- Status Meaning Position Preceeding Following
-- 0 Same no no no
-- 1 SameCoord no no no
-- 2 Close no no no
-- 3 End yes no yes
-- 4 Start yes yes no
-- 5 Inters yes yes yes
-- -1 Disjoined no no no
NextStatus (me; stat: Integer; num : Integer = 0) returns Integer;
---Purpose: For a given status, returns the rank of the vertex which
-- follows <num> and has the same status. 0 if no more
-- Acts as an iterator, starts on the first one
NextCriter(me; crit: Integer; num : Integer = 0) returns Integer;
---Purpose: For a given criter, returns the rank of the vertex which
-- follows <num> and has the same status. 0 if no more
-- Acts as an iterator, starts on the first one
-- Criters are:
-- 0: same vertex (status 0)
-- 1: a solution exists (status >= 0)
-- 2: same coords (i.e. same params) (status 0 1 2)
-- 3: same coods but not same vertex (status 1 2)
-- 4: redefined coords (status 3 4 5)
-- -1: no solution (status -1)
fields
myWire: WireData from ShapeExtend;
myStat: HArray1OfInteger from TColStd;
myPos : HArray1OfXYZ from TColgp;
myUPre: HArray1OfReal from TColStd;
myUFol: HArray1OfReal from TColStd;
myPreci: Real;
myDone: Boolean;
end WireVertex;
|
