1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
-- File: GeomLProp.cdl
-- Created: Thu Mar 26 10:42:56 1992
-- Author: Herve LEGRAND
-- <hl@topsn3>
---Copyright: Matra Datavision 1992
package GeomLProp
---Purpose: These global functions compute the degree of
-- continuity of a 3D curve built by concatenation of two
-- other curves (or portions of curves) at their junction point.
uses Standard, gp, Geom, GeomAbs, LProp
is
private class CurveTool;
private class SurfaceTool;
class CLProps from GeomLProp
instantiates CLProps from LProp(Curve from Geom,
Vec from gp,
Pnt from gp,
Dir from gp,
CurveTool from GeomLProp);
class SLProps from GeomLProp
instantiates SLProps from LProp(Surface from Geom,
SurfaceTool from GeomLProp);
Continuity(C1,C2 : Curve from Geom;
u1,u2 : Real from Standard;
r1,r2 : Boolean from Standard;
tl,ta : Real from Standard)
---Purpose: Computes the regularity at the junction between C1 and
-- C2. The booleans r1 and r2 are true if the curves must
-- be taken reversed. The point u1 on C1 and the point
-- u2 on C2 must be confused.
-- tl and ta are the linear and angular tolerance used two
-- compare the derivative.
returns Shape from GeomAbs;
Continuity(C1,C2 : Curve from Geom;
u1,u2 : Real from Standard;
r1,r2 : Boolean from Standard)
---Purpose: The same as preciding but using the standard
-- tolerances from package Precision.
returns Shape from GeomAbs;
end GeomLProp;
|