b311480e |
1 | -- Created on: 1992-03-12 |
2 | -- Created by: Philippe DAUTRY |
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 | -- |
973c2be1 |
8 | -- This library is free software; you can redistribute it and / or modify it |
9 | -- under the terms of the GNU Lesser General Public version 2.1 as published |
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 | deferred generic class Builder from Primitives( |
18 | TheShell as any; |
19 | TheFace as any; |
20 | TheWire as any; |
21 | TheEdge as any; |
22 | TheVertex as any) |
23 | |
24 | ---Purpose: This is a signature class describing services from |
25 | -- the Topology Data Structure required by the |
26 | -- Primitives algorithms. |
27 | |
28 | uses |
29 | Pnt from gp, |
30 | Lin from gp, |
31 | Circ from gp, |
32 | Pln from gp, |
33 | |
34 | Lin2d from gp, |
35 | Circ2d from gp |
36 | |
37 | is |
38 | MakeShell (me; S : out TheShell) |
39 | ---Purpose: Make a empty Shell. |
40 | is deferred; |
41 | |
42 | MakeFace (me; F : out TheFace; P : Pln from gp) |
43 | ---Purpose: Returns in <F> a Face built with the plane |
44 | -- equation <P>. |
45 | is deferred; |
46 | |
47 | MakeWire(me; W : out TheWire) |
48 | ---Purpose: Returns in <W> an empty Wire. |
49 | is deferred; |
50 | |
51 | MakeDegeneratedEdge (me; E : out TheEdge) |
52 | ---Purpose: Returns in <E> a degenerated edge. |
53 | is deferred; |
54 | |
55 | MakeEdge (me; E : out TheEdge; L : Lin from gp) |
56 | ---Purpose: Returns in <E> an Edge built with the line |
57 | -- equation <L>. |
58 | is deferred; |
59 | |
60 | MakeEdge (me; E : out TheEdge; C : Circ from gp) |
61 | ---Purpose: Returns in <E> an Edge built with the circle |
62 | -- equation <C>. |
63 | is deferred; |
64 | |
65 | SetPCurve(me; E : in out TheEdge; F : in TheFace; L : Lin2d from gp) |
66 | ---Purpose: Sets the line <L> to be the curve representing the |
67 | -- edge <E> in the parametric space of the surface of |
68 | -- <F>. |
69 | is deferred; |
70 | |
71 | SetPCurve(me; E : in out TheEdge; F : in TheFace; L1,L2 : Lin2d from gp) |
72 | ---Purpose: Sets the lines <L1,L2> to be the curves |
73 | -- representing the edge <E> in the parametric space |
74 | -- of the surface of <F>. The surface is closed. |
75 | is deferred; |
76 | |
77 | SetPCurve(me; E : in out TheEdge; F : in TheFace; C : Circ2d from gp) |
78 | ---Purpose: Sets the circle <C> to be the curve representing |
79 | -- the edge <E> in the parametric space of the |
80 | -- surface of <F>. |
81 | is deferred; |
82 | |
83 | MakeVertex (me; V : out TheVertex; P : Pnt from gp) |
84 | ---Purpose: Returns in <V> a Vertex built with the point <P>. |
85 | is deferred; |
86 | |
87 | ReverseFace(me; F : in out TheFace) |
88 | ---Purpose: Change the orientation of the face. |
89 | is deferred; |
90 | |
91 | AddEdgeVertex(me; |
92 | E : in out TheEdge; |
93 | V : in TheVertex; |
94 | P : in Real; |
95 | direct : Boolean) |
96 | ---Purpose: Adds the Vertex <V> in the Edge <E>. <P> is the |
97 | -- parameter of the vertex on the edge. If <direct> |
98 | -- is False the Vertex is reversed. |
99 | is deferred; |
100 | |
101 | AddEdgeVertex(me; |
102 | E : in out TheEdge; |
103 | V : in TheVertex; |
104 | P1,P2 : in Real) |
105 | ---Purpose: Adds the Vertex <V> in the Edge <E>. <P1,P2> are |
106 | -- the parameters of the vertex on the edge. The |
107 | -- edge is a closed curve. |
108 | is deferred; |
109 | |
110 | SetParameters(me; |
111 | E : in out TheEdge; |
112 | V : in TheVertex; |
113 | P1,P2 : in Real) |
114 | ---Purpose: <P1,P2> are the parameters of the vertex on the |
115 | -- edge. The edge is a closed curve. |
116 | is deferred; |
117 | |
118 | AddWireEdge(me; |
119 | W : in out TheWire; |
120 | E : in TheEdge; |
121 | direct : Boolean) |
122 | ---Purpose: Adds the Edge <E> in the Wire <W>, if direct is |
123 | -- False the Edge is reversed. |
124 | is deferred; |
125 | |
126 | AddFaceWire(me; |
127 | F : in out TheFace; |
128 | W : in TheWire) |
129 | ---Purpose: Adds the Wire <W> in the Face <F>. |
130 | is deferred; |
131 | |
132 | AddShellFace(me; |
133 | Sh : in out TheShell; |
134 | F : in TheFace) |
135 | ---Purpose: Adds the Face <F> in the Shell <Sh>. |
136 | is deferred; |
137 | |
138 | CompleteEdge(me; E : in out TheEdge) |
139 | ---Purpose: This is called once an edge is completed. It gives |
140 | -- the opportunity to perform any post treatment. |
141 | is deferred; |
142 | |
143 | CompleteWire(me; W : in out TheWire) |
144 | ---Purpose: This is called once a wire is completed. It gives |
145 | -- the opportunity to perform any post treatment. |
146 | is deferred; |
147 | |
148 | CompleteFace(me; F : in out TheFace) |
149 | ---Purpose: This is called once a face is completed. It gives |
150 | -- the opportunity to perform any post treatment. |
151 | is deferred; |
152 | |
153 | CompleteShell(me; S : in out TheShell) |
154 | ---Purpose: This is called once a shell is completed. It gives |
155 | -- the opportunity to perform any post treatment. |
156 | is deferred; |
157 | |
158 | end Builder from Primitives; |
159 | |
160 | |