src/Adaptor3d/Adaptor3d_InterFunc.cdl

   1 -- File:        Adaptor3d_InterFunc.cdl
   2 -- Created:     Wed Feb 18 09:06:58 1998
   3 -- Author:      Jeanine PANCIATICI
   4 --              <jpi@sgi38>
   5 ---Copyright:    Matra Datavision 1998
   6
   7 private  class  InterFunc  from  Adaptor3d  inherits  FunctionWithDerivative  from  math
   8
   9          ---Purpose: Used to find the points U(t) = U0 or V(t) = V0 in
  10          --          order to determine the  Cn discontinuities of  an
  11          --               Adpator_CurveOnSurface  relativly  to    the
  12          --          discontinuities of the surface.
  13
  14 uses
  15       HCurve2d  from  Adaptor2d
  16
  17 raises  ConstructionError
  18
  19 is
  20       Create  (C :  HCurve2d  from  Adaptor2d;  FixVal:  Real  from  Standard;
  21                Fix:  Integer)
  22       returns  InterFunc
  23       raises  ConstructionError  from  Standard;
  24       ---Purpose:   build the function  U(t)=FixVal   if Fix =1 or
  25       --            V(t)=FixVal if Fix=2
  26
  27     Value(me: in out; X: Real; F: out Real)
  28         ---Purpose: computes the value <F>of the function for the variable <X>.
  29         --         Returns True if the calculation were successfully done,
  30         --          False otherwise.
  31
  32     returns Boolean;
  33
  34
  35     Derivative(me: in out; X: Real; D: out Real)
  36          ---Purpose: computes the derivative <D> of the function
  37          --          for the variable <X>.
  38         --           Returns True if the calculation were successfully done,
  39         --           False otherwise.
  40
  41     returns Boolean;
  42
  43
  44     Values(me: in out; X: Real; F, D: out Real)
  45         ---Purpose: computes the value <F> and the derivative <D> of the
  46         --          function for the variable <X>.
  47         --          Returns True if the calculation were successfully done,
  48         --          False otherwise.
  49
  50     returns Boolean;
  51
  52 fields
  53
  54     myCurve2d :  HCurve2d    from  Adaptor2d;
  55     myFixVal  :  Real  from  Standard;
  56     myFix    :  Integer     from  Standard;
  57
  58
  59
  60 end InterFunc;
  61