src/Select2D/Select2D_SensitiveArc.cdl

   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
  21
  22
  23
  24 class SensitiveArc from Select2D
  25 inherits 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
  31 uses
  32     Ax2d from gp,
  33     EntityOwner from SelectBasics,
  34     ListOfBox2d from SelectBasics
  35
  36 is
  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
  75 fields
  76
  77     myradius : Real;
  78     myax2d   : Ax2d from gp;
  79     myangle  : Real;
  80     mynbpt   : Integer;
  81 end SensitiveArc;
  82