src/QANewBRepNaming/QANewBRepNaming_Gluing.cdl

   1 -- File:        QANewBRepNaming_Gluing.cdl
   2 -- Created:     Mon Nov 26 11:45:34 2001
   3 -- Author:      Sergey ZARITCHNY <szy@nnov.matra-dtv.fr>
   4 -- Copyright:   SAMTECH S.A. 2001
   5
   6
   7 -- sccsid[] = "@(#) 3.0-00-1, 12/07/01@(#)";
   8
   9 -- Lastly modified by :
  10 -- +---------------------------------------------------------------------------+
  11 -- !       mpv ! Same history and divided shapes cases   ! 6-09-2002! 3.0-00-3!
  12 -- +---------------------------------------------------------------------------+
  13
  14 class Gluing from QANewBRepNaming inherits TopNaming from QANewBRepNaming
  15
  16         ---Purpose: Loads a result of Gluing operation in  Data Framework
  17
  18 uses
  19
  20      Glue      from QANewModTopOpe,
  21      Shape     from TopoDS,
  22      ShapeEnum from  TopAbs,
  23      Label     from TDF,
  24      LabelMap  from TDF,
  25      IndexedDataMapOfShapeListOfShape from TopTools,
  26      DataMapOfShapeInteger from TopTools
  27
  28
  29 raises  NullObject from Standard
  30
  31 is
  32
  33     Create returns Gluing from QANewBRepNaming;
  34
  35     Create(theResultLabel : Label from TDF)
  36     returns Gluing from QANewBRepNaming;
  37
  38     Init(me : in out; theResultLabel : Label from TDF);
  39
  40
  41     Load (me : in out; theMkGluing : in out Glue from QANewModTopOpe);
  42       ---Purpose: Loads a Gluing in a data framework
  43
  44     ---Category: Protected methods
  45     --           ====================
  46
  47     ShapeType(me; theShape : Shape from TopoDS)
  48     ---Purpose: If the shape is a compound the method
  49     --          returns the underlying shape type.
  50     returns ShapeEnum from TopAbs
  51     is private;
  52
  53     GetShape(me; theShape : Shape from TopoDS)
  54     ---Purpose: If the shape is a compound the method
  55     --          returns the underlying shape.
  56     returns Shape from TopoDS
  57     is  private;
  58
  59     LoadModifiedShapes(me; theMakeShape : in out Glue from QANewModTopOpe)
  60     ---Purpose: A default implementation for naming of modified shapes of the operation
  61     is  private;
  62
  63     LoadDeletedShapes(me; theMakeShape : in out Glue from QANewModTopOpe)
  64     ---Purpose: A default implementation for naming of modified shapes of the operation
  65     is  private;
  66
  67     Content (me)
  68         ---Purpose :
  69     returns Label from TDF;
  70
  71     LoadContent(me; theMakeShape : in out Glue from QANewModTopOpe)
  72     ---Purpose: Loads the content of the result.
  73     is private;
  74
  75     LoadResult(me; theMakeShape : in out Glue from QANewModTopOpe)
  76     ---Purpose: Loads the result.
  77     is private;
  78
  79     IsResultChanged(me; theMakeShape : in out Glue from QANewModTopOpe)
  80      ---Purpose: Returns true if the result is not the same as the object shape.
  81     returns Boolean from Standard is private ;
  82
  83     SetContext(me :in out; theObject, theTool : Shape from TopoDS);
  84
  85     SetLog(me: in out; theLog : LabelMap from TDF);
  86
  87     LoadSectionEdges(me; theMakeShape : in out Glue from QANewModTopOpe)
  88     ---Purpose: Loads the deletion of the degenerated edges.
  89     is private;
  90
  91     AddToTheUnique(me: in out; theUnique, theIdentifier : Shape from TopoDS) is private;
  92
  93     RecomputeUnique(me : in out; theMakeShape : in out Glue from QANewModTopOpe)
  94     ---Purpose: Reset myShared map - shapes, which are modified by both object and tool.
  95     is private;
  96
  97     LoadSourceShapes(me; theSources : in out DataMapOfShapeInteger from TopTools)
  98     is private;
  99
 100     LoadUniqueShapes(me: in out; theMakeShape : in out Glue from QANewModTopOpe;
 101                                  theSources : DataMapOfShapeInteger from TopTools)
 102     ---Purpose: A default implementation for naming of generated  shapes of the operation
 103     is  private;
 104
 105
 106 fields
 107
 108     myUnique  : IndexedDataMapOfShapeListOfShape from TopTools;
 109
 110     myContext : Shape from TopoDS;
 111     myLog : LabelMap from TDF;
 112
 113 end Gluing;
 114
 115
 116 -- @@SDM: begin
 117
 118 -- Copyright SAMTECH ..........................................Version    3.0-00
 119 -- Lastly modified by : mpv                                    Date :  6-09-2002
 120
 121 -- File history synopsis (creation,modification,correction)
 122 -- +---------------------------------------------------------------------------+
 123 -- ! Developer !              Comments                   !   Date   ! Version  !
 124 -- +-----------!-----------------------------------------!----------!----------+
 125 -- !       szy ! Creation                                !26-11-2001! 3.0-00-1!
 126 -- !       mpv ! Specific gluing operation naming        ! 1-02-2002! 3.0-00-2!
 127 -- !       mpv ! Same history and divided shapes cases   ! 6-09-2002! 3.0-00-3!
 128 -- +---------------------------------------------------------------------------+
 129
 130 -- @@SDM: end