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
|
--
-- File : TextDisplayTemplate.cdl
-- Created : Mon 11 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( TCD )
--
---Copyright : MATRA-DATAVISION 1993
--
class TextDisplayTemplate from IGESGraph inherits IGESEntity
---Purpose: defines IGES TextDisplayTemplate Entity,
-- Type <312>, form <0, 1> in package IGESGraph
--
-- Used to set parameters for display of information
-- which has been logically included in another entity
-- as a parameter value
uses
TextFontDef from IGESGraph,
Pnt from gp,
XYZ from gp
is
Create returns mutable TextDisplayTemplate;
-- specific for the entity
Init (me : mutable;
aWidth : Real;
aHeight : Real;
aFontCode : Integer;
aFontEntity : TextFontDef;
aSlantAngle : Real;
aRotationAngle : Real;
aMirrorFlag : Integer;
aRotationFlag : Integer;
aCorner : XYZ);
---Purpose : This method is used to set the fields of the class
-- TextDisplayTemplate
-- - aWidth : Character box width
-- - aHeight : Character box height
-- - afontCode : Font code
-- - aFontEntity : Text Font Definition Entity
-- - aSlantAngle : Slant angle
-- - aRotationAngle : Rotation angle
-- - aMirrorFlag : Mirror Flag
-- - aRotationFlag : Rotate internal text flag
-- - aCorner : Lower left corner coordinates(Form No. 0),
-- Increments from coordinates (Form No. 1)
SetIncremental (me : mutable; mode : Boolean);
---Purpose : Sets <me> to be Incremental (Form 1) if <mode> is True,
-- or Basolute (Form 0) else
IsIncremental (me) returns Boolean;
---Purpose : returns True if entity is Incremental (Form 1).
-- False if entity is Absolute (Form 0).
BoxWidth (me) returns Real;
---Purpose : returns Character Box Width.
BoxHeight (me) returns Real;
---Purpose : returns Character Box Height.
IsFontEntity (me) returns Boolean;
---Purpose : returns False if theFontEntity is Null, True otherwise.
FontCode (me) returns Integer;
---Purpose : returns the font code.
FontEntity (me) returns TextFontDef;
---Purpose : returns Text Font Definition Entity used to define the font.
SlantAngle (me) returns Real;
---Purpose : returns slant angle of character in radians.
RotationAngle (me) returns Real;
---Purpose : returns Rotation angle of text block in radians.
MirrorFlag (me) returns Integer;
---Purpose : returns Mirror flag
-- Mirror flag : 0 = no mirroring.
-- 1 = mirror axis perpendicular to text base line.
-- 2 = mirror axis is text base line.
RotateFlag (me) returns Integer;
---Purpose : returns Rotate internal text flag.
-- Rotate internal text flag : 0 = text horizontal.
-- 1 = text vertical.
StartingCorner (me) returns Pnt;
---Purpose : If IsIncremental() returns False,
-- gets coordinates of lower left corner
-- of first character box.
-- If IsIncremental() returns True,
-- gets increments from X, Y, Z coordinates
-- found in parent entity.
TransformedStartingCorner (me) returns Pnt;
---Purpose : If IsIncremental() returns False,
-- gets coordinates of lower left corner
-- of first character box.
-- If IsIncremental() returns True,
-- gets increments from X, Y, Z coordinates
-- found in parent entity.
fields
-- Class : IGESDraw_TextDisplayTemplate
--
-- Purpose : Declaration of the variables specific to a
-- TextDisplayTemplate.
--
-- Reminder : A Text Display Template Entity is defined by :
-- - character box width,
-- - character box height,
-- - a font code or pointer to TextFontDef
-- used to define the font,
-- - slant angle of each individual character,
-- - rotation angle of text block,
-- - a mirroring axis,
-- - a rotate internal text flag,
-- - coordinates of lower left corner of first character
-- box if form number = 0, or
-- increments in corresponding coordinates found in
-- parent entity, if form number = 1
theBoxWidth : Real;
theBoxHeight : Real;
theFontCode : Integer;
-- one of the predefined font codes
theFontEntity : TextFontDef;
-- Text Font Definition Entity used to define the font
theSlantAngle : Real;
-- slant angle of each individual character
-- For horizontal text, slant angle is measured from the XT axis
-- in a counterclockwise direction.
-- For Vertical Text, it is measured from the YT axis
theRotationAngle : Real;
-- rotation angle of the text block
-- The rotation angle is applied in a counterclockwise direction about
-- the text start point. The plane of rotation is the XT,YT plane.
theMirrorFlag : Integer;
-- specifies the mirroring axis
-- Mirror flag : 0 = no mirroring
-- 1 = mirror axis perpendicular to text base line
-- 2 = mirror axis is text base line
theRotateFlag : Integer;
-- specifies whether text box is filled with horizontal text or vertical
-- text
-- Rotate internal text flag : 0 = text horizontal
-- 1 = text vertical
theCorner : XYZ;
-- theCorner specifies the coordinates of lower left corner of first
-- character box if form-number = 0.
-- If form-number = 1, it gives the increments in X, Y, Z from X, Y, Z
-- coordinates found in parent entity.
end TextDisplayTemplate;
|
