From 9dbbfcfe515c0aa34d6512dc48cf67f18ddaf091 Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Fri, 26 Feb 2010 12:00:07 -0800 Subject: [PATCH] Add code comments regarding the fix for #1020. --- scm/font.scm | 3 +++ scm/paper.scm | 2 ++ 2 files changed, 5 insertions(+) diff --git a/scm/font.scm b/scm/font.scm index e5a5183c92..d4c119b405 100644 --- a/scm/font.scm +++ b/scm/font.scm @@ -181,7 +181,10 @@ ))))))) (define-public (add-pango-fonts node lily-family family factor) + ;; Synchronized with the `text-font-size' variable in + ;; layout-set-absolute-staff-size-in-module (see paper.scm). (define text-font-size (ly:pt (* factor 11.0))) + (define (add-node shape series) (add-font node `((font-family . ,lily-family) diff --git a/scm/paper.scm b/scm/paper.scm index 3a8644ecdc..6223e5392e 100644 --- a/scm/paper.scm +++ b/scm/paper.scm @@ -69,6 +69,8 @@ (setm! (lambda (sym val) (module-define! module sym val)))) + ;; Synchronized with the `text-font-size' + ;; binding in add-pango-fonts (see font.scm). (setm! 'text-font-size (* 11 factor)) (setm! 'output-scale ss) -- 2.39.5