-- Created on: 1993-06-23 -- Created by: Jean Yves LEBEY -- Copyright (c) 1993-1999 Matra Datavision -- Copyright (c) 1999-2014 OPEN CASCADE SAS -- -- This file is part of Open CASCADE Technology software library. -- -- This library is free software; you can redistribute it and/or modify it under -- the terms of the GNU Lesser General Public License version 2.1 as published -- by the Free Software Foundation, with special exception defined in the file -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -- distribution for complete text of the license and disclaimer of any warranty. -- -- Alternatively, this file may be used under the terms of Open CASCADE -- commercial license or contractual agreement. class DSFiller from HLRTopoBRep ---Purpose: Provides methods to fill a HLRTopoBRep_Data. uses Real from Standard, Integer from Standard, Boolean from Standard, Shape from TopoDS, Face from TopoDS, Edge from TopoDS, Vertex from TopoDS, Point from Contap, Contour from Contap, Data from HLRTopoBRep, MapOfShapeTool from BRepTopAdaptor is Insert(myclass; S : Shape from TopoDS; FO : in out Contour from Contap; DS : in out Data from HLRTopoBRep; MST : in out MapOfShapeTool from BRepTopAdaptor; nbIso : Integer from Standard); ---Purpose: Stores in the outlines of using the current -- outliner and stores the isolines in using a Hatcher. InsertFace(myclass; FI : Integer from Standard; F : Face from TopoDS; FO : in out Contour from Contap; DS : in out Data from HLRTopoBRep; withPCurve : Boolean from Standard) ---Purpose: Stores in the outlines of using the current -- outliner. is private; MakeVertex(myclass; P : Point from Contap; tol : Real from Standard; DS : in out Data from HLRTopoBRep) returns Vertex from TopoDS ---Purpose: Make a vertex from an intersection point

and -- store it in the data structure . is private; InsertVertex(myclass; P : Point from Contap; tol : Real from Standard; E : Edge from TopoDS; DS : in out Data from HLRTopoBRep) ---Purpose: Insert a vertex from an internal intersection -- point

on restriction and store it in the -- data structure . is private; ProcessEdges(myclass; DS : in out Data from HLRTopoBRep) ---Purpose: Split all the edges with vertices in the data -- structure. is private; end DSFiller;