src/GEOMAlgo/GEOMAlgo_PassKeyShape.cdl

   1 -- File:        GEOMAlgo_PassKeyShape.cdl
   2 -- Created:
   3 -- Author:      Peter KURNEV
   4 --              <pkv@irinox>
   5 ---Copyright:
   6
   7
   8 class PassKeyShape from GEOMAlgo
   9     inherits PassKey from GEOMAlgo
  10
  11         ---Purpose:
  12
  13 uses
  14     Shape from TopoDS,
  15     ListOfShape from TopTools
  16
  17 --raises
  18
  19 is
  20     Create
  21         returns PassKeyShape from GEOMAlgo;
  22
  23     SetIds(me:out;
  24             aS  :Shape from TopoDS);
  25
  26     SetIds(me:out;
  27             aS1  :Shape from TopoDS;
  28             aS2  :Shape from TopoDS);
  29
  30     SetIds(me:out;
  31             aS1  :Shape from TopoDS;
  32             aS2  :Shape from TopoDS;
  33             aS3  :Shape from TopoDS);
  34
  35     SetIds(me:out;
  36             aS1  :Shape from TopoDS;
  37             aS2  :Shape from TopoDS;
  38             aS3  :Shape from TopoDS;
  39             aS4  :Shape from TopoDS);
  40
  41     SetIds(me:out;
  42             aLS  :ListOfShape from TopTools);
  43
  44
  45 fields
  46     myUpper  : Integer from Standard is protected;
  47
  48 end PassKeyShape;