b311480e |
1 | -- Created on: 1991-12-06 |
2 | -- Created by: Remi LEQUETTE |
3 | -- Copyright (c) 1991-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 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
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 | |
17 | package HLRTest |
18 | |
19 | ---Purpose: This package is a test of the Hidden Lines |
20 | -- algorithms instantiated on the BRep Data Structure |
21 | -- and using the Draw package to display the results. |
22 | |
23 | uses |
24 | Standard, |
25 | MMgt, |
26 | TCollection, |
27 | gp, |
28 | TopoDS, |
29 | HLRAlgo, |
30 | HLRBRep, |
31 | HLRTopoBRep, |
32 | Draw |
33 | |
34 | is |
35 | class ShapeData; |
36 | |
37 | class DrawableEdgeTool; |
7fd59977 |
38 | |
39 | class DrawablePolyEdgeTool; |
7fd59977 |
40 | |
41 | class Projector; |
ff8178ef |
42 | |
7fd59977 |
43 | class OutLiner; |
44 | ---Purpose: Draw Variable Outliner to test |
45 | |
46 | Set(Name : CString; |
47 | P : Projector from HLRAlgo); |
48 | ---Purpose: Set a Projector Variable |
49 | |
50 | GetProjector(Name : in out CString; |
51 | P : in out Projector from HLRAlgo) |
52 | returns Boolean; |
53 | ---Purpose: Get a projector variable |
54 | -- Returns false if the variable is not a projector |
55 | |
56 | Set(Name : CString; |
57 | S : Shape from TopoDS); |
58 | ---Purpose: Set a OutLiner Variable |
59 | |
60 | GetOutLiner(Name : in out CString) |
61 | returns OutLiner from HLRTopoBRep; |
62 | ---Purpose: Get a outliner variable |
63 | -- Returns a null handle if the variable is not a outliner |
64 | |
65 | Commands(I : in out Interpretor from Draw); |
66 | ---Purpose: Defines commands to test the Hidden Line Removal |
67 | |
68 | end HLRTest; |