mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-14 19:55:22 +08:00
197 lines
6.6 KiB
Plaintext
Executable File
197 lines
6.6 KiB
Plaintext
Executable File
-- Created on: 1991-06-24
|
|
-- 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 DrawTrSurf
|
|
|
|
---Purpose: This package supports the display of parametric
|
|
-- curves and surfaces.
|
|
--
|
|
-- The Drawable deferred classes is inherited from
|
|
-- the Drawable3D class from the package Draw, it
|
|
-- adds methods to draw 3D Curves and Curves on 3D
|
|
-- Surfaces.
|
|
--
|
|
-- The classes Curve Curve2d and Surface are drawable
|
|
-- and can be used to draw a single curve from
|
|
-- packages Geom or Geom2d or a surface from Geom.
|
|
--
|
|
-- The Triangulation and Polygon from the package
|
|
-- Poly are also supported.
|
|
|
|
uses
|
|
MMgt,
|
|
TCollection,
|
|
TColStd,
|
|
Draw,
|
|
Adaptor3d,
|
|
Adaptor2d,
|
|
GeomAbs,
|
|
Geom,
|
|
Geom2d,
|
|
gp,
|
|
Poly
|
|
|
|
is
|
|
|
|
deferred class Drawable;
|
|
|
|
class Point;
|
|
|
|
class Curve;
|
|
|
|
class BSplineCurve;
|
|
|
|
class BezierCurve;
|
|
|
|
|
|
class Curve2d;
|
|
|
|
class BSplineCurve2d;
|
|
|
|
class BezierCurve2d;
|
|
|
|
class Triangulation2D;
|
|
|
|
class Surface;
|
|
|
|
class BSplineSurface;
|
|
|
|
class BezierSurface;
|
|
|
|
class Triangulation;
|
|
|
|
class Polygon3D;
|
|
|
|
class Polygon2D;
|
|
|
|
|
|
--
|
|
-- package methods to handle named points curves and surface.
|
|
--
|
|
|
|
Set(Name : CString; G : Pnt from gp);
|
|
---Purpose: Sets <G> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
|
|
Set(Name : CString; G : Pnt2d from gp);
|
|
---Purpose: Sets <G> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
|
|
Set(Name : CString; G : Geometry from Geom;
|
|
isSenseMarker : Boolean = Standard_True);
|
|
---Purpose: Sets <G> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
-- isSenseMarker indicates whether to render the
|
|
-- sense glyph (arrow) for curves or not
|
|
|
|
Set(Name : CString; C : Curve from Geom2d;
|
|
isSenseMarker : Boolean = Standard_True);
|
|
---Purpose: Sets <C> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
-- isSenseMarker indicates whether to render the
|
|
-- sense glyph (arrow) for curves or not
|
|
|
|
Set(Name : CString; T : Triangulation from Poly);
|
|
---Purpose: Sets <T> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
|
|
Set(Name : CString; P : Polygon3D from Poly);
|
|
---Purpose: Sets <P> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
|
|
Set(Name : CString; P : Polygon2D from Poly);
|
|
---Purpose: Sets <P> in the variable <Name>. Overwrite the
|
|
-- variable if already set.
|
|
|
|
|
|
-- if the variable name is a void string a graphic selection is made.
|
|
|
|
Get(Name : in out CString) returns Geometry from Geom;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetPoint(Name : in out CString; P : in out Pnt from gp)
|
|
returns Boolean;
|
|
---Purpose: Gets the variable. Returns False if none and print
|
|
-- a warning message.
|
|
|
|
GetPoint2d(Name : in out CString; P : in out Pnt2d from gp)
|
|
returns Boolean;
|
|
---Purpose: Gets the variable. Returns False if none and print
|
|
-- a warning message.
|
|
|
|
GetCurve(Name : in out CString) returns Curve from Geom;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetBezierCurve(Name : in out CString) returns BezierCurve from Geom;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetBSplineCurve(Name : in out CString) returns BSplineCurve from Geom;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetCurve2d(Name : in out CString) returns Curve from Geom2d;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetBezierCurve2d(Name : in out CString) returns BezierCurve from Geom2d;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetBSplineCurve2d(Name : in out CString) returns BSplineCurve from Geom2d;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetSurface(Name : in out CString) returns Surface from Geom;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetBezierSurface(Name : in out CString) returns BezierSurface from Geom;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetBSplineSurface(Name : in out CString) returns BSplineSurface from Geom;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetTriangulation(Name : in out CString) returns Triangulation from Poly;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetPolygon3D(Name : in out CString) returns Polygon3D from Poly;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
GetPolygon2D(Name : in out CString) returns Polygon2D from Poly;
|
|
---Purpose: Get the variable <S>. Returns a null handle if
|
|
-- none, and print a warning message.
|
|
|
|
|
|
|
|
BasicCommands(I : in out Interpretor from Draw);
|
|
---Purpose: defines display commands.
|
|
|
|
end DrawTrSurf;
|