* scm/framework-svg.scm (output-framework): put scaling in

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

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 18fb45ff5c994d300eb140bc3d6958fae6941918..601cdb35fef4f4d9a814e58df2b738bf985b43a0 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -307,12 +307,16 @@ possibly turned off."
 (define-public (!= lst r)
   (not (= lst r)))
 
-(define-public scale-to-unit
+(define-public lily-unit->bigpoint-factor
   (cond
    ((equal? (ly:unit) "mm") (/ 72.0 25.4))
    ((equal? (ly:unit) "pt") (/ 72.0 72.27))
    (else (error "unknown unit" (ly:unit)))))
 
+
+(define-public lily-unit->mm-factor
+  (* 25.4 (/ lily-unit->bigpoint-factor 72)))
+
 ;;; FONT may be font smob, or pango font string...
 (define-public (font-name-style font)
       ;; FIXME: ughr, (ly:font-name) sometimes also has Style appended.
@@ -327,7 +331,7 @@ possibly turned off."
            name-style
            (append name-style '("Regular"))))))
 
-(define-public (font-size font)
+(define-public (modified-font-metric-font-scaling font)
   (let* ((designsize (ly:font-design-size font))
         (magnification (* (ly:font-magnification font)))
         (scaling (* magnification designsize)))