From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 18 Aug 2002 23:36:01 +0000 (+0000)
Subject: * lily/tab-note-heads-engraver.cc:
X-Git-Tag: release/1.6.0~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c699f997cf2f7aed75648c2c9274dbae4dd59677;p=lilypond.git

* 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 21d0d619c1..203a73b87d 100644
--- 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 32170c9e50..c6d9061b53 100644
--- 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 28bd4b298b..a156c160e5 100644
--- 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 7cd0c0f7b8..1c4077e41b 100644
--- 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.")