blob: b8c62657ce079e675323081cd1b9b12fb013a4b8 (
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
|
-- File: ShapeUpgrade_ShapeDivideClosed.cdl
-- Created: Thu Jul 22 17:58:21 1999
-- Author: data exchange team
-- <det@friendox>
---Copyright: Matra Datavision 1999
class ShapeDivideClosed from ShapeUpgrade inherits ShapeDivide from ShapeUpgrade
---Purpose: Divides all closed faces in the shape. Class
-- ShapeUpgrade_ClosedFaceDivide is used as divide tool.
uses
Shape from TopoDS
is
Create (S: Shape from TopoDS) returns ShapeDivideClosed from ShapeUpgrade;
---Purpose: Initialises tool with shape and default parameter.
SetNbSplitPoints (me: in out; num: Integer);
---Purpose: Sets the number of cuts applied to divide closed faces.
-- The number of resulting faces will be num+1.
end ShapeDivideClosed;
|