From 42847ec56788491878708c611ce8ba047b292ef4 Mon Sep 17 00:00:00 2001 From: Rune Zedeler Date: Fri, 6 Sep 2002 22:55:52 +0000 Subject: [PATCH] 2002-09-07 Rune Zedeler * scm/basic-properties.scm: (default-bar-number-visibility) added * ly/engraver-init.ly (ScoreContext) set barNumberVisibility to #default-bar-number-visibility --- ChangeLog | 7 +++++++ ly/engraver-init.ly | 2 +- scm/basic-properties.scm | 2 ++ 3 files changed, 10 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 8c7647c44c..ad5ac6de00 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2002-09-07 Rune Zedeler + + * scm/basic-properties.scm: (default-bar-number-visibility) added + + * ly/engraver-init.ly (ScoreContext) set barNumberVisibility to + #default-bar-number-visibility + 2002-09-06 Han-Wen Nienhuys * input/test/poly-metric.ly: update to use Timing. diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly index 78a2fcb664..872679695d 100644 --- a/ly/engraver-init.ly +++ b/ly/engraver-init.ly @@ -397,7 +397,7 @@ ScoreContext = \translator { automaticMelismata = ##t defaultBarType = #"|" - barNumberVisibility = #(lambda (n) (> n 1)) + barNumberVisibility = #default-bar-number-visibility explicitClefVisibility = #all-visible explicitKeySignatureVisibility = #all-visible diff --git a/scm/basic-properties.scm b/scm/basic-properties.scm index b9f2683e46..b844dae3d0 100644 --- a/scm/basic-properties.scm +++ b/scm/basic-properties.scm @@ -46,3 +46,5 @@ ) ) + +(define (default-bar-number-visibility n) (> n 1)) -- 2.39.5