src/QANewBRepNaming/QANewBRepNaming_Prism.cdl

   1 -- Created on: 1999-11-05
   2 -- Created by: Vladislav ROMASHKO
   3 -- Copyright (c) 1999-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 Prism from QANewBRepNaming inherits TopNaming from QANewBRepNaming
  18
  19     ---Purpose: To load the Prism results
  20
  21 uses
  22
  23     MakePrism from BRepPrimAPI,
  24     Label     from TDF,
  25     Shape     from TopoDS
  26
  27 is
  28
  29     Create returns Prism from QANewBRepNaming;
  30
  31     Create(ResultLabel : Label from TDF)
  32     returns Prism from QANewBRepNaming;
  33
  34     Init(me : in out; ResultLabel : Label from TDF);
  35
  36
  37     Load (me; mkPrism : in out MakePrism from BRepPrimAPI;
  38               basis   : in     Shape     from TopoDS);
  39     ---Purpose: Loads the prism in the data framework
  40
  41     Bottom (me)
  42     ---Purpose : Returns the insertion label of the bottom face of the Prism.
  43     returns Label from TDF;
  44
  45     Top (me)
  46     ---Purpose : Returns  the insertion label of the  top face of the Prism.
  47     returns Label  from TDF;
  48
  49     Lateral (me)
  50     ---Purpose: Returns the insertion label of the lateral face of the Prism.
  51     returns Label from TDF;
  52
  53     Degenerated (me)
  54     ---Purpose: Returns the insertion label of the degenerated face of the Prism.
  55     returns Label from TDF;
  56
  57     Dangle (me)
  58     ---Purpose: Returns the insertion label of the degenerated face of the Prism.
  59     returns Label from TDF;
  60
  61     Content (me)
  62     ---Purpose: Returns the insertion label of the degenerated face of the Prism.
  63     returns Label from TDF;
  64
  65 end Prism;