From f1066cc5db00336a9c69829b3744e9c1d809204a Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Fri, 26 Feb 2010 11:53:12 -0800 Subject: [PATCH] font.scm: Make default text font size more visible. --- scm/font.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.2