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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
-- File: STEPConstruct_Styles.cdl
-- Created: Fri Sep 10 18:30:23 1999
-- Author: Andrey BETENEV
-- <abv@doomox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1999
class Styles from STEPConstruct inherits Tool from STEPConstruct
---Purpose: Provides a mechanism for reading and writing shape styles
-- (such as color) to and from the STEP file
-- This tool maintains a list of styles, either taking them
-- from STEP model (reading), or filling it by calls to
-- AddStyle or directly (writing).
-- Some methods deal with general structures of styles and
-- presentations in STEP, but there are methods which deal
-- with particular implementation of colors (as described in RP)
uses
WorkSession from XSControl,
InterfaceModel from Interface,
HGraph from Interface,
FinderProcess from Transfer,
TransientProcess from Transfer,
Shape from TopoDS,
SequenceOfTransient from TColStd,
HSequenceOfTransient from TColStd,
MapOfShape from TopTools,
RepresentationItem from StepRepr,
RepresentationContext from StepRepr,
PresentationStyleAssignment from StepVisual,
StyledItem from StepVisual,
Colour from StepVisual,
Color from Quantity,
IndexedDataMapOfTransientTransient from TColStd,
MechanicalDesignGeometricPresentationRepresentation from StepVisual,
ContextDependentShapeRepresentation from StepShape,
ProductDefinitionShape from StepRepr,
DataMapOfAsciiStringTransient from STEPConstruct,
DataMapOfPointTransient from STEPConstruct
is
Create returns Styles;
---Purpose: Creates an empty tool
Create (WS: WorkSession from XSControl) returns Styles;
---Purpose: Creates a tool and initializes it
Init (me: in out; WS: WorkSession from XSControl) returns Boolean;
---Purpose: Initializes tool; returns True if succeeded
--Basic methods: general work with styles
NbStyles (me) returns Integer;
---Purpose: Returns number of defined styles
Style (me; i: Integer) returns StyledItem from StepVisual;
---Purpose: Returns style with given index
ClearStyles (me: in out);
---Purpose: Clears all defined styles and PSA sequence
AddStyle (me: in out; style: StyledItem from StepVisual);
---Purpose: Adds a style to a sequence
AddStyle (me: in out; item: RepresentationItem from StepRepr;
PSA: PresentationStyleAssignment from StepVisual;
Override: StyledItem from StepVisual)
returns StyledItem from StepVisual;
---Purpose: Create a style linking giving PSA to the item, and add it to the
-- sequence of stored styles. If Override is not Null, then
-- the resulting style will be of the subtype OverridingStyledItem.
AddStyle (me: in out; Shape: Shape from TopoDS;
PSA: PresentationStyleAssignment from StepVisual;
Override: StyledItem from StepVisual)
returns StyledItem from StepVisual;
---Purpose: Create a style linking giving PSA to the Shape, and add it to the
-- sequence of stored styles. If Override is not Null, then
-- the resulting style will be of the subtype OverridingStyledItem.
-- The Sape is used to find corresponding STEP entity by call to
-- STEPConstruct::FindEntity(), then previous method is called.
CreateMDGPR (me: in out; Context: RepresentationContext from StepRepr;
MDGPR :in out MechanicalDesignGeometricPresentationRepresentation from StepVisual)
returns Boolean;
---Purpose: Create MDGPR, fill it with all the styles previously defined,
-- and add it to the model
CreateNAUOSRD (me: in out; Context: RepresentationContext from StepRepr;
CDSR : ContextDependentShapeRepresentation from StepShape;
initPDS : ProductDefinitionShape from StepRepr)
returns Boolean;
---Purpose: Create MDGPR, fill it with all the styles previously defined,
-- and add it to the model
-- IMPORTANT: <initPDS> must be null when use for NAUO colors
-- <initPDS> initialised only for SHUO case.
FindContext (me; Shape: Shape from TopoDS)
returns RepresentationContext from StepRepr;
---Purpose: Searches the STEP model for the RepresentationContext in which
-- given shape is defined. This context (if found) can be used
-- then in call to CreateMDGPR()
LoadStyles (me: in out) returns Boolean;
---Purpose: Searches the STEP model for the MDGPR or DM entities
-- (which bring styles) and fills sequence of styles
LoadInvisStyles (me; InvSyles : in out HSequenceOfTransient from TColStd)
returns Boolean;
---Purpose: Searches the STEP model for the INISIBILITY enteties
-- (which bring styles) and fills out sequence of styles
--Specialized methods: work with colors
MakeColorPSA (me; item: RepresentationItem from StepRepr;
SurfCol: Colour from StepVisual;
CurveCol: Colour from StepVisual;
isForNAUO : Boolean from Standard = Standard_False)
returns PresentationStyleAssignment from StepVisual;
---Purpose: Create a PresentationStyleAssignment entity which defines
-- two colors (for filling surfaces and curves)
-- if isForNAUO true then returns PresentationStyleByContext
GetColorPSA (me: in out; item: RepresentationItem from StepRepr;
Col: Colour from StepVisual)
returns PresentationStyleAssignment from StepVisual;
---Purpose: Returns a PresentationStyleAssignment entity which defines
-- surface and curve colors as Col. This PSA is either created
-- or taken from internal map where all PSAs created by this
-- method are remembered.
GetColors (me; style: StyledItem from StepVisual;
SurfCol : out Colour from StepVisual;
BoundCol: out Colour from StepVisual;
CurveCol: out Colour from StepVisual;
IsComponent: in out Boolean from Standard)
returns Boolean;
---Purpose: Extract color definitions from the style entity
-- For each type of color supported, result can be either
-- NULL if it is not defined by that style, or last
-- definition (if they are 1 or more)
--Auxiliary methods: conversions between STEP and CASCADE color definitions
EncodeColor (myclass; Col: Color from Quantity) returns Colour from StepVisual;
---Purpose: Create STEP color entity by given Quantity_Color
-- The analysis is performed for whether the color corresponds to
-- one of standard colors predefined in STEP. In that case,
-- PredefinedColour entity is created instead of RGBColour
EncodeColor (myclass; Col: Color from Quantity;
DPDCs : in out DataMapOfAsciiStringTransient from STEPConstruct;
ColRGBs : in out DataMapOfPointTransient from STEPConstruct)
returns Colour from StepVisual;
---Purpose: Create STEP color entity by given Quantity_Color
-- The analysis is performed for whether the color corresponds to
-- one of standard colors predefined in STEP. In that case,
-- PredefinedColour entity is created instead of RGBColour
DecodeColor (myclass; Colour: Colour from StepVisual;
Col : out Color from Quantity)
returns Boolean;
---Purpose: Decodes STEP color and fills the Quantity_Color.
-- Returns True if OK or False if color is not recognized
fields
myMapOfStyles : IndexedDataMapOfTransientTransient from TColStd;
myStyles : SequenceOfTransient from TColStd;
myPSA : SequenceOfTransient from TColStd;
end Styles;
|
