1 -- Created on: 1992-03-12
2 -- Created by: Philippe DAUTRY
3 -- Copyright (c) 1992-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
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.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 deferred generic class Builder from Primitives(
24 ---Purpose: This is a signature class describing services from
25 -- the Topology Data Structure required by the
26 -- Primitives algorithms.
38 MakeShell (me; S : out TheShell)
39 ---Purpose: Make a empty Shell.
42 MakeFace (me; F : out TheFace; P : Pln from gp)
43 ---Purpose: Returns in <F> a Face built with the plane
47 MakeWire(me; W : out TheWire)
48 ---Purpose: Returns in <W> an empty Wire.
51 MakeDegeneratedEdge (me; E : out TheEdge)
52 ---Purpose: Returns in <E> a degenerated edge.
55 MakeEdge (me; E : out TheEdge; L : Lin from gp)
56 ---Purpose: Returns in <E> an Edge built with the line
60 MakeEdge (me; E : out TheEdge; C : Circ from gp)
61 ---Purpose: Returns in <E> an Edge built with the circle
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
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.
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
83 MakeVertex (me; V : out TheVertex; P : Pnt from gp)
84 ---Purpose: Returns in <V> a Vertex built with the point <P>.
87 ReverseFace(me; F : in out TheFace)
88 ---Purpose: Change the orientation of the face.
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.
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.
114 ---Purpose: <P1,P2> are the parameters of the vertex on the
115 -- edge. The edge is a closed curve.
122 ---Purpose: Adds the Edge <E> in the Wire <W>, if direct is
123 -- False the Edge is reversed.
129 ---Purpose: Adds the Wire <W> in the Face <F>.
133 Sh : in out TheShell;
135 ---Purpose: Adds the Face <F> in the Shell <Sh>.
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.
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.
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.
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.
158 end Builder from Primitives;