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

2 | -- Created: Fri Feb 24 15:30:15 1995 |

3 | -- Author: Jacques GOUSSARD |

4 | -- <jag@topsn2> |

5 | ---Copyright: Matra Datavision 1995 |

6 | |

7 | |

8 | generic class SurfProps from Contap |

9 | (TheSurface as any; |

10 | TheSurfaceTool as any) -- as SurfaceTool from Contap |

11 | |

12 | ---Purpose: Internal tool used to compute the normal and its |

13 | -- derivatives. |

14 | |

15 | uses Pnt from gp, |

16 | Vec from gp |

17 | |

18 | is |

19 | |

20 | Normale(myclass; S: TheSurface; U,V: Real from Standard; |

21 | P: out Pnt from gp; |

22 | N: out Vec from gp); |

23 | |

24 | ---Purpose: Computes the point <P>, and normal vector <N> on |

25 | -- <S> at parameters U,V. |

26 | |

27 | |

28 | |

29 | DerivAndNorm(myclass; S: TheSurface; U,V: Real from Standard; |

30 | P : out Pnt from gp; |

31 | d1u,d1v: out Vec from gp; |

32 | N : out Vec from gp); |

33 | |

34 | ---Purpose: Computes the point <P>, and normal vector <N> on |

35 | -- <S> at parameters U,V. |

36 | |

37 | |

38 | |

39 | NormAndDn(myclass; S: TheSurface; U,V: Real from Standard; |

40 | P : out Pnt from gp; |

41 | N,Dnu,Dnv: out Vec from gp); |

42 | |

43 | ---Purpose: Computes the point <P>, normal vector <N>, and its |

44 | -- derivatives <Dnu> and <Dnv> on <S> at parameters U,V. |

45 | |

46 | |

47 | end SurfProps; |