* scm/framework-svg.scm:

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

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 9cc606a329947c59ef80ab1a401564b63e7357cd..3d3e19c148fbe18cc0e211fca4fcdbdfe15148c6 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -1,3 +1,9 @@
+;;;; lily-library.scm -- utilities
+;;;;
+;;;;  source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  1998--2004 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 
 (define-public X 0)
@@ -312,3 +318,9 @@ possibly turned off."
   (not (= l r)))
 
 
+(define-public scale-to-unit
+  (cond
+   ((equal? (ly:unit) "mm") (/ 72.0 25.4))
+   ((equal? (ly:unit) "pt") (/ 72.0 72.27))
+   (else (error "unknown unit" (ly:unit)))))
+