mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-21 10:13:43 +03:00
127 lines
3.8 KiB
Plaintext
Executable File
127 lines
3.8 KiB
Plaintext
Executable File
-- Created on: 1991-06-25
|
|
-- Created by: Christophe MARION
|
|
-- Copyright (c) 1991-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
--
|
|
-- The content of this file is subject to the Open CASCADE Technology Public
|
|
-- License Version 6.5 (the "License"). You may not use the content of this file
|
|
-- except in compliance with the License. Please obtain a copy of the License
|
|
-- at http://www.opencascade.org and read it completely before using this file.
|
|
--
|
|
-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
--
|
|
-- The Original Code and all software distributed under the License is
|
|
-- distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
-- Initial Developer hereby disclaims all such warranties, including without
|
|
-- limitation, any warranties of merchantability, fitness for a particular
|
|
-- purpose or non-infringement. Please see the License for the specific terms
|
|
-- and conditions governing the rights and limitations under the License.
|
|
|
|
|
|
|
|
package DBRep
|
|
|
|
---Purpose: Used to display BRep objects using the DrawTrSurf
|
|
-- package.
|
|
-- The DrawableShape is a Display object build from a
|
|
-- Shape.
|
|
-- Provides methods to manage a directory of named shapes.
|
|
-- Provides a set of Draw commands for Shapes.
|
|
|
|
uses
|
|
|
|
MMgt,
|
|
TCollection,
|
|
TColStd,
|
|
gp,
|
|
TColgp,
|
|
Draw,
|
|
TopAbs,
|
|
TopoDS,
|
|
TopTools,
|
|
GeomAbs,
|
|
Geom2dHatch,
|
|
HLRBRep,
|
|
Poly
|
|
|
|
is
|
|
|
|
class Edge;
|
|
---Purpose: Display of an edge. Edge + color.
|
|
|
|
class ListOfEdge instantiates
|
|
List from TCollection(Edge from DBRep);
|
|
|
|
class Face;
|
|
---Purpose: Display of a face. Face + Array of iso + color.
|
|
|
|
class ListOfFace instantiates
|
|
List from TCollection(Face from DBRep);
|
|
|
|
class HideData;
|
|
---Purpose: Hidden lines data for a view
|
|
|
|
class ListOfHideData instantiates
|
|
List from TCollection(HideData from DBRep);
|
|
|
|
class DrawableShape;
|
|
---Purpose: Drawable structure to display a shape. Contains a
|
|
-- list of edges and a list of faces.
|
|
|
|
class IsoBuilder;
|
|
---Purpose: Creation of isoparametric curves.
|
|
|
|
-- class ProgressIndicator;
|
|
---Purpose : Implements ProgressIndicator for DRAW
|
|
|
|
|
|
--
|
|
-- Methods to manage variables
|
|
--
|
|
|
|
Set(Name : CString; S : Shape from TopoDS);
|
|
---Purpose: Sets <S> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
|
|
Get(Name : in out CString;
|
|
Typ : ShapeEnum from TopAbs = TopAbs_SHAPE;
|
|
Complain : Boolean = Standard_False)
|
|
returns Shape from TopoDS;
|
|
---Purpose: Returns the shape in the variable <Name>. Returns
|
|
-- a null shape if the variable is not set or not of
|
|
-- the given <Typ>. If <Complain> is True a message
|
|
-- is printed on cout if the variable is not set.
|
|
|
|
BasicCommands(theCommands : in out Interpretor from Draw);
|
|
---Purpose: Defines the basic commands.
|
|
|
|
HLRMode returns Boolean from Standard;
|
|
---Purpose: True if HLR, False if wireframe.
|
|
|
|
Rg1Mode returns Boolean from Standard;
|
|
---Purpose: True if display Rg1Lines.
|
|
|
|
RgNMode returns Boolean from Standard;
|
|
---Purpose: True if display RgNLines.
|
|
|
|
HidMode returns Boolean from Standard;
|
|
---Purpose: True if display HiddenLines.
|
|
|
|
HLRAngle returns Real from Standard;
|
|
---Purpose: discretisation angle for edges.
|
|
|
|
NbIsos returns Integer from Standard;
|
|
---Purpose: number of iso in U and V
|
|
|
|
Discretisation returns Integer from Standard;
|
|
---Purpose: discretisation number of points for curves
|
|
|
|
--SetProgressBar(thePI: ProgressIndicator from Message);
|
|
---Purpose: set progress indicator
|
|
|
|
--GetProgressBar returns ProgressIndicator from Message;
|
|
---Purpose: get progress indicator
|
|
|
|
end DBRep;
|