src/DrawDim/DrawDim_PlanarAngle.cdl

   1 -- Created on: 1996-01-12
   2 -- Created by: Denis PASCAL
   3 -- Copyright (c) 1996-1999 Matra Datavision
   4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   8 -- This library is free software; you can redistribute it and/or modify it under
   9 -- the terms of the GNU Lesser General Public License version 2.1 as published
  10 -- by the Free Software Foundation, with special exception defined in the file
  11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 -- distribution for complete text of the license and disclaimer of any warranty.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class PlanarAngle from DrawDim inherits PlanarDimension from DrawDim
  18
  19         ---Purpose:
  20
  21 uses Shape    from TopoDS,
  22      Face    from TopoDS,
  23      Color   from Draw,
  24      Display from Draw
  25
  26 is
  27
  28     Create (plane : Face  from TopoDS;
  29             line1 : Shape from TopoDS;
  30             line2 : Shape from TopoDS)
  31     returns PlanarAngle from DrawDim;
  32
  33     Create (line1 : Shape from TopoDS;
  34             line2 : Shape from TopoDS)
  35     returns PlanarAngle from DrawDim;
  36
  37     Sector (me : mutable; inverted, reversed : Boolean from Standard);
  38
  39     Position (me : mutable; value : Real from Standard);
  40
  41     DrawOn (me; dis : in out Display);
  42
  43 fields
  44
  45     myLine1 : Shape from TopoDS;
  46     myLine2 : Shape from TopoDS;
  47     myIsReversed : Boolean from Standard;
  48     myIsInverted : Boolean from Standard;
  49     myPosition   : Real from Standard; -- par rapport au point d'intersection
  50
  51 end PlanarAngle;
  52