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
|
-- File: DBRep.cdl
-- Created: Tue Jun 25 16:20:06 1991
-- Author: Christophe MARION
-- <cma@phobox>
---Copyright: Matra Datavision 1991, 1992
package DBRep
---Purpose: Used to display BRep objects using the DrawTrSurf
-- package.
-- The DrawableShape is a Display object build from a
-- Shape.
-- Provides methods to manage a directory of named shapes.
-- Provides a set of Draw commands for Shapes.
uses
MMgt,
TCollection,
TColStd,
gp,
TColgp,
Draw,
TopAbs,
TopoDS,
TopTools,
GeomAbs,
Geom2dHatch,
HLRBRep,
Poly
is
class Edge;
---Purpose: Display of an edge. Edge + color.
class ListOfEdge instantiates
List from TCollection(Edge from DBRep);
class Face;
---Purpose: Display of a face. Face + Array of iso + color.
class ListOfFace instantiates
List from TCollection(Face from DBRep);
class HideData;
---Purpose: Hidden lines data for a view
class ListOfHideData instantiates
List from TCollection(HideData from DBRep);
class DrawableShape;
---Purpose: Drawable structure to display a shape. Contains a
-- list of edges and a list of faces.
class IsoBuilder;
---Purpose: Creation of isoparametric curves.
-- class ProgressIndicator;
---Purpose : Implements ProgressIndicator for DRAW
--
-- Methods to manage variables
--
Set(Name : CString; S : Shape from TopoDS);
---Purpose: Sets <S> in the variable <Name>. Overwrite the
-- variable if already set.
Get(Name : in out CString;
Typ : ShapeEnum from TopAbs = TopAbs_SHAPE;
Complain : Boolean = Standard_False)
returns Shape from TopoDS;
---Purpose: Returns the shape in the variable <Name>. Returns
-- a null shape if the variable is not set or not of
-- the given <Typ>. If <Complain> is True a message
-- is printed on cout if the variable is not set.
BasicCommands(theCommands : in out Interpretor from Draw);
---Purpose: Defines the basic commands.
HLRMode returns Boolean from Standard;
---Purpose: True if HLR, False if wireframe.
Rg1Mode returns Boolean from Standard;
---Purpose: True if display Rg1Lines.
RgNMode returns Boolean from Standard;
---Purpose: True if display RgNLines.
HidMode returns Boolean from Standard;
---Purpose: True if display HiddenLines.
HLRAngle returns Real from Standard;
---Purpose: discretisation angle for edges.
NbIsos returns Integer from Standard;
---Purpose: number of iso in U and V
Discretisation returns Integer from Standard;
---Purpose: discretisation number of points for curves
--SetProgressBar(thePI: ProgressIndicator from Message);
---Purpose: set progress indicator
--GetProgressBar returns ProgressIndicator from Message;
---Purpose: get progress indicator
end DBRep;
|
