-- Created on: 1993-12-07 -- Created by: Modelistation -- 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 EdgeTool from BRepGProp --- Purpose : Provides the required methods to instantiate -- CGProps from GProp with a Curve from BRepAdaptor. uses Pnt from gp, Vec from gp, Curve from BRepAdaptor, Shape from GeomAbs, Array1OfReal from TColStd raises OutOfRange from Standard is FirstParameter (myclass; C : Curve from BRepAdaptor) returns Real; --- Purpose : -- Returns the parametric value of the start point of -- the curve. The curve is oriented from the start point -- to the end point. LastParameter (myclass; C : Curve from BRepAdaptor) returns Real; --- Purpose : -- Returns the parametric value of the end point of -- the curve. The curve is oriented from the start point -- to the end point. IntegrationOrder (myclass; C : Curve from BRepAdaptor) returns Integer; --- Purpose : -- Returns the number of Gauss points required to do -- the integration with a good accuracy using the -- Gauss method. For a polynomial curve of degree n -- the maxima of accuracy is obtained with an order -- of integration equal to 2*n-1. Value (myclass; C : Curve from BRepAdaptor; U : Real) returns Pnt; --- Purpose : Returns the point of parameter U on the loaded curve. D1 (myclass; C : Curve from BRepAdaptor; U: Real; P: out Pnt; V1: out Vec); --- Purpose : -- Returns the point of parameter U and the first derivative -- at this point. NbIntervals(myclass; C : Curve from BRepAdaptor; S : Shape from GeomAbs) ---Purpose: Returns the number of intervals for continuity -- . May be one if Continuity(me) >= returns Integer; Intervals(myclass; C : Curve from BRepAdaptor; T : in out Array1OfReal from TColStd; S : Shape from GeomAbs) ---Purpose: Stores in the parameters bounding the intervals -- of continuity . -- -- The array must provide enough room to accomodate -- for the parameters. i.e. T.Length() > NbIntervals() raises OutOfRange from Standard; end EdgeTool;