font.scm: Make default text font size more visible.

diff --git a/scm/font.scm b/scm/font.scm
index f8ab0573d67ab4cc4be6222b7bafba3145dfdd2d..e5a5183c92c573538185a7f9f4e997ecf32eef10 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -181,6 +181,7 @@
                            )))))))
 
 (define-public (add-pango-fonts node lily-family family factor)
+  (define text-font-size (ly:pt (* factor 11.0)))
   (define (add-node shape series)
     (add-font node
              `((font-family . ,lily-family)
@@ -188,7 +189,7 @@
                (font-series . ,series)
                (font-encoding . latin1) ;; ugh.
                )
-             `(,(ly:pt (* factor 11.0))
+             `(,text-font-size
                . #(,(cons
                     (ly:pt 12)
                     (ly:make-pango-description-string