0024530: TKMesh - remove unused package IntPoly
[occt.git] / src / DsgPrs / DsgPrs_PerpenPresentation.cdl
CommitLineData
b311480e 1-- Created on: 1995-11-28
2-- Created by: Jean-Pierre COMBE
3-- Copyright (c) 1995-1999 Matra Datavision
973c2be1 4-- Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5--
973c2be1 6-- This file is part of Open CASCADE Technology software library.
b311480e 7--
973c2be1 8-- This library is free software; you can redistribute it and / or modify it
9-- under the terms of the GNU Lesser General Public version 2.1 as published
10-- by the Free Software Foundation, with special exception defined in the file
11-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12-- distribution for complete text of the license and disclaimer of any warranty.
b311480e 13--
973c2be1 14-- Alternatively, this file may be used under the terms of Open CASCADE
15-- commercial license or contractual agreement.
7fd59977 16
17class PerpenPresentation from DsgPrs
18
19 ---Purpose: A framework to define display of perpendicular
20 -- constraints between shapes.
21uses
22 Presentation from Prs3d,
23 Pnt from gp,
24 Dir from gp,
25 Drawer from Prs3d,
26 ExtendedString from TCollection
27
28is
29 Add( myclass; aPresentation: Presentation from Prs3d;
30 aDrawer: Drawer from Prs3d;
31 pAx1: Pnt from gp;
32 pAx2: Pnt from gp;
33 pnt1: Pnt from gp;
34 pnt2: Pnt from gp;
35 OffsetPoint: Pnt from gp;
36 intOut1: Boolean from Standard;
37 intOut2: Boolean from Standard);
38 ---Purpose: Defines the display of elements showing
39 -- perpendicular constraints between shapes.
40 -- These include the two axis points pAx1 and pAx2,
41 -- the two points pnt1 and pnt2, the offset point
42 -- OffsetPoint and the two Booleans intOut1} and intOut2{.
43 -- These arguments are added to the presentation
44 -- object aPresentation. Their display attributes are
45 -- defined by the attribute manager aDrawer.
46
47
48end PerpenPresentation;