7fd59977 |
1 | -- File: QANewBRepNaming_Gluing.cdl |
2 | -- Created: Mon Nov 26 11:45:34 2001 |
3 | -- Author: Sergey ZARITCHNY <szy@nnov.matra-dtv.fr> |
4 | -- Copyright: SAMTECH S.A. 2001 |
5 | |
7fd59977 |
6 | -- Lastly modified by : |
7 | -- +---------------------------------------------------------------------------+ |
8 | -- ! mpv ! Same history and divided shapes cases ! 6-09-2002! 3.0-00-3! |
9 | -- +---------------------------------------------------------------------------+ |
10 | |
11 | class Gluing from QANewBRepNaming inherits TopNaming from QANewBRepNaming |
12 | |
13 | ---Purpose: Loads a result of Gluing operation in Data Framework |
14 | |
15 | uses |
16 | |
17 | Glue from QANewModTopOpe, |
18 | Shape from TopoDS, |
19 | ShapeEnum from TopAbs, |
20 | Label from TDF, |
21 | LabelMap from TDF, |
22 | IndexedDataMapOfShapeListOfShape from TopTools, |
23 | DataMapOfShapeInteger from TopTools |
24 | |
25 | |
26 | raises NullObject from Standard |
27 | |
28 | is |
29 | |
30 | Create returns Gluing from QANewBRepNaming; |
31 | |
32 | Create(theResultLabel : Label from TDF) |
33 | returns Gluing from QANewBRepNaming; |
34 | |
35 | Init(me : in out; theResultLabel : Label from TDF); |
36 | |
37 | |
38 | Load (me : in out; theMkGluing : in out Glue from QANewModTopOpe); |
39 | ---Purpose: Loads a Gluing in a data framework |
40 | |
41 | ---Category: Protected methods |
42 | -- ==================== |
43 | |
44 | ShapeType(me; theShape : Shape from TopoDS) |
45 | ---Purpose: If the shape is a compound the method |
46 | -- returns the underlying shape type. |
47 | returns ShapeEnum from TopAbs |
48 | is private; |
49 | |
50 | GetShape(me; theShape : Shape from TopoDS) |
51 | ---Purpose: If the shape is a compound the method |
52 | -- returns the underlying shape. |
53 | returns Shape from TopoDS |
54 | is private; |
55 | |
56 | LoadModifiedShapes(me; theMakeShape : in out Glue from QANewModTopOpe) |
57 | ---Purpose: A default implementation for naming of modified shapes of the operation |
58 | is private; |
59 | |
60 | LoadDeletedShapes(me; theMakeShape : in out Glue from QANewModTopOpe) |
61 | ---Purpose: A default implementation for naming of modified shapes of the operation |
62 | is private; |
63 | |
64 | Content (me) |
65 | ---Purpose : |
66 | returns Label from TDF; |
67 | |
68 | LoadContent(me; theMakeShape : in out Glue from QANewModTopOpe) |
69 | ---Purpose: Loads the content of the result. |
70 | is private; |
71 | |
72 | LoadResult(me; theMakeShape : in out Glue from QANewModTopOpe) |
73 | ---Purpose: Loads the result. |
74 | is private; |
75 | |
76 | IsResultChanged(me; theMakeShape : in out Glue from QANewModTopOpe) |
77 | ---Purpose: Returns true if the result is not the same as the object shape. |
78 | returns Boolean from Standard is private ; |
79 | |
80 | SetContext(me :in out; theObject, theTool : Shape from TopoDS); |
81 | |
82 | SetLog(me: in out; theLog : LabelMap from TDF); |
83 | |
84 | LoadSectionEdges(me; theMakeShape : in out Glue from QANewModTopOpe) |
85 | ---Purpose: Loads the deletion of the degenerated edges. |
86 | is private; |
87 | |
88 | AddToTheUnique(me: in out; theUnique, theIdentifier : Shape from TopoDS) is private; |
89 | |
90 | RecomputeUnique(me : in out; theMakeShape : in out Glue from QANewModTopOpe) |
91 | ---Purpose: Reset myShared map - shapes, which are modified by both object and tool. |
92 | is private; |
93 | |
94 | LoadSourceShapes(me; theSources : in out DataMapOfShapeInteger from TopTools) |
95 | is private; |
96 | |
97 | LoadUniqueShapes(me: in out; theMakeShape : in out Glue from QANewModTopOpe; |
98 | theSources : DataMapOfShapeInteger from TopTools) |
99 | ---Purpose: A default implementation for naming of generated shapes of the operation |
100 | is private; |
101 | |
102 | |
103 | fields |
104 | |
105 | myUnique : IndexedDataMapOfShapeListOfShape from TopTools; |
106 | |
107 | myContext : Shape from TopoDS; |
108 | myLog : LabelMap from TDF; |
109 | |
110 | end Gluing; |
111 | |
112 | |
113 | -- @@SDM: begin |
114 | |
115 | -- Copyright SAMTECH ..........................................Version 3.0-00 |
116 | -- Lastly modified by : mpv Date : 6-09-2002 |
117 | |
118 | -- File history synopsis (creation,modification,correction) |
119 | -- +---------------------------------------------------------------------------+ |
120 | -- ! Developer ! Comments ! Date ! Version ! |
121 | -- +-----------!-----------------------------------------!----------!----------+ |
122 | -- ! szy ! Creation !26-11-2001! 3.0-00-1! |
123 | -- ! mpv ! Specific gluing operation naming ! 1-02-2002! 3.0-00-2! |
124 | -- ! mpv ! Same history and divided shapes cases ! 6-09-2002! 3.0-00-3! |
125 | -- +---------------------------------------------------------------------------+ |
126 | |
127 | -- @@SDM: end |