src/DrawDim/DrawDim_Distance.cdl

   1 -- Created on: 1997-04-21
   2 -- Created by: Denis PASCAL
   3 -- Copyright (c) 1997-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 Distance from DrawDim inherits Dimension from DrawDim
  18
  19         ---Purpose:
  20
  21 uses Face    from TopoDS,
  22      Display from Draw
  23
  24 is
  25
  26     Create (plane1 : Face from TopoDS; plane2 : Face from TopoDS)
  27     returns Distance from DrawDim;
  28
  29     Create (plane1 : Face from TopoDS)
  30     returns Distance from DrawDim;
  31
  32     Plane1 (me) returns Face from TopoDS;
  33         ---C++: return const&
  34
  35     Plane1 (me : mutable; face : Face from TopoDS);
  36
  37     Plane2 (me) returns Face from TopoDS;
  38         ---C++: return const&
  39
  40     Plane2 (me : mutable; face : Face from TopoDS);
  41
  42     DrawOn (me; dis : in out Display);
  43
  44 fields
  45
  46     myPlane1 : Face  from TopoDS;
  47     myPlane2 : Face  from TopoDS;
  48
  49 end Distance;