src/PTopoDS/PTopoDS_Shape1.cdl

   1 -- Created by: DAUTRY Philippe
   2 -- Copyright (c) 1998-1999 Matra Datavision
   3 -- Copyright (c) 1999-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 --              ------------------
  17
  18 ---Version:     0.0
  19 --Version       Date            Purpose
  20 --              0.0     Feb  4 1998     Creation
  21
  22
  23 class Shape1 from PTopoDS inherits Storable from Standard
  24
  25     ---Purpose: The PTopoDS_Shape1 is the Persistent view of a TopoDS_Shape.
  26     --
  27     --  a  Shape1 contains :
  28     --
  29     --          - a reference to a TShape1.
  30     --
  31     --          - a Location  to put the TShape1 in  a local coordinate
  32     --          system.
  33     --
  34     --          - an Orientation.
  35     --
  36     --          It inherits from ExternShareable, so that it can be shared
  37     --          by other objects located outside the container.
  38
  39 uses
  40
  41     Orientation   from TopAbs,
  42     TShape1       from PTopoDS,
  43     Location      from PTopLoc
  44
  45 is
  46     Create returns Shape1 from PTopoDS;
  47     ---Level: Internal
  48
  49     Nullify(me : in out)
  50     is static;
  51
  52     TShape(me) returns any TShape1 from PTopoDS
  53     ---Level: Internal
  54     ---C++: return const &
  55     is static;
  56
  57     TShape(me : in out; T : TShape1 from PTopoDS)
  58     ---Level: Internal
  59     is static;
  60
  61     Location(me) returns Location from PTopLoc
  62     ---Level: Internal
  63     is static;
  64
  65     Location(me : in out; L : Location from PTopLoc)
  66     ---Level: Internal
  67     is static;
  68
  69     Orientation(me) returns Orientation from TopAbs
  70     ---Level: Internal
  71     is static;
  72
  73     Orientation(me: in out; O : Orientation from TopAbs)
  74     ---Level: Internal
  75     is static;
  76
  77 fields
  78
  79     myTShape   : TShape1     from PTopoDS;
  80     myLocation : Location    from PTopLoc;
  81     myOrient   : Orientation from TopAbs;
  82
  83 end Shape1;