src/Adaptor3d/Adaptor3d_InterFunc.cdl

   1 -- Created on: 1998-02-18
   2 -- Created by: Jeanine PANCIATICI
   3 -- Copyright (c) 1998-1999 Matra Datavision
   4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
   5 --
   6 -- The content of this file is subject to the Open CASCADE Technology Public
   7 -- License Version 6.5 (the "License"). You may not use the content of this file
   8 -- except in compliance with the License. Please obtain a copy of the License
   9 -- at http://www.opencascade.org and read it completely before using this file.
  10 --
  11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  13 --
  14 -- The Original Code and all software distributed under the License is
  15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  16 -- Initial Developer hereby disclaims all such warranties, including without
  17 -- limitation, any warranties of merchantability, fitness for a particular
  18 -- purpose or non-infringement. Please see the License for the specific terms
  19 -- and conditions governing the rights and limitations under the License.
  20
  21
  22 private  class  InterFunc  from  Adaptor3d  inherits  FunctionWithDerivative  from  math
  23
  24          ---Purpose: Used to find the points U(t) = U0 or V(t) = V0 in
  25          --          order to determine the  Cn discontinuities of  an
  26          --               Adpator_CurveOnSurface  relativly  to    the
  27          --          discontinuities of the surface.
  28
  29 uses
  30       HCurve2d  from  Adaptor2d
  31
  32 raises  ConstructionError
  33
  34 is
  35       Create  (C :  HCurve2d  from  Adaptor2d;  FixVal:  Real  from  Standard;
  36                Fix:  Integer)
  37       returns  InterFunc
  38       raises  ConstructionError  from  Standard;
  39       ---Purpose:   build the function  U(t)=FixVal   if Fix =1 or
  40       --            V(t)=FixVal if Fix=2
  41
  42     Value(me: in out; X: Real; F: out Real)
  43         ---Purpose: computes the value <F>of the function for the variable <X>.
  44         --         Returns True if the calculation were successfully done,
  45         --          False otherwise.
  46
  47     returns Boolean;
  48
  49
  50     Derivative(me: in out; X: Real; D: out Real)
  51          ---Purpose: computes the derivative <D> of the function
  52          --          for the variable <X>.
  53         --           Returns True if the calculation were successfully done,
  54         --           False otherwise.
  55
  56     returns Boolean;
  57
  58
  59     Values(me: in out; X: Real; F, D: out Real)
  60         ---Purpose: computes the value <F> and the derivative <D> of the
  61         --          function for the variable <X>.
  62         --          Returns True if the calculation were successfully done,
  63         --          False otherwise.
  64
  65     returns Boolean;
  66
  67 fields
  68
  69     myCurve2d :  HCurve2d    from  Adaptor2d;
  70     myFixVal  :  Real  from  Standard;
  71     myFix    :  Integer     from  Standard;
  72
  73
  74
  75 end InterFunc;
  76