src/HLRTest/HLRTest_Projector.cdl

   1 -- Created on: 1995-04-05
   2 -- Created by: Christophe MARION
   3 -- Copyright (c) 1995-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 Projector from HLRTest inherits Drawable3D from Draw
  18         ---Purpose:
  19
  20 uses
  21     OStream,
  22     Display     from Draw,
  23     Interpretor from Draw,
  24     Projector   from HLRAlgo
  25
  26 is
  27     Create(P : Projector from HLRAlgo)
  28     returns Projector from HLRTest;
  29
  30     Projector(me) returns Projector from HLRAlgo;
  31         ---C++: return const &
  32         ---C++: inline
  33
  34     DrawOn(me; dis : in out Display from Draw);
  35         ---Purpose: Does nothhing,
  36
  37     Copy(me) returns Drawable3D from Draw
  38         ---Purpose: For variable copy.
  39     is redefined;
  40
  41     Dump(me; S : in out OStream)
  42         ---Purpose: For variable dump.
  43     is redefined;
  44
  45     Whatis(me; I : in out Interpretor from Draw)
  46         ---Purpose: For variable whatis command. Set  as a result  the
  47         --          type of the variable.
  48     is redefined;
  49
  50 fields
  51     myProjector : Projector from HLRAlgo;
  52
  53 end Projector;