1 -- Created on: 2004-09-03
2 -- Created by: Oleg FEDYAEV
3 -- Copyright (c) 2004-2014 OPEN CASCADE SAS
5 -- This file is part of Open CASCADE Technology software library.
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
16 class CheckResult from BOPAlgo
17 ---Purpose: contains information about faulty shapes and faulty types
18 --- can't be processed by Boolean Operations
23 CheckStatus from BOPAlgo,
24 ListOfShape from BOPCol
30 ---Purpose: empty constructor
32 SetShape1(me: in out; TheShape : Shape from TopoDS);
33 ---Purpose: sets ancestor shape (object) for faulty sub-shapes
35 AddFaultyShape1(me: in out; TheShape: Shape from TopoDS);
36 ---Purpose: adds faulty sub-shapes from object to a list
38 SetShape2(me: in out; TheShape: Shape from TopoDS);
39 ---Purpose: sets ancestor shape (tool) for faulty sub-shapes
41 AddFaultyShape2(me: in out; TheShape: Shape from TopoDS);
42 ---Purpose: adds faulty sub-shapes from tool to a list
45 returns Shape from TopoDS;
47 ---Purpose: returns ancestor shape (object) for faulties
50 returns Shape from TopoDS;
52 ---Purpose: returns ancestor shape (tool) for faulties
55 returns ListOfShape from BOPCol;
57 ---Purpose: returns list of faulty shapes for object
60 returns ListOfShape from BOPCol;
62 ---Purpose: returns list of faulty shapes for tool
64 SetCheckStatus(me: in out; TheStatus: CheckStatus from BOPAlgo);
65 ---Purpose: set status of faulty
68 returns CheckStatus from BOPAlgo;
69 ---Purpose: gets status of faulty
71 SetMaxDistance1(me:out;
72 theDist : Real from Standard);
73 ---Purpose: Sets max distance for the first shape
75 SetMaxDistance2(me:out;
76 theDist : Real from Standard);
77 ---Purpose: Sets max distance for the second shape
79 SetMaxParameter1(me:out;
80 thePar : Real from Standard);
81 ---Purpose: Sets the parameter for the first shape
83 SetMaxParameter2(me:out;
84 thePar : Real from Standard);
85 ---Purpose: Sets the parameter for the second shape
88 returns Real from Standard;
89 ---Purpose: Returns the distance for the first shape
92 returns Real from Standard;
93 ---Purpose: Returns the distance for the second shape
96 returns Real from Standard;
97 ---Purpose: Returns the parameter for the fircst shape
100 returns Real from Standard;
101 ---Purpose: Returns the parameter for the second shape
105 myShape1 : Shape from TopoDS;
106 myShape2 : Shape from TopoDS;
107 myStatus : CheckStatus from BOPAlgo;
108 myFaulty1 : ListOfShape from BOPCol;
109 myFaulty2 : ListOfShape from BOPCol;
110 myMaxDist1 : Real from Standard;
111 myMaxDist2 : Real from Standard;
112 myMaxPar1 : Real from Standard;
113 myMaxPar2 : Real from Standard;