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
|
-- File: Graphic2d_FramedText.cdl
-- Created: Tue Jun 22 16:36:51 1993
-- Author: Jean Louis FRENKEL, Gerard GRAS
-- <jlf@stylox>
---Copyright: Matra Datavision 1993
class FramedText from Graphic2d inherits Text from Graphic2d
---Purpose: The class defines the primitive FramedText
uses
Drawer from Graphic2d,
GraphicObject from Graphic2d,
PlaneAngle from Quantity,
Length from Quantity,
Ratio from Quantity,
Factor from Quantity,
ExtendedString from TCollection,
TypeOfText from Aspect,
FStream from Aspect,
IFStream from Aspect
is
-------------------------
-- Category: Constructors
-------------------------
Create (aGraphicObject: GraphicObject from Graphic2d;
aText: ExtendedString from TCollection;
X, Y: Real from Standard;
anAngle: PlaneAngle from Quantity = 0.0;
aMargin: Ratio from Quantity = 0.1;
aType: TypeOfText from Aspect = Aspect_TOT_SOLID;
aScale: Factor from Quantity = 1.0)
returns mutable FramedText from Graphic2d;
---Level: Public
---Purpose: Creates a framed text in a graphic object <aGraphicObject>
-- The text is <aText>.
-- The reference point is <X>, <Y>.
-- The orientation angle is <anAngle>.
-- The margin ratio is <aMargin>,defines the proportional
-- margin between the text height and the outline frame.
-- The type of text is <aType> and must be one of :
-- Aspect_TOT_SOLID,
-- Aspect_TOT_OUTLINE,
-- The scale factor apply to the original font size,
-- Angles are measured counterclockwise with 0 radian
-- at 3 o'clock.
--
-- Warning: a text can be orientable,slantable,zoomable or outlinable
-- only when this options are enable regardless of the graphic driver.
-- i.e: Xw driver does not,but Xdps or PS driver does.
---Category: Constructors
---------------------------------------------------
-- Category: Methods to modify the class definition
---------------------------------------------------
SetFrameColorIndex (me:mutable; anIndex: Integer from Standard = 0)
is static;
---Level: Public
---Purpose: Sets the color index for the frame of the text <me>.
-- default color is 0 (the same color that the text).
SetFrameWidthIndex (me:mutable; anIndex: Integer from Standard = 0)
is static;
---Level: Public
---Purpose: Sets the width index for the frame of the text <me>.
-- default width is 0 (1 pixel out line frame is drawn).
Fit (me:mutable; aWidth,aHeight: Length from Quantity;
Adjust: Boolean from Standard = Standard_True;
Expand: Boolean from Standard = Standard_True)
returns Boolean from Standard is redefined;
---Level: Public
---Purpose: Defines the size of the text according to a bounding
-- box. If Adjust corresponds to TRUE, text positioning
-- depends on the text origin and bottom line. The
-- method returns Standard_True if the current Driver is
-- compatible with the text size.
-- Warning
-- Fit computation is executed only if the dimension is > 0.
Trunc (me:mutable; aWidth: Length from Quantity)
returns Boolean from Standard is redefined;
---Level: Public
---Purpose: Trunc the text when the Width of the text is greater
-- that the defined Width Max,
-- and returns Standard_True if the current Driver used is
-- enable to trunc the text size.
--------------------------
-- Category: Draw and Pick
--------------------------
Draw (me : mutable; aDrawer: Drawer from Graphic2d)
is redefined protected;
---Level: Internal
---Purpose: Draws the framed text <me>.
Pick (me : mutable; X, Y: ShortReal from Standard;
aPrecision: ShortReal from Standard;
aDrawer: Drawer from Graphic2d)
returns Boolean from Standard
is redefined protected;
---Level: Internal
---Purpose: Returns Standard_True if the framed text <me> is picked,
-- Standard_False if not.
----------------------------
-- Category: Inquire methods
----------------------------
TextSize (me; aWidth,aHeight,anXoffset,anYoffset: out Length from Quantity)
returns Boolean from Standard is redefined;
---Level: Public
---Purpose: Returns Standard_True if the current Driver used is enabled
-- to get the right size and framed text offsets in the
-- world size parameter <aWidth>,<aHeight>,<anXoffset>,<anYoffset>
-- depending of the attributes of the text and the current scale
-- of the view.
-- NOTE that the text offsets defines the relative position of the
-- of the text string origin from the lower left corner of the framed text
-- boundary limits.
---Category: Text management
Margin (me) returns Ratio from Quantity is static;
---Level: Public
---Purpose: Returns the text margin.
FrameColorIndex (me) returns Integer from Standard is static;
---Level: Public
---Purpose: Returns the text frame color index.
FrameWidthIndex (me) returns Integer from Standard is static;
---Level: Public
---Purpose: Returns the text frame width index.
----------------------------
-- Category: Private methods
----------------------------
ComputeMinMax (me : mutable)
returns Boolean from Standard is redefined private;
---Level: Internal
---Purpose: Computes the MinMax of the text if possible.
----------------------------------------------------------------------
Save( me; aFStream: in out FStream from Aspect ) is virtual;
-- Retrieve( myclass; anIFStream: in out IFStream from Aspect );
fields
myFrameColorIndex: Integer from Standard;
myFrameWidthIndex: Integer from Standard;
myMargin: ShortReal from Standard;
end FramedText from Graphic2d;
|
