src/PARTITION/Partition_Inter2d.cdl

   1 -- File   :     Partition_Inter2d.cdl
   2 -- Created:     Thu Aug 02 16:07:39 2001
   3 -- Author :     Benedicte MARTIN
   4 --
   5 ---Copyright:   OPEN CASCADE 2001
   6
   7 class Inter2d from Partition
   8
   9         ---Purpose: Computes the intersections between edges on a face
  10         --          stores result is SD as AsDes from BRepAlgo.
  11
  12 uses
  13     AsDes               from BRepAlgo,
  14     Edge                from TopoDS,
  15     Face                from TopoDS,
  16     Vertex              from TopoDS,
  17     MapOfShape          from TopTools,
  18     Real                from Standard,
  19     ListOfShape         from TopTools
  20
  21 is
  22     CompletPart2d(myclass ; AsDes : mutable AsDes from BRepAlgo;
  23                             F     :         Face  from TopoDS;
  24                             NewEdges :      MapOfShape from TopTools);
  25
  26         ---Purpose: Computes the intersections between the edges stored
  27         --          is AsDes as descendants of <F> . Intersections is computed
  28         --          between two edges if one of them is bound in NewEdges.
  29
  30
  31     FindEndVertex(myclass; VertList : ListOfShape from TopTools;
  32                            f,l      : Real        from Standard;
  33                            E        : Edge        from TopoDS;
  34                            First    : out Boolean from Standard;
  35                            DU       : out Real    from Standard)
  36         returns Vertex from TopoDS;
  37     ---Purpose: Returns a vertex  from  <VertList> having parameter on
  38     --          <E> most close  to  <f>  or  <l>.  <First>  is True if
  39     --          found vertex is closer  to <f>. <DU> returns parameter
  40     --          difference.
  41
  42     AddVonE(myclass; V : Vertex from TopoDS;
  43                      E1,E2 : Edge from TopoDS;
  44                      AsDes : mutable AsDes from BRepAlgo)
  45         returns Vertex from TopoDS;
  46         ---Purpose: Put V in AsDes as intersection of E1 and E2.
  47         --          Check that vertex equal to V already exists on one
  48         --          of edges, in  such  a  case,  V  is  not added but
  49         --          existing vertex is updated to  be on E1 and E2 and
  50         --          is returned insead of V.
  51
  52 end Inter2d;
  53