src/DsgPrs/DsgPrs_FilletRadiusPresentation.cdl

   1 -- Created on: 1997-12-08
   2 -- Created by: Serguei ZARITCHNY
   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 FilletRadiusPresentation from DsgPrs
  18
  19         ---Purpose: A framework for displaying radii of fillets.
  20 uses
  21     Presentation from Prs3d,
  22     Pnt from gp,
  23     Dir from gp,
  24     Drawer from Prs3d,
  25     ExtendedString from TCollection,
  26     ArrowSide from DsgPrs,
  27     TrimmedCurve from Geom,
  28     Circle  from Geom,
  29     Ax1 from gp
  30 is
  31     Add( myclass; aPresentation : Presentation from Prs3d;
  32                   aDrawer       : Drawer from Prs3d;
  33                   thevalue      : Real from Standard;
  34                   aText         : ExtendedString from TCollection;
  35                   aPosition     : Pnt from gp;
  36                   aNormalDir    : Dir from gp;
  37                   aBasePnt      : Pnt from gp;
  38                   aFirstPoint   : Pnt from gp;
  39                   aSecondPoint  : Pnt from gp;
  40                   aCenter       : Pnt from gp;
  41                   ArrowPrs      : ArrowSide from DsgPrs;
  42                   drawRevers    : Boolean from Standard;
  43                   DrawPosition  : out Pnt from gp;
  44                   EndOfArrow    : out Pnt from gp;
  45                   TrimCurve     : out TrimmedCurve from Geom;
  46                   HasCircle     : out Boolean from Standard);
  47         ---Purpose: Adds a display of the radius of a fillet to the
  48         -- presentation aPresentation. The display ttributes
  49         -- defined by the attribute manager aDrawer. the value
  50         -- specifies the length of the radius.
  51
  52 end FilletRadiusPresentation;