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 : TextFontDef.cdl
-- Created : Mon 11 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( TCD )
--
---Copyright : MATRA-DATAVISION 1993
--
class TextFontDef from IGESGraph inherits IGESEntity
---Purpose : defines IGES Text Font Definition Entity, Type <310>
-- in package IGESGraph
--
-- Used to define the appearance of characters in a text font.
-- It may be used to describe a complete font or a
-- modification to a subset of characters in another font.
uses
HAsciiString from TCollection,
HArray1OfInteger from TColStd,
HArray1OfHArray1OfInteger from IGESBasic
raises DimensionMismatch, OutOfRange
is
Create returns mutable TextFontDef;
-- specific for the entity
Init (me : mutable;
aFontCode : Integer;
aFontName : HAsciiString;
aSupersededFont : Integer;
aSupersededEntity : TextFontDef;
aScale : Integer;
allASCIICodes : HArray1OfInteger;
allNextCharX : HArray1OfInteger;
allNextCharY : HArray1OfInteger;
allPenMotions : HArray1OfInteger;
allPenFlags : HArray1OfHArray1OfInteger;
allMovePenToX : HArray1OfHArray1OfInteger;
allMovePenToY : HArray1OfHArray1OfInteger)
raises DimensionMismatch;
---Purpose : This method is used to set the fields of the class
-- TextFontDef
-- - aFontCode : Font Code
-- - aFontName : Font Name
-- - aSupersededFont : Number of superseded font
-- - aSupersededEntity : Text Definition Entity
-- - aScale : No. of grid units = 1 text height unit
-- - allASCIICodes : ASCII codes for characters
-- - allNextCharX & Y : Grid locations of the next
-- character's origin (Integer vals)
-- - allPenMotions : No. of pen motions for the characters
-- - allPenFlags : Pen up/down flags,
-- 0 = Down (default), 1 = Up
-- - allMovePenToX & Y : Grid locations the pen will move to
-- This method initializes the fields of the class TextFontDef.
-- An exception is raised if the lengths of allASCIICodes,
-- allNextChars, allPenMotions, allPenFlags and allMovePenTo
-- are not same.
FontCode (me) returns Integer;
---Purpose : returns the font code.
FontName (me) returns HAsciiString from TCollection;
---Purpose : returns the font name.
IsSupersededFontEntity (me) returns Boolean;
---Purpose : True if this definition supersedes another
-- TextFontDefinition Entity,
-- False if it supersedes value.
SupersededFontCode (me) returns Integer;
---Purpose : returns the font number which this entity modifies.
SupersededFontEntity (me) returns TextFontDef;
---Purpose : returns the font entity which this entity modifies.
Scale (me) returns Integer;
---Purpose : returns the number of grid units which equal one text height unit.
NbCharacters (me) returns Integer;
---Purpose : returns the number of characters in this definition.
ASCIICode (me; Chnum : Integer) returns Integer
raises OutOfRange;
---Purpose : returns the ASCII code of Chnum'th character.
-- Exception OutOfRange is raised if Chnum <= 0 or Chnum > NbCharacters
NextCharOrigin (me; Chnum : Integer; NX,NY : out Integer)
raises OutOfRange;
---Purpose : returns grid location of origin of character next to Chnum'th char.
-- Exception OutOfRange is raised if Chnum <= 0 or Chnum > NbCharacters
NbPenMotions (me; Chnum : Integer) returns Integer
raises OutOfRange;
---Purpose : returns number of pen motions for Chnum'th character.
-- Exception OutOfRange is raised if Chnum <= 0 or Chnum > NbCharacters
IsPenUp (me; Chnum : Integer; Motionnum : Integer) returns Boolean
raises OutOfRange;
---Purpose : returns pen status(True if 1, False if 0) of Motionnum'th motion
-- of Chnum'th character.
-- Exception raised if Chnum <= 0 or Chnum > NbCharacters or
-- Motionnum <= 0 or Motionnum > NbPenMotions
NextPenPosition (me; Chnum : Integer; Motionnum : Integer;
IX,IY : out Integer)
raises OutOfRange;
-- returns, for Motionnum'th motion of Chnum'th character,
-- the grid location to which the pen is to move.
-- Exception raised if Chnum <= 0 or Chnum > NbCharacters or
-- Motionnum <= 0 or Motionnum > NbPenMotions
fields
-- Class : IGESDraw_TextFontDef
--
-- Purpose : Declaration of the variables specific to a TextFontDef.
--
-- Reminder : A Text Font Definition Entity is defined by :
-- - a font code,
-- - a font name,
-- - number of the font or pointer to the TextFontDef which
-- this definition supersedes,
-- - number of grid units which equal one text height unit,
-- - ASCII codes for each character in this definition,
-- - Grid locations of next character's origin, for each char
-- - number of pen motions for each character,
-- - status of pen flag for each motion of each character,
-- - Grid location to which pen is to move, for each motion
-- of each character
--
theFontCode : Integer;
theFontName : HAsciiString;
theSupersededFontCode : Integer;
theSupersededFontEntity : TextFontDef;
theScale : Integer;
theASCIICodes : HArray1OfInteger;
-- ASCII code for each character
theNextCharOriginX : HArray1OfInteger;
theNextCharOriginY : HArray1OfInteger;
-- For each character, Grid location of next character's origin
theNbPenMotions : HArray1OfInteger;
-- Number of pen motions for each character(Length = NbCharacters)
-- is (NM1 ,NM2 ....... NMn)
thePenMotions : HArray1OfHArray1OfInteger;
-- Status of Pen up/down flag for each character
-- flag : 0 = Down(Default)
-- 1 = Up
-- Note : Inner HArray1 are of lengths NM1, NM2... NMn respectively
thePenMovesToX : HArray1OfHArray1OfInteger;
thePenMovesToY : HArray1OfHArray1OfInteger;
-- For each character, Grid location to which the pen is to move
-- Note : Inner HArray1 are of lengths NM1, NM2... NMn respectively
end TextFontDef;
|
