src/MgtPoly/MgtPoly.cdl

   1 -- Created on: 1995-10-24
   2 -- Created by: Mister rmi
   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 package MgtPoly
  18
  19         ---Purpose: This  package   provides   methods  to   translate
  20         --          transient objects from Poly to  persistent objects
  21         --          from PPoly and vice-versa.
  22         --          As far as objects can be shared (just as Geometry),
  23         --          a map is given as translate argument.
  24
  25
  26 uses Poly,
  27      PPoly,
  28      PTColStd
  29
  30 is
  31
  32     -- Triangle (Storable)
  33
  34     Translate(POjb: Triangle from PPoly)
  35         returns Triangle from Poly;
  36         ---Purpose: translates Transient -> Persistent
  37
  38     Translate(TObj: Triangle from Poly)
  39         returns Triangle from PPoly;
  40         ---Purpose: translates Persistent -> Transient
  41
  42     -- Triangulation
  43
  44     Translate(PObj : Triangulation from PPoly;
  45               aMap : in out PersistentTransientMap from PTColStd)
  46         returns Triangulation from Poly;
  47         ---Purpose: translates Persistent -> Transient
  48
  49     Translate(TObj : Triangulation from Poly;
  50               aMap : in out TransientPersistentMap from PTColStd)
  51         returns Triangulation from PPoly;
  52         ---Purpose: translates Transient -> Persistent
  53
  54     -- Polygon3D
  55
  56     Translate(PObj : Polygon3D from PPoly;
  57               aMap : in out PersistentTransientMap from PTColStd)
  58         returns Polygon3D from Poly;
  59         ---Purpose: translates Persistent -> Transient
  60
  61     Translate(TObj : Polygon3D from Poly;
  62               aMap : in out TransientPersistentMap from PTColStd)
  63         returns Polygon3D from PPoly;
  64         ---Purpose: translates Transient -> Persistent
  65
  66     -- Polygon2D
  67
  68
  69     Translate(PObj : Polygon2D from PPoly;
  70               aMap : in out PersistentTransientMap from PTColStd)
  71         returns Polygon2D from Poly;
  72         ---Purpose: translates Persistent -> Transient
  73
  74     Translate(TObj : Polygon2D from Poly;
  75               aMap : in out TransientPersistentMap from PTColStd)
  76         returns Polygon2D from PPoly;
  77         ---Purpose: translates Transient -> Persistent
  78
  79     -- PolygonOnTriangulation
  80
  81     Translate(PObj : PolygonOnTriangulation from PPoly;
  82               aMap : in out PersistentTransientMap from PTColStd)
  83         returns PolygonOnTriangulation from Poly;
  84         ---Purpose: translates Persistent -> Transient
  85
  86     Translate(TObj : PolygonOnTriangulation from Poly;
  87               aMap : in out TransientPersistentMap from PTColStd)
  88         returns PolygonOnTriangulation from PPoly;
  89         ---Purpose: translates Transient -> Persistent
  90
  91 end MgtPoly;