Issue 1320: Scheme bar line interface (part 1/2: recoding)

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 91ece1e476a360785b81614f636d59e79d9123d7..ec1097a32b7ace1ae756e86f61fd5fa08f6cffd7 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -652,6 +652,10 @@ right (@var{dir}=+1)."
 (define (other-axis a)
   (remainder (+ a 1) 2))
 
+(define-public (interval-scale iv factor)
+  (cons (* (car iv) factor)
+    (* (cdr iv) factor)))
+
 (define-public (interval-widen iv amount)
   (cons (- (car iv) amount)
     (+ (cdr iv) amount)))