src/ShapeCustom/ShapeCustom_TrsfModification.cdl

   1 -- File:        ShapeCustom_TrsfModification.cdl
   2 -- Created:     Tue Mar  9 13:59:08 1999
   3 -- Author:      Roman LYGIN
   4 --              <rln@kinox.nnov.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1999
   6
   7
   8 private class TrsfModification from ShapeCustom inherits TrsfModification from BRepTools
   9
  10         ---Purpose: Complements BRepTools_TrsfModification to provide reversible
  11         --          scaling regarding tolerances.
  12         --          Uses actual tolerances (attached to the shapes) not ones
  13         --          returned by BRep_Tool::Tolerance to work with tolerances
  14         --          lower than Precision::Confusion.
  15
  16 uses
  17     Face     from TopoDS,
  18     Edge     from TopoDS,
  19     Vertex   from TopoDS,
  20     Location from TopLoc,
  21     Shape    from GeomAbs,
  22
  23     Surface  from Geom,
  24     Curve    from Geom,
  25     Curve    from Geom2d,
  26
  27     Trsf     from gp,
  28     Pnt      from gp
  29
  30 is
  31     Create (T: Trsf from gp) returns mutable TrsfModification from ShapeCustom;
  32         ---Purpose: Empty constructor
  33
  34     NewSurface (me: mutable; F       :     Face     from TopoDS;
  35                              S       : out Surface  from Geom;
  36                              L       : out Location from TopLoc;
  37                              Tol     : out Real     from Standard;
  38                              RevWires: out Boolean from Standard;
  39                              RevFace : out Boolean from Standard)
  40     returns Boolean from Standard;
  41         ---Purpose: Calls inherited method.
  42         --          Sets <Tol> as actual tolerance of <F> multiplied with scale
  43         --          factor.
  44
  45     NewCurve (me: mutable; E  :     Edge     from TopoDS;
  46                            C  : out Curve    from Geom;
  47                            L  : out Location from TopLoc;
  48                            Tol: out Real     from Standard)
  49     returns Boolean from Standard;
  50         ---Purpose: Calls inherited method.
  51         --          Sets <Tol> as actual tolerance of <E> multiplied with scale
  52         --          factor.
  53
  54     NewPoint (me: mutable; V  :     Vertex   from TopoDS;
  55                            P  : out Pnt      from gp;
  56                            Tol: out Real     from Standard)
  57     returns Boolean from Standard;
  58         ---Purpose: Calls inherited method.
  59         --          Sets <Tol> as actual tolerance of <V> multiplied with scale
  60         --          factor.
  61
  62     NewCurve2d (me: mutable;  E    :     Edge     from TopoDS;
  63                               F    :     Face     from TopoDS;
  64                               NewE :     Edge     from TopoDS;
  65                               NewF :     Face     from TopoDS;
  66                               C    : out Curve    from Geom2d;
  67                               Tol  : out Real     from Standard)
  68     returns Boolean from Standard;
  69         ---Purpose: Calls inherited method.
  70         --          Sets <Tol> as actual tolerance of <E> multiplied with scale
  71         --          factor.
  72
  73     NewParameter (me: mutable; V  :     Vertex   from TopoDS;
  74                                E  :     Edge     from TopoDS;
  75                                P  : out Real     from Standard;
  76                                Tol: out Real     from Standard)
  77     returns Boolean from Standard;
  78         ---Purpose: Calls inherited method.
  79         --          Sets <Tol> as actual tolerance of <V> multiplied with scale
  80         --          factor.
  81
  82 end TrsfModification;