blob: 668bec12ebb6db7e5a65ffe3bf08caab37ef61ce (
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
|
-- File: Sweep_Builder.cdl
-- Created: Fri Jan 8 18:06:12 1993
-- Author: Philippe DAUTRY
-- <fid@phylox>
-- Copyright: Matra Datavision 1993
deferred generic class Builder from Sweep(TheShape as any)
---Purpose: This is a signature class describing services
-- strictly required by the Swept Primitives
-- algorithms, from the Topology Data Structure .
--
uses
Orientation from TopAbs
is
MakeCompound (me; aCompound : out TheShape)
---Purpose: Returns an empty Compound.
is deferred;
MakeCompSolid (me; aCompSolid : out TheShape)
---Purpose: Returns an empty CompSolid.
is deferred;
MakeSolid (me; aSolid : out TheShape)
---Purpose: Returns an empty Solid.
is deferred;
MakeShell (me; aShell : out TheShape)
---Purpose: Returns an empty Shell.
is deferred;
MakeWire (me; aWire : out TheShape)
---Purpose: Returns an empty Wire.
is deferred;
Add(me; aShape1 : in out TheShape;
aShape2 : in TheShape;
Orient : in Orientation from TopAbs)
---Purpose: Adds the Shape 1 in the Shape 2, set to
-- <Orient> orientation.
is deferred;
Add(me; aShape1 : in out TheShape;
aShape2 : in TheShape)
---Purpose: Adds the Shape 1 in the Shape 2.
is deferred;
end Builder from Sweep;
|
