src/BOPTest/BOPTest_DrawableShape.cdl

   1 -- Created on: 2000-05-25
   2 -- Created by: Peter KURNEV
   3 -- Copyright (c) 2000-2014 OPEN CASCADE SAS
   4 --
   5 -- This file is part of Open CASCADE Technology software library.
   6 --
   7 -- This library is free software; you can redistribute it and / or modify it
   8 -- under the terms of the GNU Lesser General Public version 2.1 as published
   9 -- by the Free Software Foundation, with special exception defined in the file
  10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  11 -- distribution for complete text of the license and disclaimer of any warranty.
  12 --
  13 -- Alternatively, this file may be used under the terms of Open CASCADE
  14 -- commercial license or contractual agreement.
  15
  16 class DrawableShape from BOPTest inherits DrawableShape from DBRep
  17
  18     ---Purpose:
  19
  20 uses
  21
  22     Shape           from TopoDS,
  23     Color           from Draw,
  24     Display         from Draw,
  25     Text3D          from Draw,
  26     Marker3D        from Draw,
  27     CString         from Standard,
  28     Pnt             from gp
  29
  30 is
  31
  32     Create (S         : Shape from TopoDS;
  33             FreeCol   : Color from Draw;    -- color for free edges
  34             ConnCol   : Color from Draw;    -- color for shared edges
  35             EdgeCol   : Color from Draw;    -- color for other edges
  36             IsosCol   : Color from Draw;    -- color for Isos
  37             size      : Real;               -- size for infinite isos
  38             nbisos    : Integer;            -- # of isos on each face
  39             discret   : Integer;            -- # of points on curves
  40             Text      : CString from Standard;
  41             TextColor : Color from Draw
  42             )
  43         returns mutable DrawableShape from BOPTest;
  44
  45     Create (S         : Shape from TopoDS;
  46             Text      : CString from Standard;
  47             TextColor : Color from Draw
  48             )
  49         returns mutable DrawableShape from BOPTest;
  50
  51     Pnt(me) returns Pnt from gp  is private;
  52
  53     DrawOn(me; dis : in out Display from Draw)
  54     is redefined;
  55
  56 fields
  57
  58     myText : Text3D from Draw;
  59     myTextColor : Color from Draw;
  60
  61 end DrawableShape;