blob: 363df2d7e0e413ced73423619042cf10ceb17675 (
plain)
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
|
-- File: IntCurveSurface_QuadricCurveFunc.cdl
-- Created: Thu Aug 19 10:55:26 1993
-- Author: Laurent BUCHARD
-- <lbr@nonox>
---Copyright: Matra Datavision 1993
generic class QuadricCurveFunc from IntCurveSurface (
TheQuadric as any; -- as Quadric from IntCurveSurface
TheCurve as any;
TheCurveTool as any) -- as CurveTool from Adaptor3d
inherits FunctionWithDerivative from math
---Purpose: Implements the function Q(w) and its first
-- derivative used by FunctionAllRoots to find the
-- areas where the distance between the quadric and
-- the parametric curves is less than a given
-- tolerance.
--
-- where Q(X,Y,Z) = 0 is the implicit expression of a
-- quadric and (X(w),Y(w),Z(w)) the point of parameter w on
-- a parametric curve.
--
is
Create(Q: TheQuadric; C:TheCurve)
---Purpose: Create the function.
--
returns QuadricCurveFunc from IntCurveSurface;
Value(me: in out; Param: Real from Standard; F: out Real from Standard)
---Purpose: Computes the value of the signed distance between
-- the implicit surface and the point at parameter
-- Param on the parametrised curve.
-- Value always returns True.
returns Boolean from Standard
is redefined static;
Derivative(me: in out; Param: Real from Standard;
D: out Real from Standard)
---Purpose: Computes the derivative of the previous function at
-- parameter Param.
-- Derivative always returns True.
returns Boolean from Standard
is redefined static;
Values(me: in out; Param: Real from Standard; F,D: out Real from Standard)
---Purpose: Computes the value and the derivative of the function.
-- returns True.
returns Boolean from Standard
is redefined static;
fields
myQuadric : TheQuadric;
myCurve : TheCurve;
end QuadricCurveFunc;
|
