>From 6cb82dc69897c3f6cd9848dc869bcbeea5d4c5c4 Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Sat, 6 Sep 2008 19:18:00 -0700 Subject: [PATCH] Fix dimensions for several output variables * Dimensions for the following output variables were not interpreted correctly because they were not included in the dimension-variables variable (heeding the warning at the top of ly/paper-defaults.ly): head-separation foot-separation after-title-space before-title-space between-title-space top-margin bottom-margin This patch corrects the issue. Signed-off-by: Patrick McCarty --- scm/paper.scm | 31 ++++++++++++++++++++++++------- 1 files changed, 24 insertions(+), 7 deletions(-) diff --git a/scm/paper.scm b/scm/paper.scm index d587f5e..dff69cf 100644 --- a/scm/paper.scm +++ b/scm/paper.scm @@ -6,12 +6,29 @@ (define-public (set-paper-dimension-variables mod) (module-define! mod 'dimension-variables - '(pt mm cm in staff-height staff-space - page-top-space - between-system-space between-system-padding - line-width indent short-indent paper-width paper-height horizontal-shift - staff-space line-thickness ledgerline-thickness - blot-diameter left-margin right-margin))) + '(pt mm cm in staff-space + staff-height + page-top-space + head-separation + foot-separation + after-title-space + before-title-space + between-title-space + between-system-space + between-system-padding + line-width + indent + short-indent + paper-width + paper-height + horizontal-shift + line-thickness + ledger-line-thickness + blot-diameter + top-margin + bottom-margin + left-margin + right-margin))) (define (calc-line-thickness staff-space pt) ;; linear interpolation. @@ -50,7 +67,7 @@ (setm! 'line-thickness (calc-line-thickness ss pt)) ;; sync with feta - (setm! 'ledgerline-thickness (+ (* 0.5 pt) (/ ss 10))) + (setm! 'ledger-line-thickness (+ (* 0.5 pt) (/ ss 10))) ;; sync with feta (setm! 'blot-diameter (* 0.4 pt)) -- 1.6.0.1