CommitLineData
b311480e 1-- Created on: 1998-02-18
2-- Created by: Jeanine PANCIATICI
3-- Copyright (c) 1998-1999 Matra Datavision
b311480e 5--
973c2be1 6-- This file is part of Open CASCADE Technology software library.
b311480e 7--
d5f74e42 8-- This library is free software; you can redistribute it and/or modify it under
9-- the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 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
17private 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
24uses
26
27raises ConstructionError
28
29is
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
62fields
63
64 myCurve2d : HCurve2d from Adaptor2d;
65 myFixVal : Real from Standard;
66 myFix : Integer from Standard;
67
68
69
70end InterFunc;
71