b311480e |
1 | -- Created on: 1998-02-18 |

2 | -- Created by: Jeanine PANCIATICI |

3 | -- Copyright (c) 1998-1999 Matra Datavision |

973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |

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 | |

17 | private 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 | |

24 | uses |

25 | HCurve2d from Adaptor2d |

26 | |

27 | raises ConstructionError |

28 | |

29 | is |

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 | |

62 | fields |

63 | |

64 | myCurve2d : HCurve2d from Adaptor2d; |

65 | myFixVal : Real from Standard; |

66 | myFix : Integer from Standard; |

67 | |

68 | |

69 | |

70 | end InterFunc; |

71 | |