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
|
-- File: ApproxInt_MultiLine.cdl
-- Created: Thu Mar 18 12:40:05 1993
-- Author: Laurent BUCHARD
-- <lbr@sdsun2>
---Copyright: Matra Datavision 1993
generic class MultiLine from ApproxInt (
TheLine as Transient;
TheSvSurfaces as any)
uses Array1OfPnt from TColgp,
Array1OfPnt2d from TColgp,
Array1OfVec from TColgp,
Array1OfVec2d from TColgp,
Status from Approx,
Trsf from gp,
Trsf2d from gp
is
Create(line : TheLine;
PtrSvSurfaces : Address from Standard;
NbP3d : Integer from Standard;
NbP2d : Integer from Standard;
xo,ax,yo,ay,zo,az : Real from Standard;
u1o,a1u,v1o,a1v : Real from Standard;
u2o,a2u,v2o,a2v : Real from Standard;
P2DOnFirst : Boolean from Standard;
IndMin : Integer from Standard = 0;
IndMax : Integer from Standard = 0)
returns MultiLine from ApproxInt;
---Purpose: The class SvSurfaces is used when the
-- approximation algorithm needs some extra points on
-- the line <line>. A New line is then created which
-- shares the same surfaces and functions.
--
-- SvSurfaces is a deferred class which allows
-- several implementations of this algorithm with
-- different surfaces (bi-parametric ones, or
-- implicit and biparametric ones)
Create(line : TheLine;
NbP3d : Integer from Standard;
NbP2d : Integer from Standard;
xo,ax,yo,ay,zo,az : Real from Standard;
u1o,a1u,v1o,a1v : Real from Standard;
u2o,a2u,v2o,a2v : Real from Standard;
P2DOnFirst : Boolean from Standard;
IndMin : Integer from Standard = 0;
IndMax : Integer from Standard = 0)
---Purpose: No Extra points will be added on the current line
--
returns MultiLine from ApproxInt;
FirstPoint(me) returns Integer from Standard is static;
LastPoint(me) returns Integer from Standard is static;
NbP2d(me) returns Integer is static;
---Purpose: Returns the number of 2d points of a TheLine.
--
NbP3d(me) returns Integer is static;
---Purpose: Returns the number of 3d points of a TheLine.
--
WhatStatus(me) returns Status from Approx is static;
Value(me; MPointIndex: Integer; tabPt: out Array1OfPnt) is static;
---Purpose: returns the 3d points of the multipoint <MPointIndex>
-- when only 3d points exist.
Value(me; MPointIndex: Integer;
tabPt2d: out Array1OfPnt2d) is static;
---Purpose: returns the 2d points of the multipoint <MPointIndex>
-- when only 2d points exist.
Value(me; MPointIndex: Integer;
tabPt: out Array1OfPnt; tabPt2d: out Array1OfPnt2d from TColgp) is static;
---Purpose: returns the 3d and 2d points of the multipoint
-- <MPointIndex>.
Tangency(me; MPointIndex: Integer; tabV: out Array1OfVec from TColgp)
returns Boolean is static;
---Purpose: returns the 3d points of the multipoint <MPointIndex>
-- when only 3d points exist.
Tangency(me; MPointIndex: Integer;
tabV2d: out Array1OfVec2d)
returns Boolean is static;
---Purpose: returns the 2d tangency points of the multipoint
-- <MPointIndex> only when 2d points exist.
Tangency(me; MPointIndex: Integer;
tabV: out Array1OfVec from TColgp; tabV2d: out Array1OfVec2d from TColgp)
returns Boolean is static;
---Purpose: returns the 3d and 2d points of the multipoint
-- <MPointIndex>.
--
MakeMLBetween(me; Low,High,NbPointsToInsert: Integer from Standard)
returns MultiLine from ApproxInt is static;
--------------------------------------------------------------------------------
fields
PtrOnmySvSurfaces : Address from Standard;
myLine : TheLine;
indicemin : Integer from Standard;
indicemax : Integer from Standard;
nbp3d : Integer from Standard;
nbp2d : Integer from Standard;
p2donfirst : Boolean from Standard;
--- The Points of the line <TheLine> are transformed
-- as follow :
-- Modified_X = Xo + Ax * TheLine.Point().X()
-- Modified_Y = Yo + Ay * TheLine.Point().Y()
-- Modified_Z = Zo + Az * TheLine.Point().Z()
-- Modified_U1 = U1o + A1u * TheLine.Point().u1()
-- Modified_V1 = V1o + A1v * TheLine.Point().v1()
-- Modified_U2 = U2o + A2u * TheLine.Point().u2()
-- Modified_V2 = V2o + A2v * TheLine.Point().v2()
Xo,Ax,Yo,Ay,Zo,Az : Real from Standard;
U1o,A1u,V1o,A1v : Real from Standard;
U2o,A2u,V2o,A2v : Real from Standard;
end MultiLine;
|
