1 -- Created on: 2001-09-14
2 -- Created by: Alexander GRIGORIEV
3 -- Copyright (c) 2001-2014 OPEN CASCADE SAS
5 -- This file is part of Open CASCADE Technology software library.
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License 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.
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
16 class Shape1 from XmlMNaming inherits Storable
18 ---Purpose: The XmlMNaming_Shape1 is the Persistent view of a TopoDS_Shape.
20 -- a Shape1 contains :
21 -- - a reference to a TShape
22 -- - a reference to Location
27 Orientation from TopAbs,
28 Document from XmlObjMgt,
29 Element from XmlObjMgt,
30 DOMString from XmlObjMgt
33 Create(Doc : out Document from XmlObjMgt) returns Shape1 from XmlMNaming;
36 Create(E : Element from XmlObjMgt) returns Shape1 from XmlMNaming;
39 Element (me) returns Element from XmlObjMgt;
40 ---Purpose: return myElement
41 ---C++: return const &
43 Element (me:in out) returns Element from XmlObjMgt;
44 ---Purpose: return myElement
47 TShapeId(me) returns Integer from Standard
51 LocId(me) returns Integer from Standard
55 Orientation(me) returns Orientation from TopAbs
59 SetShape (me: in out; ID, LocID : Integer from Standard;
60 Orient : Orientation from TopAbs)
65 SetVertex (me: in out; theVertex : Shape from TopoDS)
70 myElement : Element from XmlObjMgt;
71 myTShapeID : Integer from Standard;
72 myLocID : Integer from Standard;
73 myOrientation : Orientation from TopAbs;