0023510: Integration of test grid "vis" into the new testing system
[occt.git] / src / Select2D / Select2D_SensitiveArc.cdl
CommitLineData
b311480e 1-- Created on: 1995-05-23
2-- Created by: Robert COUBLANC
3-- Copyright (c) 1995-1999 Matra Datavision
4-- Copyright (c) 1999-2012 OPEN CASCADE SAS
5--
6-- The content of this file is subject to the Open CASCADE Technology Public
7-- License Version 6.5 (the "License"). You may not use the content of this file
8-- except in compliance with the License. Please obtain a copy of the License
9-- at http://www.opencascade.org and read it completely before using this file.
10--
11-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13--
14-- The Original Code and all software distributed under the License is
15-- distributed on an "AS IS" basis, without warranty of any kind, and the
16-- Initial Developer hereby disclaims all such warranties, including without
17-- limitation, any warranties of merchantability, fitness for a particular
18-- purpose or non-infringement. Please see the License for the specific terms
19-- and conditions governing the rights and limitations under the License.
20
7fd59977 21
22
23
24class SensitiveArc from Select2D
25inherits SensitiveEntity from Select2D
26
27 ---Purpose: sensitive Areas for an Arc Of Circle
28 -- One gives Radius and center,and limits.
29 -- or a geometric circle.
30
31uses
32 Ax2d from gp,
33 EntityOwner from SelectBasics,
34 ListOfBox2d from SelectBasics
35
36is
37 Create (OwnerId : EntityOwner from SelectBasics;
38 OriginAxis : Ax2d from gp;
39 Angle : Real from Standard;
40 Radius : Real from Standard;
41 MaxPoints : Integer=9)
42 returns mutable SensitiveArc ;
43 ---Level: Public
44 ---Purpose: Constructs a 2D sensitive arc object defined by the
45 -- owner OwnerId, the axis of origin OriginAxis, the
46 -- angle Angle, the radius Radius, and the maximum
47 -- number of points MaxPoints.
48 --
49 -- _.
50 -- \ angle /|
51 -- \_____/
52 -- \ / direction
53 -- \ /
54 -- *
55
56 Areas (me:mutable ; aresul : in out ListOfBox2d from SelectBasics) is static;
57 ---Level: Public
58 ---Purpose: returns the sensitive areas for a circle...
59
60 Matches (me : mutable ;
61 X,Y : Real from Standard;
62 aTol: Real from Standard;
63 DMin: out Real from Standard)
64 returns Boolean is static;
65 ---Purpose: returns true if the minimum distance DMin
66 -- between the postion x,y and the circle is less than aTol..
67
68
69 Matches (me :mutable;
70 XMin,YMin,XMax,YMax : Real from Standard;
71 aTol: Real from Standard)
72 returns Boolean
73 is static;
74
75fields
76
77 myradius : Real;
78 myax2d : Ax2d from gp;
79 myangle : Real;
80 mynbpt : Integer;
81end SensitiveArc;
82