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
|
-- File: StdSelect_SensitiveText2d.cdl
-- Created: Fri Apr 21 10:53:42 1995x
-- Author: Robert COUBLANC
-- <rob@photon>
---Copyright: Matra Datavision 1995
class SensitiveText2d from StdSelect inherits SensitiveEntity from
Select2D
---Purpose: A framework to define a sensitive text entity for 2D views.
uses
ExtendedString from TCollection,
EntityOwner from SelectBasics,
ListOfBox2d from SelectBasics,
Projector from Select2D,
Array1OfPnt2d from TColgp,
Box2d from Bnd
is
Create(anOwnerId : EntityOwner from SelectBasics;
aString : ExtendedString from TCollection;
XPox,YPos : Real from Standard;
Angle : Real = 0;
aFontIndex: Integer = -1)
returns mutable SensitiveText2d from StdSelect;
---Purpose: Constructs a sensitive 2D text object defined by the
-- owner anOwnerId, the string aString, the point
-- defined by the parameters XPos and YPos, the angle
-- Angle and the font index aFontIndex.
NeedsConversion (me) returns Boolean is redefined static;
---Purpose: returns Standard_True
---Level: Public
---C++: inline
Convert(me:mutable; aTextProj : Projector from Select2D) is redefined virtual;
---Purpose: gets the size of the text in the 2d view
---Level: Public
Areas(me:mutable; aresult : in out ListOfBox2d from SelectBasics) is redefined static;
---Level: Public
---Purpose: to be implemented specifically by each type of
-- sensitive primitive .
--
Matches (me :mutable;
X,Y : Real from Standard;
aTol: Real from Standard;
DMin: out Real from Standard)
returns Boolean
is redefined static;
Matches (me :mutable;
XMin,YMin,XMax,YMax : Real from Standard;
aTol: Real from Standard)
returns Boolean
is redefined static;
Matches (me :mutable;
Polyline:Array1OfPnt2d from TColgp;
aBox:Box2d from Bnd;
aTol: Real from Standard)
returns Boolean
is redefined static;
fields
mytext : ExtendedString from TCollection;
myxpos : Real;
myypos : Real;
myangle: Real;
myfont : Integer;
myinitbox: Box2d from Bnd; --box before rotation...
end SensitiveText2d;
|
