* lily/tab-note-heads-engraver.cc:

* scm/translator-property-description.scm: Add tablatureFormat.

* input/test/staff-bracket.ly: Update.

diff --git a/ChangeLog b/ChangeLog
index 21d0d619c1b64e1f26b61cd2a49ca7a3d729e248..203a73b87d47ff513fd93f6f3efa8e25057266c7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2002-08-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * lily/tab-note-heads-engraver.cc: 
+       * scm/translator-property-description.scm: Add tablatureFormat.
+
+       * input/test/staff-bracket.ly: Update.
+
        * lily/regular-spacing-engraver.cc: Add regular-distance-to.
 
        * input/test/orchestscore.ly:  

diff --git a/input/test/staff-bracket.ly b/input/test/staff-bracket.ly
index 32170c9e50082aa8af67c81866294bbeda260550..c6d9061b53d468d17d6f7c7fb420a73d385acd7d 100644 (file)
--- a/input/test/staff-bracket.ly
+++ b/input/test/staff-bracket.ly
@@ -3,6 +3,10 @@
 \score
 {
   \context StaffGroup = a < 
+    % this is broken until further notice -- see refman
+    % \property Staff.StaffSymbol \override #'line-count = #4
+    \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
+      #'line-count = #4
     \context PianoStaff = b <
       \context Staff = "c" \notes\relative c'' { b1 }
       \context Staff = "d" \notes\relative c'' { b1 }
@@ -16,8 +20,6 @@
     {
       \StaffContext
       \consists Instrument_name_engraver
-       numberOfStaffLines  = #1
-      
     }
   }
 }

diff --git a/lily/tab-note-heads-engraver.cc b/lily/tab-note-heads-engraver.cc
index 28bd4b298b6f453773bf9e2332056ace6b456275..a156c160e55627f444d4bfdd9aa10c5b42c82d9e 100644 (file)
--- a/lily/tab-note-heads-engraver.cc
+++ b/lily/tab-note-heads-engraver.cc
@@ -180,6 +180,6 @@ ENTER_DESCRIPTION(Tab_note_heads_engraver,
 /* descr */       "Generate one or more tablature noteheads from Music of type Note_req.",
 /* creats*/       "TabNoteHead Dots",
 /* acks  */       "",
-/* reads */       "centralCPosition stringTunings minimumFret",
+/* reads */       "centralCPosition stringTunings minimumFret tablatureFormat",
 /* write */       "");
 

diff --git a/scm/translator-property-description.scm b/scm/translator-property-description.scm
index 7cd0c0f7b82ed2de11d73c9164ac699bd3793805..1c4077e41b6a701b868cae511cf7a393127b2ddf 100644 (file)
--- a/scm/translator-property-description.scm
+++ b/scm/translator-property-description.scm
@@ -342,6 +342,7 @@ to true then text placed above or below the staff is not assumed to
 have zero width.  @code{\fatText} and @code{\emptyText} are predefined
 settings.
 .")
+(translator-property-description 'tablatureFormat procedure? "DOCME.")
 (translator-property-description 'tieMelismaBusy boolean? "Signal ties when automaticMelismata is set.")
 (translator-property-description 'timeSignatureFraction number-pair? "
 pair of numbers,  signifying the time signature. For example #'(4 . 4) is a 4/4time signature.")