mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-15 13:48:57 +08:00
34 lines
726 B
Plaintext
Executable File
34 lines
726 B
Plaintext
Executable File
-- File: DrawDim_PlanarDiameter.cdl
|
|
-- Created: Wed Nov 25 11:36:39 1998
|
|
-- Author: Denis PASCAL
|
|
-- <dp@dingox.paris1.matra-dtv.fr>
|
|
---Copyright: Matra Datavision 1998
|
|
|
|
|
|
class PlanarDiameter from DrawDim inherits PlanarDimension from DrawDim
|
|
|
|
---Purpose:
|
|
|
|
uses Vertex from TopoDS,
|
|
Face from TopoDS,
|
|
Shape from TopoDS,
|
|
Color from Draw,
|
|
Display from Draw
|
|
|
|
is
|
|
|
|
Create (plane : Face from TopoDS;
|
|
circle : Shape from TopoDS)
|
|
returns mutable PlanarDiameter from DrawDim;
|
|
|
|
Create (circle : Shape from TopoDS)
|
|
returns mutable PlanarDiameter from DrawDim;
|
|
|
|
DrawOn(me; dis : in out Display);
|
|
|
|
fields
|
|
|
|
myCircle : Shape from TopoDS;
|
|
|
|
end PlanarDiameter;
|