blob: ab29f44790c005f61fdf6b8e5c908906299b2ce0 (
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
-- File: BOPTools_ShapeShapeInterference.cdl
-- Created: Tue Nov 21 15:16:07 2000
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2000
class ShapeShapeInterference from BOPTools
---Purpose:
-- Root class for storing an Interference
-- between a couple BRep shapes
is
Create
returns ShapeShapeInterference from BOPTools;
---Purpose:
--- Empty constructor
---
Create (anIndex1: Integer from Standard;
anIndex2: Integer from Standard)
returns ShapeShapeInterference from BOPTools;
---Purpose:
--- Constructor
---
SetIndex1(me:out; anIndex1:Integer from Standard);
---Purpose:
--- Modifier
--- Sets DS-index for the first shape from the couple
---
SetIndex2(me:out; anIndex2:Integer from Standard);
---Purpose:
--- Modifier
--- Sets DS-index for the second shape from the couple
---
SetNewShape(me:out; anIndex:Integer from Standard);
---Purpose:
--- Modifier
--- Sets DS-index for the new shape
---
Index1(me)
returns Integer from Standard;
---Purpose:
--- Selector
---
Index2(me)
returns Integer from Standard;
---Purpose:
--- Selector
---
Indices(me;
anIndex1:out Integer from Standard;
anIndex2:out Integer from Standard);
---Purpose:
--- Selector
---
OppositeIndex(me;
anIndex:Integer from Standard)
returns Integer from Standard;
---Purpose:
--- Selector
--- Gets the value of index
--- if anIndex==myIndex1 it returns myIndex2;
--- if anIndex==myIndex2 it returns myIndex1;
--- otherwise it returns 0;
---
NewShape(me)
returns Integer from Standard;
---Purpose:
--- Selector
---
fields
myIndex1 : Integer from Standard;
myIndex2 : Integer from Standard;
myNewShape: Integer from Standard;
end ShapeShapeInterference;
|
