blob: 9769de20331b956b59d795e4055c727732f282cc (
plain)
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
|
-- File: Select2D_SensitivePoint.cdl
-- Created: Thu Jan 26 16:24:58 1995
-- Author: Mister rmi
-- <rmi@photon>
---Copyright: Matra Datavision 1995
class SensitivePoint from Select2D inherits SensitiveEntity from Select2D
---Purpose: A framework to define sensitive 2D points.
uses
Integer from Standard,
Pnt2d from gp,
EntityOwner from SelectBasics,
ListOfBox2d from SelectBasics
is
Create (OwnerId : EntityOwner from SelectBasics;
Location : Pnt2d from gp;
InitSensitivity : Real = 0)
returns mutable SensitivePoint from Select2D;
---Purpose: Constructs the sensitive point object defined by the
-- owner OwnerId, the point Location and the sensitivity InitSensitivity.
-- InitSensitivity allows choice of dimensions in the
-- selectable box around the sensitive point. It is
-- initialized with a null value, and is given a working one by Set.
Set(me:mutable; aSensitivity:Real) is static;
---Purpose: Sets the sensitivity aSensitivity for sensitive
-- primitives to find owners of points.
Areas (me:mutable ; aresul : in out ListOfBox2d from SelectBasics) is static;
---Level: Public
---Purpose: Returns the 2Dbox around the point (this box) has to be enlarged (sensitivity = 0)
Location(me) returns Pnt2d from gp;
---Level: Public
---C++: inline
---C++: return const&
---Purpose: returns the original point.
Matches (me : mutable ;
X,Y : Real from Standard;
aTol : Real from Standard;
DMin : out Real from Standard)
returns Boolean
is static;
---Purpose: if distance between P
Matches (me :mutable;
XMin,YMin,XMax,YMax : Real from Standard;
aTol: Real from Standard)
returns Boolean
is static;
fields
mylocation : Pnt2d from gp;
mysensitivity : Real;
end SensitivePoint;
|