From: Patrick McCarty <pnorcks@gmail.com>
Date: Mon, 31 Aug 2009 01:34:38 +0000 (-0700)
Subject: lily-library.scm: add `interval-intersection' procedure
X-Git-Tag: release/2.13.4-1~110
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cf2f96313b672c3ea6d503638139192c581c92ab;p=lilypond.git

lily-library.scm: add `interval-intersection' procedure
---

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 80bc5191bb..7d0cb12602 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -455,6 +455,10 @@ found."
    (cons (min (car i1) (car i2))
 	 (max (cdr i1) (cdr i2))))
 
+(define-public (interval-intersection i1 i2)
+   (cons (max (car i1) (car i2))
+	 (min (cdr i1) (cdr i2))))
+
 (define-public (interval-sane? i)
   (not (or  (nan? (car i))
 	    (inf? (car i))