From: Patrick McCarty <pnorcks@gmail.com>
Date: Fri, 26 Feb 2010 19:53:12 +0000 (-0800)
Subject: font.scm: Make default text font size more visible.
X-Git-Tag: release/2.13.14-1~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f1066cc5db00336a9c69829b3744e9c1d809204a;p=lilypond.git

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

diff --git a/scm/font.scm b/scm/font.scm
index f8ab0573d6..e5a5183c92 100644
--- 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