-- Created on: 1996-02-13 -- Created by: Jacques GOUSSARD -- Copyright (c) 1996-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 MakeRevol from BRepFeat inherits Form from BRepFeat ---Purpose: Describes functions to build revolved shells from basis shapes. uses Shape from TopoDS, Face from TopoDS, Edge from TopoDS, DataMapOfShapeListOfShape from TopTools, Ax1 from gp, DataMapOfShapeShape from TopTools, SequenceOfCurve from TColGeom, Curve from Geom, SequenceOfCurve from TColGeom, StatusError from BRepFeat raises ConstructionError from Standard is Create returns MakeRevol from BRepFeat; ---Purpose: initializes the revolved shell class. ---C++: inline Create(Sbase : Shape from TopoDS; Pbase : Shape from TopoDS; Skface : Face from TopoDS; Axis : Ax1 from gp; Fuse : Integer from Standard; Modify : Boolean from Standard) ---Purpose: a face Pbase is selected in the -- shape Sbase to serve as the basis for the -- revolved shell. The revolution will be defined -- by the axis Axis and Fuse offers a choice between: -- - removing matter with a Boolean cut using the setting 0 -- - adding matter with Boolean fusion using the setting 1. -- The sketch face Skface serves to determine -- the type of operation. If it is inside the basis -- shape, a local operation such as glueing can be performed. ---C++: inline returns MakeRevol from BRepFeat; Init(me: in out; Sbase : Shape from TopoDS; Pbase : Shape from TopoDS; Skface : Face from TopoDS; Axis : Ax1 from gp; Fuse : Integer from Standard; Modify : Boolean from Standard) is static; Add(me: in out; E: Edge from TopoDS; OnFace: Face from TopoDS) ---Purpose: Indicates that the edge will slide on the face -- . Raises ConstructionError if the face does not belong to the -- basis shape, or the edge to the prismed shape. raises ConstructionError from Standard is static; Perform(me: in out; Angle: Real from Standard) is static; Perform(me: in out; Until: Shape from TopoDS) is static; Perform(me: in out; From : Shape from TopoDS; Until: Shape from TopoDS) is static; ---Purpose: Reconstructs the feature topologically. PerformThruAll(me: in out) is static; ---Purpose: Builds an infinite shell. The infinite descendants -- will not be kept in the result. PerformUntilAngle(me: in out; Until : Shape from TopoDS; Angle : Real from Standard) is static; ---Purpose: Assigns both a limiting shape, Until from -- TopoDS_Shape, and an angle, Angle at -- which to stop generation of the revolved shell feature. Curves(me: in out; S : in out SequenceOfCurve from TColGeom); BarycCurve(me: in out) returns Curve from Geom; fields myPbase : Shape from TopoDS; mySlface : DataMapOfShapeListOfShape from TopTools; myAxis : Ax1 from gp; myCurves : SequenceOfCurve from TColGeom; myBCurve : Curve from Geom; myStatusError : StatusError from BRepFeat; end MakeRevol;