b311480e |
1 | -- Created on: 1992-03-26 |
2 | -- Created by: Herve LEGRAND |
3 | -- Copyright (c) 1992-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 | package GeomLProp |
18 | |
19 | ---Purpose: These global functions compute the degree of |
20 | -- continuity of a 3D curve built by concatenation of two |
21 | -- other curves (or portions of curves) at their junction point. |
22 | |
23 | uses Standard, gp, Geom, GeomAbs, LProp |
24 | |
25 | is |
26 | |
27 | private class CurveTool; |
28 | private class SurfaceTool; |
29 | |
30 | class CLProps from GeomLProp |
31 | instantiates CLProps from LProp(Curve from Geom, |
32 | Vec from gp, |
33 | Pnt from gp, |
34 | Dir from gp, |
35 | CurveTool from GeomLProp); |
36 | |
37 | |
38 | class SLProps from GeomLProp |
39 | instantiates SLProps from LProp(Surface from Geom, |
40 | SurfaceTool from GeomLProp); |
41 | |
42 | |
43 | Continuity(C1,C2 : Curve from Geom; |
44 | u1,u2 : Real from Standard; |
45 | r1,r2 : Boolean from Standard; |
46 | tl,ta : Real from Standard) |
47 | ---Purpose: Computes the regularity at the junction between C1 and |
48 | -- C2. The booleans r1 and r2 are true if the curves must |
49 | -- be taken reversed. The point u1 on C1 and the point |
50 | -- u2 on C2 must be confused. |
51 | -- tl and ta are the linear and angular tolerance used two |
52 | -- compare the derivative. |
53 | returns Shape from GeomAbs; |
54 | |
55 | |
56 | Continuity(C1,C2 : Curve from Geom; |
57 | u1,u2 : Real from Standard; |
58 | r1,r2 : Boolean from Standard) |
59 | ---Purpose: The same as preciding but using the standard |
60 | -- tolerances from package Precision. |
61 | returns Shape from GeomAbs; |
62 | |
63 | end GeomLProp; |
64 | |
65 | |
66 | |
67 | |