src/GeomFill/GeomFill_PlanFunc.cdl

   1 -- File:        GeomFill_PlanFunc.cdl
   2 -- Created:     Thu Oct 29 10:47:24 1998
   3 -- Author:      Philippe MANGIN
   4 --              <pmn@sgi29>
   5 ---Copyright:    Matra Datavision 1998
   6
   7
   8 private  class PlanFunc from GeomFill
   9 inherits  FunctionWithDerivative from math
  10
  11         ---Purpose:
  12
  13 uses
  14   HCurve  from Adaptor3d,
  15   Pnt     from  gp,
  16   Vec     from  gp,
  17   XYZ     from  gp
  18
  19 is
  20     Create(P  :  Pnt;  V  :  Vec;  C  :  HCurve  from  Adaptor3d)
  21     returns  PlanFunc from GeomFill;
  22
  23     Value(me: in out; X: Real; F: out Real)
  24         ---Purpose: computes the value <F>of the function for the variable <X>.
  25         --          Returns True if the calculation were successfully done,
  26         --          False otherwise.
  27
  28     returns Boolean
  29     is redefined;
  30
  31     Derivative(me: in out; X: Real; D: out Real)
  32          ---Purpose: computes the derivative <D> of the function
  33          --          for the variable <X>.
  34         --           Returns True if the calculation were successfully done,
  35         --           False otherwise.
  36
  37     returns Boolean
  38     is redefined;
  39
  40     Values(me: in out; X: Real; F, D: out Real)
  41         ---Purpose: computes the value <F> and the derivative <D> of the
  42         --          function for the variable <X>.
  43         --          Returns True if the calculation were successfully done,
  44         --          False otherwise.
  45     returns Boolean
  46     is redefined;
  47
  48     D2(me:in  out;  X:Real;  F,  D1,  D2: out Real)
  49     is  static;
  50
  51     DEDT(me :  in  out;  X:Real;
  52          DP, DV  :  Vec;
  53          DF  :  out  Real)
  54     is  static;
  55
  56     D2E(me :  in  out;  X:Real;
  57         DP, D2P  :  Vec;
  58         DV,  D2V :  Vec;
  59         DFDT,  D2FDT2,  D2FDTDX :  out  Real)
  60     is  static;
  61
  62 fields
  63   myPnt  :  XYZ;
  64   myVec  :  XYZ;
  65   V      :  XYZ;
  66   G      :  Pnt;
  67   myCurve  :  HCurve  from  Adaptor3d;
  68 end PlanFunc;