blob: 950afe090c9c79ba93336b6edf1c65f7c7185353 (
plain)
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
|
-- File: ShapeFix_ShapeTolerance.cdl
-- Created: Wed Jul 22 17:46:14 1998
-- Author: data exchange team
-- <det@nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1998
class ShapeTolerance from ShapeFix
---Purpose: Modifies tolerances of sub-shapes (vertices, edges, faces)
uses
Shape from TopoDS,
ShapeEnum from TopAbs
is
Create returns ShapeTolerance from ShapeFix;
LimitTolerance (me; shape: Shape from TopoDS;
tmin : Real;
tmax : Real = 0.0;
styp : ShapeEnum from TopAbs = TopAbs_SHAPE)
returns Boolean;
---Purpose: Limits tolerances in a shape as follows :
-- tmin = tmax -> as SetTolerance (forces)
-- tmin = 0 -> maximum tolerance will be <tmax>
-- tmax = 0 or not given (more generally, tmax < tmin) ->
-- <tmax> ignored, minimum will be <tmin>
-- else, maximum will be <max> and minimum will be <min>
-- styp = VERTEX : only vertices are set
-- styp = EDGE : only edges are set
-- styp = FACE : only faces are set
-- styp = WIRE : to have edges and their vertices set
-- styp = other value : all (vertices,edges,faces) are set
-- Returns True if at least one tolerance of the sub-shape has
-- been modified
SetTolerance (me; shape: Shape from TopoDS;
preci: Real;
styp : ShapeEnum from TopAbs = TopAbs_SHAPE);
---Purpose: Sets (enforces) tolerances in a shape to the given value
-- styp = VERTEX : only vertices are set
-- styp = EDGE : only edges are set
-- styp = FACE : only faces are set
-- styp = WIRE : to have edges and their vertices set
-- styp = other value : all (vertices,edges,faces) are set
end ShapeTolerance;
|
