0024002: Overall code and build procedure refactoring -- automatic
[occt.git] / src / Bisector / Bisector_FunctionH.cdl
1 -- Created on: 1994-04-05
2 -- Created by: Yves FRICAUD
3 -- Copyright (c) 1994-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
5 --
6 -- This file is part of Open CASCADE Technology software library.
7 --
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
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.
13 --
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
16
17 private class FunctionH from Bisector 
18
19 inherits FunctionWithDerivative from math
20      
21              --                                  2           2 
22         ---Purpose: H(v) = (T1  .P2(v) - P1) * ||T(v)||  -
23         --                                  2         2
24         --                 (T(v).P2(v) - P1) * ||T1|| 
25         
26 uses 
27     Curve from Geom2d,
28     Pnt2d from gp, 
29     Vec2d from gp  
30
31 is
32
33     Create (C2 : Curve from Geom2d ;
34             P1 : Pnt2d from gp     ;
35             T1   : Vec2d from gp   ) 
36     returns FunctionH from Bisector;
37     
38     Value(me : in out; X : Real; F : out Real) 
39         ---Purpose: Computes the values of the Functions for the variable <X>.
40     returns Boolean;
41     
42     Derivative(me : in out; X : Real; D : out Real) 
43     returns Boolean;
44
45     Values(me : in out ; X  : Real; F  : out Real; D  : out Real)    
46         ---Purpose: Returns the values of the functions and the derivatives
47         --          for the variable <X>.
48     returns Boolean;
49
50 fields
51     
52     curve2 : Curve from Geom2d;
53     p1     : Pnt2d from gp;
54     t1     : Vec2d from gp;
55     
56 end FunctionH;