2002-09-07 Rune Zedeler <rune@zedeler.dk>

	* scm/basic-properties.scm: (default-bar-number-visibility) added

	* ly/engraver-init.ly (ScoreContext) set barNumberVisibility to
	#default-bar-number-visibility

diff --git a/ChangeLog b/ChangeLog
index 8c7647c44c9d7e04564b155a96d3e179d89f64ed..ad5ac6de00082ab5f6b7863a4c60de2cc60931fd 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-09-07  Rune Zedeler  <rune@zedeler.dk>
+
+       * 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  <hanwen@cs.uu.nl>
 
        * input/test/poly-metric.ly: update to use Timing.

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 78a2fcb664ad7eebd77be096e41a3ceedafb2fb4..872679695d6fa938976799a41be9ec7624690a3a 100644 (file)
--- 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 b9f2683e46ab8b4ceb06c6998c08f2ec09055241..b844dae3d004095fb0dd74102e4e4d37ab3e03a7 100644 (file)
--- a/scm/basic-properties.scm
+++ b/scm/basic-properties.scm
@@ -46,3 +46,5 @@
      )
    )
      
+
+(define (default-bar-number-visibility n) (> n 1))