b311480e |
1 | -- Created on: 1998-02-18 |
2 | -- Created by: Jeanine PANCIATICI |
3 | -- Copyright (c) 1998-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
973c2be1 |
8 | -- This library is free software; you can redistribute it and / or modify it |
9 | -- under the terms of the GNU Lesser General Public version 2.1 as published |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | private class InterFunc from Adaptor3d inherits FunctionWithDerivative from math |
18 | |
19 | ---Purpose: Used to find the points U(t) = U0 or V(t) = V0 in |
20 | -- order to determine the Cn discontinuities of an |
21 | -- Adpator_CurveOnSurface relativly to the |
22 | -- discontinuities of the surface. |
23 | |
24 | uses |
25 | HCurve2d from Adaptor2d |
26 | |
27 | raises ConstructionError |
28 | |
29 | is |
30 | Create (C : HCurve2d from Adaptor2d; FixVal: Real from Standard; |
31 | Fix: Integer) |
32 | returns InterFunc |
33 | raises ConstructionError from Standard; |
34 | ---Purpose: build the function U(t)=FixVal if Fix =1 or |
35 | -- V(t)=FixVal if Fix=2 |
36 | |
37 | Value(me: in out; X: Real; F: out Real) |
38 | ---Purpose: computes the value <F>of the function for the variable <X>. |
39 | -- Returns True if the calculation were successfully done, |
40 | -- False otherwise. |
41 | |
42 | returns Boolean; |
43 | |
44 | |
45 | Derivative(me: in out; X: Real; D: out Real) |
46 | ---Purpose: computes the derivative <D> of the function |
47 | -- for the variable <X>. |
48 | -- Returns True if the calculation were successfully done, |
49 | -- False otherwise. |
50 | |
51 | returns Boolean; |
52 | |
53 | |
54 | Values(me: in out; X: Real; F, D: out Real) |
55 | ---Purpose: computes the value <F> and the derivative <D> of the |
56 | -- function for the variable <X>. |
57 | -- Returns True if the calculation were successfully done, |
58 | -- False otherwise. |
59 | |
60 | returns Boolean; |
61 | |
62 | fields |
63 | |
64 | myCurve2d : HCurve2d from Adaptor2d; |
65 | myFixVal : Real from Standard; |
66 | myFix : Integer from Standard; |
67 | |
68 | |
69 | |
70 | end InterFunc; |
71 | |