* scm/paper.scm (layout-set-staff-size): use text-font-size in

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index 8fd0b9a2f243e7acee3b53181870cb43861b0968..3f997b08852d55b59500fd8aac83e8a3385ce3c6 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -32,7 +32,8 @@
         
         (mm (eval 'mm m)))
 
-    (module-define! m 'text-font-size (* 12 (/ sz 20)))
+    (module-define! m 'text-font-size (* 12 (/ sz (* 20 pt))))
+    
     (module-define! m 'outputscale ss)
     (module-define! m 'fonts (make-cmr-tree (/  sz (* 20 pt))))
     (module-define! m 'staffheight sz)