7fd59977 |
1 | -- File: ImpParTool.cdl |

2 | -- Created: Mon Mar 30 18:19:14 1992 |

3 | -- Author: Laurent BUCHARD |

4 | -- <lbr@topsn3> |

5 | ---Copyright: Matra Datavision 1992 |

6 | |

7 | |

8 | generic class ImpParTool from IntImpParGen ( |

9 | ImpTool as any; -- as ImpTool from IntImpParGen |

10 | ParCurve as any; |

11 | ParTool as any) -- as ParTool from IntImpParGen(ParCurve) |

12 | |

13 | inherits FunctionWithDerivative from math |

14 | |

15 | ---Purpose: Implements the function used by FunctionAllRoots |

16 | -- to find the areas where the distance between the |

17 | -- implicit and the parametric curves is less than a |

18 | -- tolerance. |

19 | |

20 | |

21 | uses Pnt2d from gp, |

22 | Vec2d from gp |

23 | |

24 | is |

25 | |

26 | Create(IT: ImpTool; PC: ParCurve) |

27 | |

28 | ---Purpose: Constructor of the class. |

29 | |

30 | returns ImpParTool from IntImpParGen; |

31 | |

32 | |

33 | Value(me: in out; Param: Real from Standard; F: out Real from Standard) |

34 | |

35 | ---Purpose: Computes the value of the signed distance between |

36 | -- the implicit curve and the point at parameter Param |

37 | -- on the parametrised curve. |

38 | |

39 | returns Boolean from Standard |

40 | is redefined static; |

41 | |

42 | |

43 | Derivative(me: in out; Param: Real from Standard; |

44 | D: out Real from Standard) |

45 | |

46 | ---Purpose: Computes the derivative of the previous function at |

47 | -- parameter Param. |

48 | |

49 | returns Boolean from Standard |

50 | is redefined static; |

51 | |

52 | |

53 | Values(me: in out; Param: Real from Standard; F,D: out Real from Standard) |

54 | |

55 | ---Purpose: Computes the value and the derivative of the function. |

56 | |

57 | returns Boolean from Standard |

58 | is redefined static; |

59 | |

60 | fields |

61 | |

62 | TheParCurve : Address from Standard; |

63 | TheImpTool : ImpTool; |

64 | |

65 | end ImpParTool; |

66 | |