0024143: bopcheck command throws an exception
[occt.git] / src / IntTools / IntTools_CompareRange.cxx
CommitLineData
b311480e 1// Created on: 2000-10-24
2// Created by: Peter KURNEV
3// Copyright (c) 2000-2012 OPEN CASCADE SAS
4//
5// The content of this file is subject to the Open CASCADE Technology Public
6// License Version 6.5 (the "License"). You may not use the content of this file
7// except in compliance with the License. Please obtain a copy of the License
8// at http://www.opencascade.org and read it completely before using this file.
9//
10// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
12//
13// The Original Code and all software distributed under the License is
14// distributed on an "AS IS" basis, without warranty of any kind, and the
15// Initial Developer hereby disclaims all such warranties, including without
16// limitation, any warranties of merchantability, fitness for a particular
17// purpose or non-infringement. Please see the License for the specific terms
18// and conditions governing the rights and limitations under the License.
19
7fd59977 20
21
22#include <IntTools_CompareRange.ixx>
23//=======================================================================
24//function :IntTools_CompareRange::IntTools_CompareRange
25//purpose :
26//=======================================================================
b311480e 27IntTools_CompareRange::IntTools_CompareRange() :myTol(1.e-12) {}
7fd59977 28
29//=======================================================================
30//function :IntTools_CompareRange::IntTools_CompareRange
31//purpose :
32//=======================================================================
33 IntTools_CompareRange::IntTools_CompareRange(const Standard_Real aTol)
34{
35 myTol=aTol;
36}
37
38//=======================================================================
39//function :IsLower
40//purpose :
41//=======================================================================
42 Standard_Boolean IntTools_CompareRange::IsLower(const IntTools_Range& aLeft,
43 const IntTools_Range& aRight)const
44{
45 return aLeft.First()<aRight.First();
46}
47
48//=======================================================================
49//function :IsGreater
50//purpose :
51//=======================================================================
52 Standard_Boolean IntTools_CompareRange::IsGreater(const IntTools_Range& aLeft,
53 const IntTools_Range& aRight)const
54{
55 return !IsLower(aLeft,aRight);
56}
57
58//=======================================================================
59//function :IsEqual
60//purpose :
61//=======================================================================
62 Standard_Boolean IntTools_CompareRange::IsEqual(const IntTools_Range& aLeft,
63 const IntTools_Range& aRight)const
64{
65 Standard_Real a, b;
66 a=aLeft.First();
67 b=aRight.First();
68 return fabs(a-b) < myTol;
69}
70
71
72