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