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
|
-- File: ApproxInt_SvSurfaces.cdl
-- Created: Wed Mar 17 12:19:46 1993
-- Author: Laurent BUCHARD
-- <lbr@sdsun2>
---Copyright: Matra Datavision 1993
generic class PrmPrmSvSurfaces from ApproxInt (
ThePSurface as any;
ThePSurfaceTool as any;
TheLine as Transient)
inherits SvSurfaces from ApproxInt
uses
Pnt from gp,
Pnt2d from gp,
Vec from gp,
Vec2d from gp
class TheInt2S instantiates Int2S from IntImp(
ThePSurface,ThePSurfaceTool);
is
Create(Surf1,Surf2: ThePSurface);
Compute(me: in out;
u1,v1,u2,v2: in out Real from Standard;
Pt: out Pnt from gp;
Tg: out Vec from gp;
Tguv1,Tguv2: out Vec2d from gp)
---Purpose: returns True if Tg,Tguv1 Tguv2 can be computed.
returns Boolean from Standard is static;
Pnt(me: in out;
u1,v1,u2,v2: in Real from Standard;
P: out Pnt from gp) is static;
Tangency(me: in out;
u1,v1,u2,v2: in Real from Standard;
Tg: out Vec from gp)
returns Boolean from Standard is static;
TangencyOnSurf1(me: in out;
u1,v1,u2,v2: in Real from Standard;
Tg: out Vec2d from gp)
returns Boolean from Standard is static;
TangencyOnSurf2(me: in out;
u1,v1,u2,v2: in Real from Standard;
Tg: out Vec2d from gp)
returns Boolean from Standard is static;
fields
MyParOnS1 : Pnt2d from gp;
MyParOnS2 : Pnt2d from gp;
MyPnt : Pnt from gp;
MyTguv1 : Vec2d from gp;
MyTguv2 : Vec2d from gp;
MyTg : Vec from gp;
MyIsTangent : Boolean from Standard;
MyHasBeenComputed : Boolean from Standard;
MyParOnS1bis : Pnt2d from gp;
MyParOnS2bis : Pnt2d from gp;
MyPntbis : Pnt from gp;
MyTguv1bis : Vec2d from gp;
MyTguv2bis : Vec2d from gp;
MyTgbis : Vec from gp;
MyIsTangentbis : Boolean from Standard;
MyHasBeenComputedbis : Boolean from Standard;
MyIntersectionOn2S : TheInt2S;
end PrmPrmSvSurfaces;
|
