-- 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 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 MakePrism from BRepFeat inherits Form from BRepFeat ---Purpose: Describes functions to build prism features. -- These can be depressions or protrusions. -- The semantics of prism feature creation is -- based on the construction of shapes: -- - along a length -- - up to a limiting face -- - from a limiting face to a height. -- The shape defining construction of the prism feature can be -- either the supporting edge or the concerned area of a face. -- In case of the supporting edge, this contour -- can be attached to a face of the basis shape by -- binding. When the contour is bound to this face, -- the information that the contour will slide on the -- face becomes available to the relevant class methods. -- In case of the concerned area of a face, you -- could, for example, cut it out and move it to a -- different height which will define the limiting -- face of a protrusion or depression. uses Shape from TopoDS, Face from TopoDS, Edge from TopoDS, DataMapOfShapeListOfShape from TopTools, Dir from gp, DataMapOfShapeShape from TopTools, SequenceOfCurve from TColGeom, Curve from Geom, StatusError from BRepFeat raises ConstructionError from Standard is Create returns MakePrism from BRepFeat; ---Purpose: Builds a prism by projecting a -- wire along the face of a shape. Initializes the prism class. ---C++: inline Create(Sbase : Shape from TopoDS; Pbase : Shape from TopoDS; Skface : Face from TopoDS; Direction : Dir from gp; Fuse : Integer from Standard; Modify : Boolean from Standard) ---Purpose: Builds a prism by projecting a -- wire along the face of a shape. a face Pbase is selected in -- the shape Sbase to serve as the basis for -- the prism. The orientation of the prism will -- be defined by the vector Direction. -- 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. -- Exceptions -- Standard_ConstructionError if the face -- does not belong to the basis or the prism shape. ---C++: inline returns MakePrism from BRepFeat; Init(me: in out; Sbase : Shape from TopoDS; Pbase : Shape from TopoDS; Skface : Face from TopoDS; Direction : Dir from gp; Fuse : Integer from Standard; Modify : Boolean from Standard) is static; ---Purpose: Initializes this algorithm for building prisms along surfaces. -- A face Pbase is selected in the shape Sbase -- to serve as the basis for the prism. The -- orientation of the prism will be defined by the vector Direction. -- 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. 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; Length: 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: Assigns one of the following semantics -- - to a height Length -- - to a face Until -- - from a face From to a height Until. -- Reconstructs the feature topologically according to the semantic option chosen. PerformUntilEnd(me: in out) is static; --- Purpose: Realizes a semi-infinite prism, limited by the -- position of the prism base. All other faces extend infinitely. PerformFromEnd(me: in out; FUntil: Shape from TopoDS) is static; ---Purpose: Realizes a semi-infinite prism, limited by the face Funtil. PerformThruAll(me: in out) is static; ---Purpose: Builds an infinite prism. The infinite descendants will not be kept in the result. PerformUntilHeight(me: in out; Until : Shape from TopoDS; Length: Real from Standard) is static; ---Purpose: Assigns both a limiting shape, Until from -- TopoDS_Shape, and a height, Length at which to stop generation of the prism feature. Curves(me: in out; S : in out SequenceOfCurve from TColGeom); --- Purpose: Returns the list of curves S parallel to the axis of the prism. BarycCurve(me: in out) returns Curve from Geom; ---Purpose: Generates a curve along the center of mass of the primitive. fields myPbase : Shape from TopoDS; mySlface : DataMapOfShapeListOfShape from TopTools; myDir : Dir from gp; myCurves : SequenceOfCurve from TColGeom; myBCurve : Curve from Geom; myStatusError : StatusError from BRepFeat; end MakePrism;