CommitLineData
2-- Created: Wed Aug 18 18:50:09 1993
3-- Author: Laurent BUCHARD
4-- <lbr@nonox>
6
7
8generic class QuadricCurveExactInter from IntCurveSurface (
9 TheSurface as any;
10 TheSurfaceTool as any;
11 TheCurve as any;
12 TheCurveTool as any)
13
14
15 ---Purpose: ---------------------------------------------------------
16 -- --
17 -- find a root (u,v,w) from a starting point (w0) of the problem :--
18 -- Q(X(w),Y(w),Z(w)) = 0 --
19 -- --
20 -- where Q(X,Y,Z) = 0 is the implicit expression of a quadric --
21 -- and (X(w),Y(w),Z(w)) the point of parameter w on a parametric --
22 -- curve. --
23 ----------------------------------------------------------------------
24
25
26uses
28 SequenceOfReal from TColStd
29
30------------------------------------------------------------
33 TheCurve,
34 TheCurveTool);
35
36 ---Purpose: Provides the signed distance function : Q(w)
37 -- and its first derivative dQ(w)/dw
38------------------------------------------------------------
39
40is
41
42 Create(S: TheSurface; C: TheCurve)
43 ---Purpose:
45
46
47 IsDone(me)
48 ---Purpose:
49 returns Boolean from Standard
50 is static;
51
52
53 NbRoots(me)
54 ---Purpose:
55 returns Integer from Standard
56 is static;
57
58
59 Root(me; Index: Integer from Standard)
60 ---Purpose:
61 returns Real from Standard
62 is static;
63
64
65 NbIntervals(me)
66 ---Purpose:
67 returns Integer from Standard
68 is static;
69
70
71 Intervals(me; Index: Integer from Standard;
72 U1,U2: out Real from Standard)
73 ---Purpose: U1 and U2 are the parameters of
74 -- a segment on the curve.
75 is static;
76
77
78
79fields
80
81 nbpnts : Integer from Standard;
82 pnts : SequenceOfReal from TColStd;
83 nbintv : Integer from Standard;
84 intv : SequenceOfReal from TColStd;
85