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

	* input/sondag-morgen/*.ly: Tablature fixes

	* ly/performer-init.ly: BUGFIX: add alias Timing to Score context

diff --git a/ChangeLog b/ChangeLog
index 3efc068cdf48a3e76a8713555296ad13d5f27295..5ccc5eb03b94be344305df6c3be0cb90701dee22 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2002-09-07  Rune Zedeler  <rune@zedeler.dk>
 
+       * input/sondag-morgen/*.ly: Tablature fixes
+
+       * ly/performer-init.ly: BUGFIX: add alias Timing to Score context
+       
        * lily/parser.yy and lily/lexer.ll: Use E_UNSIGNED instead of E_DIGIT
        
        * lily/musical-request.cc (String_number_req): Added
@@ -12,7 +16,7 @@
        
        * scm/output-lib.scm (tablature-stem-attachment-function): Changed
        (guitar-tunings): List added
-       ((every-nth-bar-number-visible n) barnum): Instead of default-bar-number-visibility
+       ((every-nth-bar-number-visible n) barnum): added
 
        * scm/grob-description.scm (TabNoteHead): Extra-offset added (UGH!)
        

diff --git a/input/sondag-morgen/sondag-morgen-intro.ly b/input/sondag-morgen/sondag-morgen-intro.ly
index 51ee1f1430b1d52a9b5f8cd50f969c71ba31a152..71ec11cdbd12f1994d451713a66c74ba587cf725 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-intro.ly
+++ b/input/sondag-morgen/sondag-morgen-intro.ly
@@ -123,18 +123,18 @@ guitar = \notes \transpose c' {
     \time 2/2
     \key e \minor
     \property Staff.Arpeggio \override #'arpeggio-direction = #1
-       g'8-5_"FLANGE" fis'4-5 d'8-4 r8 h4.-3 |
-       a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
-       <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
-       g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
-       a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
-       <e1-\arpeggio-2 a-3 d'-4 fis'-5 h'-6>
-       g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
-       a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
-       <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
-       g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
-       a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
-       <e1-\arpeggio-2 a-3 d'-4 fis'-5 h'-6>
+       g'8\5_"FLANGE" fis'4\5 d'8\4 r8 h4.\3 |
+       a8\3( d'\4 a'\5 a\3 d'\4 a'\5 a\3 )d'\4 |
+       <e1-\arpeggio\2 a\3 d'\4 g'\5 h'\6>
+       g'8\5 fis'4\5 d'8\4 r8 h4.\3 |
+       a8\3( d'\4 a'\5 a\3 d'\4 a'\5 a\3 )d'\4 |
+       <e1-\arpeggio\2 a\3 d'\4 fis'\5 h'\6>
+       g'8\5 fis'4\5 d'8\4 r8 h4.\3 |
+       a8\3( d'\4 a'\5 a\3 d'\4 a'\5 a\3 )d'\4 |
+       <e1-\arpeggio\2 a\3 d'\4 g'\5 h'\6>
+       g'8\5 fis'4\5 d'8\4 r8 h4.\3 |
+       a8\3( d'\4 a'\5 a\3 d'\4 a'\5 a\3 )d'\4 |
+       <e1-\arpeggio\2 a\3 d'\4 fis'\5 h'\6>
 
 }
 

diff --git a/input/sondag-morgen/sondag-morgen-omkvaed-volta1.ly b/input/sondag-morgen/sondag-morgen-omkvaed-volta1.ly
index e307be21481235fb6e88e2020431935353684346..5583a4a6d760f00d672bfd16aeeff176d6a2f636 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-omkvaed-volta1.ly
+++ b/input/sondag-morgen/sondag-morgen-omkvaed-volta1.ly
@@ -99,11 +99,11 @@ pial = \notes {
 }
 guitar = \notes {
     \guitar
-    e8-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
-    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 e-2 <g8-3 c'-4 e'-5 a'-6> ~ |
-    <g1-3 c'-4 e'-5 a'-6>
-    <a1-3 d'-4 e'-5 a'-6> ~
-    <a2-3 d'-4 fis'-5 a'-6> r |
+    e8\2 e\2 < a\3 d'\4> e\2 e\2 < a\3 d'\4> e\2 < h\3 e'\4> |
+    e8\2 < d'\4 g'\5> e\2 e\2 < e'\4 a'\5> e\2 e\2 <g8\3 c'\4 e'\5 a'\6> ~ |
+    <g1\3 c'\4 e'\5 a'\6>
+    <a1\3 d'\4 e'\5 a'\6> ~
+    <a2\3 d'\4 fis'\5 a'\6> r |
 }
 
 cello = \notes {

diff --git a/input/sondag-morgen/sondag-morgen-omkvaed-volta2.ly b/input/sondag-morgen/sondag-morgen-omkvaed-volta2.ly
index b7bd520831cc5ee18b34e86fe0ccd25d1b321c85..3ae4d121a7b38e6126e68b49b7869250eb5c9c41 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-omkvaed-volta2.ly
+++ b/input/sondag-morgen/sondag-morgen-omkvaed-volta2.ly
@@ -127,16 +127,16 @@ pial = \notes {
 }
 guitar = \notes {
     \guitar
-    e8-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
-    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
-    e-2 e-2 < a-3 d'-4> e-2 e-2 e-2 < h-3 e'-4> e-2 |
+    e8\2 e\2 < a\3 d'\4> e\2 e\2 < a\3 d'\4> e\2 < h\3 e'\4> |
+    e8\2 < d'\4 g'\5> e\2 e\2 < e'\4 a'\5> e\2 < d'\4 g'\5> e\2  |
+    e\2 e\2 < a\3 d'\4> e\2 e\2 e\2 < h\3 e'\4> e\2 |
     s1*0_"FLANGE"
     \repeat unfold 2 {
-       r8 d'-4 <h'-6 g'-5> d'-4 a'-5 d'-4 e'-4 d'-4
-       r8 d'-4 <h'-6 fis'-5> d'-4 a'-5 d'-4 e'-4 d'-4
+       r8 d'\4 <h'\6 g'\5> d'\4 a'\5 d'\4 e'\4 d'\4
+       r8 d'\4 <h'\6 fis'\5> d'\4 a'\5 d'\4 e'\4 d'\4
     }
-    r8 d'-4 <h'-6 g'-5> d'-4 a'-5 d'-4 e'-4 d'-4
-    <h4-3_"NO FLANGE" dis'-4 a'-5 cisis''-6> r8 < a-3 d'-4> e-2 < ais-3 dis'-4> e-2 < h-3 e'-4> |
+    r8 d'\4 <h'\6 g'\5> d'\4 a'\5 d'\4 e'\4 d'\4
+    <h4\3_"NO FLANGE" dis'\4 a'\5 cisis''\6> r8 < a\3 d'\4> e\2 < ais\3 dis'\4> e\2 < h\3 e'\4> |
 }
 
 cello = \notes {

diff --git a/input/sondag-morgen/sondag-morgen-omkvaed-volta3.ly b/input/sondag-morgen/sondag-morgen-omkvaed-volta3.ly
index f9e5abd10d1e1d7aba0e83a274d2321a1480a27c..bc3fea6724e1e2b5cdebab1d6fc8a0a559a8141a 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-omkvaed-volta3.ly
+++ b/input/sondag-morgen/sondag-morgen-omkvaed-volta3.ly
@@ -67,7 +67,7 @@ pial = \notes {
 }
 guitar = \notes {
     \guitar
-    e8-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
+    e8\2 e\2 < a\3 d'\4> e\2 e\2 < a\3 d'\4> e\2 < h\3 e'\4> |
 }
 
 cello = \notes {

diff --git a/input/sondag-morgen/sondag-morgen-omkvaed.ly b/input/sondag-morgen/sondag-morgen-omkvaed.ly
index b13d2ea53c36e2324920ac9638be45fc735b1713..6296206f8aa3bb70b9312c1d8dd89897a1f4a65a 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-omkvaed.ly
+++ b/input/sondag-morgen/sondag-morgen-omkvaed.ly
@@ -145,17 +145,17 @@ guitar = \notes {
     \guitar
     \key e \minor
     \time 4/4
-    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
-    e-2 e-2 < a-3 d'-4> e-2 e-2 e-2 < h-3 e'-4> e-2 |
-    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
-    e-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
-    e8-2 < d'-4 g'-5> e-2 e-2 < e'8-4 a'-5> e-2 r8 <g-3_\ned h-4 d'-5 g'-6> ~  |
-    <g4.-3 h-4 d'-5 g'-6> <a8-3_\ned cis'-4 e'-5 a'-6> ~<a2-3 cis'-4 e'-5 a'-6> |
-    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
-    e-2 e-2 e-2 < a-3 d'-4> e-2 < ais-3 dis'-4> e-2 < h-3 e'-4> |
-     e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
-    e-2 e-2 < a-3 d'-4> e-2 e-2 e-2 < h-3 e'-4> e-2 |
-    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
+    e8\2 < d'\4 g'\5> e\2 e\2 < e'\4 a'\5> e\2 < d'\4 g'\5> e\2  |
+    e\2 e\2 < a\3 d'\4> e\2 e\2 e\2 < h\3 e'\4> e\2 |
+    e8\2 < d'\4 g'\5> e\2 e\2 < e'\4 a'\5> e\2 < d'\4 g'\5> e\2  |
+    e\2 e\2 < a\3 d'\4> e\2 e\2 < a\3 d'\4> e\2 < h\3 e'\4> |
+    e8\2 < d'\4 g'\5> e\2 e\2 < e'8\4 a'\5> e\2 r8 <g\3_\ned h\4 d'\5 g'\6> ~  |
+    <g4.\3 h\4 d'\5 g'\6> <a8\3_\ned cis'\4 e'\5 a'\6> ~<a2\3 cis'\4 e'\5 a'\6> |
+    e8\2 < d'\4 g'\5> e\2 e\2 < e'\4 a'\5> e\2 < d'\4 g'\5> e\2  |
+    e\2 e\2 e\2 < a\3 d'\4> e\2 < ais\3 dis'\4> e\2 < h\3 e'\4> |
+     e8\2 < d'\4 g'\5> e\2 e\2 < e'\4 a'\5> e\2 < d'\4 g'\5> e\2  |
+    e\2 e\2 < a\3 d'\4> e\2 e\2 e\2 < h\3 e'\4> e\2 |
+    e8\2 < d'\4 g'\5> e\2 e\2 < e'\4 a'\5> e\2 < d'\4 g'\5> e\2  |
 }
 
 cello = \notes {

diff --git a/input/sondag-morgen/sondag-morgen-outro.ly b/input/sondag-morgen/sondag-morgen-outro.ly
index cbd718bcd8b37b6097c6323cf465850d5eb665a1..81aedf008bdcb8375abe80abdf5ab1ad4b7641a1 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-outro.ly
+++ b/input/sondag-morgen/sondag-morgen-outro.ly
@@ -135,18 +135,18 @@ pial = \notes {
 guitar = \notes{
     \guitar
     \time 2/2
-    r2 <d'_"FLANGE"-4 g'-5 h'-6> |
+    r2 <d'_"FLANGE"\4 g'\5 h'\6> |
     \property Staff.Arpeggio \override #'arpeggio-direction = #1
-    a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
-    <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
-    g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
-    a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
-    <e1-\arpeggio-2 a-3 d'-4 fis'-5 h'-6>
-    g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
-    a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
-    <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
-    g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
-    <e,1-\arpeggio-1 e-2 a-3 d'-4 g'-5 h'-6>
+    a8\3( d'\4 a'\5 a\3 d'\4 a'\5 a\3 )d'\4 |
+    <e1-\arpeggio\2 a\3 d'\4 g'\5 h'\6>
+    g'8\5 fis'4\5 d'8\4 r8 h4.\3 |
+    a8\3( d'\4 a'\5 a\3 d'\4 a'\5 a\3 )d'\4 |
+    <e1-\arpeggio\2 a\3 d'\4 fis'\5 h'\6>
+    g'8\5 fis'4\5 d'8\4 r8 h4.\3 |
+    a8\3( d'\4 a'\5 a\3 d'\4 a'\5 a\3 )d'\4 |
+    <e1-\arpeggio\2 a\3 d'\4 g'\5 h'\6>
+    g'8\5 fis'4\5 d'8\4 r8 h4.\3 |
+    <e,1-\arpeggio\1 e\2 a\3 d'\4 g'\5 h'\6>
 }
 
 cello = \notes {

diff --git a/input/sondag-morgen/sondag-morgen-vers-volta1.ly b/input/sondag-morgen/sondag-morgen-vers-volta1.ly
index f24d27e25a80a385195d42c5c5abe9bf3da88655..250e4fb09093a5b331c878f01c117795a33d46f9 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-vers-volta1.ly
+++ b/input/sondag-morgen/sondag-morgen-vers-volta1.ly
@@ -64,7 +64,7 @@ pial = \notes {
 guitar = \notes {
     \guitar
     \relative c' {
-       <d,2-2 g-3 h-4 e-5 a-6> r2 |
+       <d,2\2 g\3 h\4 e\5 a\6> r2 |
     }
 }
 

diff --git a/input/sondag-morgen/sondag-morgen-vers-volta2.ly b/input/sondag-morgen/sondag-morgen-vers-volta2.ly
index 897e37c4d6e5ebe0f983d0fbad058087b80251cd..0ae77fffc076aef88d68276d8a542e02f772cb86 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-vers-volta2.ly
+++ b/input/sondag-morgen/sondag-morgen-vers-volta2.ly
@@ -69,7 +69,7 @@ pial = \notes {
 }
 guitar = \notes {
     \guitar
-    r4 e8-2 < a-3 d'-4> e-2 < ais-3 dis'-4> e-2 < h-3 e'-4> |
+    r4 e8\2 < a\3 d'\4> e\2 < ais\3 dis'\4> e\2 < h\3 e'\4> |
 }
 
 cello = \notes {

diff --git a/input/sondag-morgen/sondag-morgen-vers.ly b/input/sondag-morgen/sondag-morgen-vers.ly
index 7438a03bda407754b9a9cc24835cb56e38a0a8d5..ec637df9ac1420c36ba6e476c4278bc32ff92f5e 100644 (file)
--- a/input/sondag-morgen/sondag-morgen-vers.ly
+++ b/input/sondag-morgen/sondag-morgen-vers.ly
@@ -210,18 +210,18 @@ guitar = \notes {
        \time 7/8
        s1*0_"NO FLANGE"
        \repeat percent 3 {
-           [<f8-4_\ned b-5\mu d-6> <f-4_\op b-5\ac d-6> <f-4_\ned b-5\mu d-6>] [<f-4_\op a-5\ac d-6> <f-4_\ned a-5\mu d-6>] [<f-4_\op a-5\mu d-6><f-4_\ned a-5\ac d-6>]|
-           [<es-4_\op g-5\mu c-6> <es-4_\ned g-5\ac c-6> <es-4_\op g-5\mu c-6>] [<es-4_\ned g-5\ac c-6> <es-4_\op g-5\mu c-6>][<f-4_\ned a-5\ac d-6> <f-4_\op a-5\mu d-6>] |
+           [<f8\4_\ned b\5\mu d\6> <f\4_\op b\5\ac d\6> <f\4_\ned b\5\mu d\6>] [<f\4_\op a\5\ac d\6> <f\4_\ned a\5\mu d\6>] [<f\4_\op a\5\mu d\6><f\4_\ned a\5\ac d\6>]|
+           [<es\4_\op g\5\mu c\6> <es\4_\ned g\5\ac c\6> <es\4_\op g\5\mu c\6>] [<es\4_\ned g\5\ac c\6> <es\4_\op g\5\mu c\6>][<f\4_\ned a\5\ac d\6> <f\4_\op a\5\mu d\6>] |
        }
-       [<f8-4_\ned b-5\mu d-6> <f-4_\op b-5\ac d-6> <f-4_\ned b-5\mu d-6>] [<f-4_\op a-5\ac d-6> <f-4_\ned a-5\mu d-6>] [<f-4_\op a-5\mu d-6><f-4_\ned a-5\ac d-6>]|
+       [<f8\4_\ned b\5\mu d\6> <f\4_\op b\5\ac d\6> <f\4_\ned b\5\mu d\6>] [<f\4_\op a\5\ac d\6> <f\4_\ned a\5\mu d\6>] [<f\4_\op a\5\mu d\6><f\4_\ned a\5\ac d\6>]|
        \time 9/8
 
-       <d,4.-2 g-3 h-4 e-5 a-6> r4 [<fis'8-4_\ned a-5\ac d-6> <fis8-4_\op a-5\mu d-6>] [<fis8-4_\ned a-5\ac d-6> <fis8-4_\op a-5\mu d-6>] |
+       <d,4.\2 g\3 h\4 e\5 a\6> r4 [<fis'8\4_\ned a\5\ac d\6> <fis8\4_\op a\5\mu d\6>] [<fis8\4_\ned a\5\ac d\6> <fis8\4_\op a\5\mu d\6>] |
        \time 7/8
        \key g \major
        \repeat percent 3 {
-           [<g8-4_\ned h-5\mu d-6> <g-4_\op h-5\ac d-6> <g-4_\ned h-5\mu d-6>] [<fis-4_\op a-5\ac d-6> <fis-4_\ned a-5\mu d-6>] [<fis-4_\op a-5\mu d-6><fis-4_\ned a-5\ac d-6>]|
-           [<e-4_\op g-5\mu c-6> <e-4_\ned g-5\ac c-6> <e-4_\op g-5\mu c-6>] [<e-4_\ned g-5\ac c-6> <e-4_\op g-5\mu c-6>][<fis-4_\ned a-5\ac d-6> <fis-4_\op a-5\mu d-6>] |
+           [<g8\4_\ned h\5\mu d\6> <g\4_\op h\5\ac d\6> <g\4_\ned h\5\mu d\6>] [<fis\4_\op a\5\ac d\6> <fis\4_\ned a\5\mu d\6>] [<fis\4_\op a\5\mu d\6><fis\4_\ned a\5\ac d\6>]|
+           [<e\4_\op g\5\mu c\6> <e\4_\ned g\5\ac c\6> <e\4_\op g\5\mu c\6>] [<e\4_\ned g\5\ac c\6> <e\4_\op g\5\mu c\6>][<fis\4_\ned a\5\ac d\6> <fis\4_\op a\5\mu d\6>] |
        }
        \time 4/4
        s1*0-\mf \repeat unfold 2 <c2-3 e-4 g-5 h-6>

diff --git a/input/sondag-morgen/sondag-morgen.ly b/input/sondag-morgen/sondag-morgen.ly
index ed1f2285c5217b07d333150c89ab8a860518fab6..6e0349dca3ab9793149b1237ded7683980cbb2ad 100644 (file)
--- a/input/sondag-morgen/sondag-morgen.ly
+++ b/input/sondag-morgen/sondag-morgen.ly
@@ -15,6 +15,7 @@ sd = \translator Staff = down
     piece = "Score"
     tagline = "\\Large{Form: Intro Vers$_1$ Vers$_2$ Omkvæd Vers$_1$ Omkvæd Omkvæd Outro  }"
 }
+
 \score {
     \notes <
        \property Score.automaticMelismata = ##t
@@ -78,6 +79,10 @@ sd = \translator Staff = down
            \context TabStaff=gui <
                \property Staff.instrument = "Guitar    "
                \property Staff.instr = "gt    "
+               \property TabStaff.stringOneTopmost = ##f
+               \property TabStaff.highStringOne = ##f
+               \property TabStaff.stringTunings = #(reverse guitar-tunings)
+
                \context TabVoice \guitar
            >
            \context Staff = cello <

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index c8127652da45e4b2e1d65fd1d366beac00bf569d..c195c75f972e4afbfe2b43fb0f9249e48dc58f11 100644 (file)
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -397,7 +397,7 @@ ScoreContext = \translator {
        automaticMelismata = ##t
        
        defaultBarType = #"|"
-       barNumberVisibility = #(every-nth-bar-number-visible 1)
+       barNumberVisibility = #default-bar-number-visibility
 
        explicitClefVisibility = #all-visible
        explicitKeySignatureVisibility = #all-visible

diff --git a/ly/performer-init.ly b/ly/performer-init.ly
index 500ea65b511159ed263a794843af3ff166971d1e..0735bce8f11ed7920ad47a857664cd351704fe66 100644 (file)
--- a/ly/performer-init.ly
+++ b/ly/performer-init.ly
@@ -106,6 +106,7 @@ ScoreContext = \translator {
        \type "Score_performer"
 
        \name Score
+       \alias Timing
        instrument = #"bright acoustic"
        \accepts Staff
        \accepts GrandStaff

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 32ef10d7be8719c73ff3578848417e6e6218b3cc..9267948f695e853fba46c22898fbf89b329fb27a 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -222,4 +222,6 @@ centered, X==1 is at the right, X == -1 is at the left."
          (string-encode-integer (quotient i 26))))))
 
 
-(define ((every-nth-bar-number-visible n) barnum) (and (> barnum 1) (= 0 (modulo barnum n))))
+(define ((every-nth-bar-number-visible n) barnum) (= 0 (modulo barnum n)))
+
+(define (default-bar-number-visibility barnum) (> barnum 1))