From 41aec92aa2a6c763813264b03ce96adf44184b25 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Thu, 19 Dec 1996 10:27:19 +0000
Subject: [PATCH] flower-1.0.15

---
 flower/interval.cc | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/flower/interval.cc b/flower/interval.cc
index 6cc2a7916e..6fac1f55dc 100644
--- a/flower/interval.cc
+++ b/flower/interval.cc
@@ -31,6 +31,29 @@ Interval::intersect(Interval h)
     min = MAX(h.min, min);
     max = MIN(h.max, max);
 }
+Interval
+intersection(Interval a, Interval const&b)
+{
+    a.intersect(b);
+    return a;
+    
+}
+int
+Interval::compare(const Interval&a,Interval const&b)
+{
+    if (a.min == b.min && a.max == b.max)
+	return 0;
+    
+    if (a.min <= b.min && a.max >= b.max)
+	return 1;
+
+    if (a.min >= b.min && a.max <= b.max)
+	return -1;
+
+    assert(false);		// not comparable
+
+    return 0;
+}
 
 Interval
 intersect(Interval x, Interval const &y)
@@ -48,3 +71,8 @@ Interval::operator String() const
  
     return s + min + "," + max +"]";
 }
+bool
+Interval::elt_q(Real r)
+{
+    return r >= min && r <= max;
+}
-- 
2.39.5